- Timestamp:
- 2019-11-25T18:19:39+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/SAS/nemogcm.F90
r11949 r11960 243 243 ! open ocean.output as soon as possible to get all output prints (including errors messages) 244 244 IF( lk_oasis ) THEN 245 IF( lwm ) CALL ctl_opn( numout, 'sas.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )245 IF( lwm ) CALL ctl_opn( numout, 'sas.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 246 246 ! open reference and configuration namelist files 247 CALL ctl_opn( numnam_ref, 'namelist_sas_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)248 CALL ctl_opn( numnam_cfg, 'namelist_sas_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)249 IF( lwm ) CALL ctl_opn( numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )247 CALL load_nml( numnam_ref, 'namelist_sas_ref', -1, lwm ) 248 CALL load_nml( numnam_cfg, 'namelist_sas_cfg', -1, lwm ) 249 IF( lwm ) CALL ctl_opn( numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 250 250 ELSE 251 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )251 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 252 252 ! open reference and configuration namelist files 253 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)254 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)255 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )253 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 254 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 255 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 256 256 ENDIF 257 257 ! open /dev/null file to be able to supress output write easily … … 262 262 ! !--------------------! 263 263 ! 264 REWIND( numnam_ref ) ! Namelist namctl in reference namelist265 264 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 266 265 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist' ) 267 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist268 266 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 269 267 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) … … 324 322 ! !------------------------------------! 325 323 ! 326 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist327 324 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 328 325 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 329 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist330 326 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 331 327 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) … … 505 501 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 506 502 IF( numrun /= -1 ) CLOSE( numrun ) ! run statistics file 507 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist508 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist509 503 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 510 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist511 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist512 504 IF( lwm.AND.numoni /= -1 ) CLOSE( numoni ) ! ice output namelist 513 505 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution)
Note: See TracChangeset
for help on using the changeset viewer.