diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-01 04:40:21 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-01 04:40:21 -0500 |
| commit | 3106f08451b6ad788e4f37510c068fc50c9abe86 (patch) | |
| tree | f6c715cf649827c919dd155a94be439e03151a02 /Donjon/src/ACRDRV.f | |
| parent | d87cf2b7386ddef30f84802366aec3a9515681c8 (diff) | |
| parent | f19b43f7cd3f1cbbe01ffd00b060ed1bd254aafb (diff) | |
Merge branch '17-correct-the-sph-option-in-module-bref-for-cases-with-many-feeding-assemblies' into 'main'
#17: Correct the SPH option in module BREF: for cases with many feeding assemblies
See merge request dragon/5.1!30
Diffstat (limited to 'Donjon/src/ACRDRV.f')
| -rw-r--r-- | Donjon/src/ACRDRV.f | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Donjon/src/ACRDRV.f b/Donjon/src/ACRDRV.f index f306c2a..9263bf4 100644 --- a/Donjon/src/ACRDRV.f +++ b/Donjon/src/ACRDRV.f @@ -106,17 +106,17 @@ DEALLOCATE(TEXT132V1) ENDIF IF(NPAR.GT.0) THEN - CALL hdf5_read_data(IPAPX,"/paramdescrip/PARNAM",PARKEY) - CALL hdf5_read_data(IPAPX,"/paramdescrip/PARFMT",PARFMT) + CALL hdf5_read_data(IPAPX,"/paramdescrip/PARNAM",PARKEY) + CALL hdf5_read_data(IPAPX,"/paramdescrip/PARFMT",PARFMT) + IF(IMPX.GT.1) THEN + WRITE(IOUT,*) 'NPAR=',NPAR,SIZE(PARKEY,1) + DO I=1,NPAR + WRITE(IOUT,*)'PARKEY(',I,')=',PARKEY(I),' PARFMT=',PARFMT(I) + ENDDO + ENDIF ENDIF TERP(:NCAL,:NMIX)=0.0 MIXC(:NMIX)=0 - IF(IMPX.GT.1) THEN - WRITE(IOUT,*) 'NPAR=',NPAR,SIZE(PARKEY,1) - DO I=1,NPAR - WRITE(IOUT,*)'PARKEY(',I,')=',PARKEY(I),' PARFMT=',PARFMT(I) - ENDDO - ENDIF *---- * READ (INTERP_DATA) AND SET VALI, VALR AND VALH PARAMETERS * CORRESPONDING TO THE INTERPOLATION POINT. FILL MUPLET FOR |