Changeset 11822 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/ZDF/zdfdrg.F90
- Timestamp:
- 2019-10-29T11:41:36+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/ZDF/zdfdrg.F90
r10955 r11822 240 240 REWIND( numnam_ref ) ! Namelist namdrg in reference namelist 241 241 READ ( numnam_ref, namdrg, IOSTAT = ios, ERR = 901) 242 901 IF( ios /= 0 ) CALL ctl_nam( ios , 'namdrg in reference namelist' , lwp)242 901 IF( ios /= 0 ) CALL ctl_nam( ios , 'namdrg in reference namelist' ) 243 243 REWIND( numnam_cfg ) ! Namelist namdrg in configuration namelist 244 244 READ ( numnam_cfg, namdrg, IOSTAT = ios, ERR = 902 ) 245 902 IF( ios > 0 ) CALL ctl_nam( ios , 'namdrg in configuration namelist' , lwp)245 902 IF( ios > 0 ) CALL ctl_nam( ios , 'namdrg in configuration namelist' ) 246 246 IF(lwm) WRITE ( numond, namdrg ) 247 247 ! … … 340 340 IF(ll_top) READ ( numnam_ref, namdrg_top, IOSTAT = ios, ERR = 901) 341 341 IF(ll_bot) READ ( numnam_ref, namdrg_bot, IOSTAT = ios, ERR = 901) 342 901 IF( ios /= 0 ) CALL ctl_nam( ios , TRIM(cl_namref) , lwp)342 901 IF( ios /= 0 ) CALL ctl_nam( ios , TRIM(cl_namref) ) 343 343 REWIND( numnam_cfg ) ! Namelist cd_namdrg in configuration namelist 344 344 IF(ll_top) READ ( numnam_cfg, namdrg_top, IOSTAT = ios, ERR = 902 ) 345 345 IF(ll_bot) READ ( numnam_cfg, namdrg_bot, IOSTAT = ios, ERR = 902 ) 346 902 IF( ios > 0 ) CALL ctl_nam( ios , TRIM(cl_namcfg) , lwp)346 902 IF( ios > 0 ) CALL ctl_nam( ios , TRIM(cl_namcfg) ) 347 347 IF(lwm .AND. ll_top) WRITE ( numond, namdrg_top ) 348 348 IF(lwm .AND. ll_bot) WRITE ( numond, namdrg_bot )
Note: See TracChangeset
for help on using the changeset viewer.