Changeset 11692 for NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/C14/trcnam_c14.F90
- Timestamp:
- 2019-10-12T16:08:18+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/C14/trcnam_c14.F90
r10069 r11692 63 63 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist : 64 64 READ ( numtrc_ref, namc14_typ, IOSTAT = ios, ERR = 901) 65 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_typ in reference namelist' , lwp)65 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_typ in reference namelist' ) 66 66 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist 67 67 READ ( numtrc_cfg, namc14_typ, IOSTAT = ios, ERR = 902) 68 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_typ in configuration namelist' , lwp)68 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_typ in configuration namelist' ) 69 69 IF(lwm) WRITE ( numonr, namc14_typ ) 70 70 ! … … 80 80 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist : 81 81 READ ( numtrc_ref, namc14_sbc, IOSTAT = ios, ERR = 903) 82 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_sbc in reference namelist' , lwp)82 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_sbc in reference namelist' ) 83 83 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist 84 84 READ ( numtrc_cfg, namc14_sbc, IOSTAT = ios, ERR = 904) 85 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_sbc in configuration namelist' , lwp)85 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_sbc in configuration namelist' ) 86 86 IF(lwm) WRITE( numonr, namc14_sbc ) 87 87 ! … … 96 96 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist : 97 97 READ ( numtrc_ref, namc14_fcg, IOSTAT = ios, ERR = 905) 98 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_fcg in reference namelist' , lwp)98 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_fcg in reference namelist' ) 99 99 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist 100 100 READ ( numtrc_cfg, namc14_fcg, IOSTAT = ios, ERR = 906) 101 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_fcg in configuration namelist' , lwp)101 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_fcg in configuration namelist' ) 102 102 IF(lwm) WRITE ( numonr, namc14_fcg ) 103 103 !
Note: See TracChangeset
for help on using the changeset viewer.