Changeset 11831 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/TOP/trcnam.F90
- Timestamp:
- 2019-10-29T18:14:49+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/TOP/trcnam.F90
r10425 r11831 114 114 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables 115 115 READ ( numnat_ref, namtrc_run, IOSTAT = ios, ERR = 901) 116 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' , lwp)116 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' ) 117 117 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables 118 118 READ ( numnat_cfg, namtrc_run, IOSTAT = ios, ERR = 902 ) 119 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' , lwp)119 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' ) 120 120 IF(lwm) WRITE( numont, namtrc_run ) 121 121 … … 160 160 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables 161 161 READ ( numnat_ref, namtrc, IOSTAT = ios, ERR = 901) 162 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' , lwp)162 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' ) 163 163 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables 164 164 READ ( numnat_cfg, namtrc, IOSTAT = ios, ERR = 902 ) 165 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' , lwp)165 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' ) 166 166 IF(lwm) WRITE( numont, namtrc ) 167 167 … … 263 263 REWIND( numnat_ref ) ! Namelist namtrc_trd in reference namelist : Passive tracer trends 264 264 READ ( numnat_ref, namtrc_trd, IOSTAT = ios, ERR = 905) 265 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in reference namelist' , lwp)265 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in reference namelist' ) 266 266 REWIND( numnat_cfg ) ! Namelist namtrc_trd in configuration namelist : Passive tracer trends 267 267 READ ( numnat_cfg, namtrc_trd, IOSTAT = ios, ERR = 906 ) 268 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist' , lwp)268 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist' ) 269 269 IF(lwm) WRITE( numont, namtrc_trd ) 270 270
Note: See TracChangeset
for help on using the changeset viewer.