Changeset 4624 for trunk/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
- Timestamp:
- 2014-04-28T14:09:03+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r4319 r4624 128 128 READ ( numnat_cfg, namtrc_trd, IOSTAT = ios, ERR = 906 ) 129 129 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist', lwp ) 130 WRITE ( numont, namtrc_trd )130 IF(lwm) WRITE ( numont, namtrc_trd ) 131 131 132 132 IF(lwp) THEN … … 187 187 CALL ctl_opn( numnat_ref, 'namelist_top_ref' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 188 188 CALL ctl_opn( numnat_cfg, 'namelist_top_cfg' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 189 CALL ctl_opn( numont, 'output.namelist.top', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., 1 )189 IF(lwm) CALL ctl_opn( numont, 'output.namelist.top', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., 1 ) 190 190 191 191 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables … … 196 196 READ ( numnat_cfg, namtrc_run, IOSTAT = ios, ERR = 902 ) 197 197 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist', lwp ) 198 WRITE ( numont, namtrc_run )198 IF(lwm) WRITE ( numont, namtrc_run ) 199 199 200 200 ! computes the first time step of tracer model … … 242 242 READ ( numnat_cfg, namtrc, IOSTAT = ios, ERR = 902 ) 243 243 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist', lwp ) 244 WRITE ( numont, namtrc )244 IF(lwm) WRITE ( numont, namtrc ) 245 245 246 246 DO jn = 1, jptra … … 291 291 READ ( numnat_cfg, namtrc_dia, IOSTAT = ios, ERR = 904 ) 292 292 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dia in configuration namelist', lwp ) 293 WRITE ( numont, namtrc_dia )293 IF(lwm) WRITE ( numont, namtrc_dia ) 294 294 295 295 IF(lwp) THEN
Note: See TracChangeset
for help on using the changeset viewer.