Changeset 11822 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/TRP/trcadv.F90
- Timestamp:
- 2019-10-29T11:41:36+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/TRP/trcadv.F90
r10966 r11822 168 168 REWIND( numnat_ref ) ! namtrc_adv in reference namelist 169 169 READ ( numnat_ref, namtrc_adv, IOSTAT = ios, ERR = 901) 170 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in reference namelist' , lwp)170 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in reference namelist' ) 171 171 REWIND( numnat_cfg ) ! namtrc_adv in configuration namelist 172 172 READ ( numnat_cfg, namtrc_adv, IOSTAT = ios, ERR = 902 ) 173 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_adv in configuration namelist' , lwp)173 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_adv in configuration namelist' ) 174 174 IF(lwm) WRITE ( numont, namtrc_adv ) 175 175 !
Note: See TracChangeset
for help on using the changeset viewer.