Changeset 12277 for NEMO/trunk/src/TOP/PISCES
- Timestamp:
- 2019-12-20T12:54:47+01:00 (4 years ago)
- Location:
- NEMO/trunk/src/TOP/PISCES/P4Z
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zflx.F90
r12276 r12277 304 304 ENDIF 305 305 ! 306 REWIND( numnatp_ref ) 306 307 READ ( numnatp_ref, nampisatm, IOSTAT = ios, ERR = 901) 307 308 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in reference namelist' ) 309 310 REWIND( numnatp_cfg ) 308 311 READ ( numnatp_cfg, nampisatm, IOSTAT = ios, ERR = 902 ) 309 312 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist' ) -
NEMO/trunk/src/TOP/PISCES/P4Z/p5zlim.F90
r12276 r12277 489 489 ENDIF 490 490 491 REWIND( numnatp_ref ) 491 492 READ ( numnatp_ref, namp5zquota, IOSTAT = ios, ERR = 903) 492 493 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisquota in reference namelist' ) 493 494 ! 495 REWIND( numnatp_cfg ) 494 496 READ ( numnatp_cfg, namp5zquota, IOSTAT = ios, ERR = 904 ) 495 497 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisquota in configuration namelist' ) -
NEMO/trunk/src/TOP/PISCES/P4Z/p5zprod.F90
r12276 r12277 523 523 !!---------------------------------------------------------------------- 524 524 525 REWIND( numnatp_ref ) 525 526 READ ( numnatp_ref, namp5zprod, IOSTAT = ios, ERR = 901) 526 527 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zprod in reference namelist' ) 527 528 529 REWIND( numnatp_cfg ) 528 530 READ ( numnatp_cfg, namp5zprod, IOSTAT = ios, ERR = 902 ) 529 531 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zprod in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.