- 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/TOP/trcnam.F90
r11949 r11960 105 105 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 106 106 ! 107 CALL ctl_opn( numnat_ref, 'namelist_top_ref' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)108 CALL ctl_opn( numnat_cfg, 'namelist_top_cfg' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)107 CALL load_nml( numnat_ref, 'namelist_top_ref' , numout, lwm ) 108 CALL load_nml( numnat_cfg, 'namelist_top_cfg' , numout, lwm ) 109 109 IF(lwm) CALL ctl_opn( numont, 'output.namelist.top', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., 1 ) 110 110 ! 111 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables112 111 READ ( numnat_ref, namtrc_run, IOSTAT = ios, ERR = 901) 113 112 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' ) 114 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables115 113 READ ( numnat_cfg, namtrc_run, IOSTAT = ios, ERR = 902 ) 116 114 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' ) … … 150 148 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 151 149 152 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables153 150 READ ( numnat_ref, namtrc, IOSTAT = ios, ERR = 901) 154 151 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' ) 155 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables156 152 READ ( numnat_cfg, namtrc, IOSTAT = ios, ERR = 902 ) 157 153 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' ) … … 220 216 IF( ll_cfc .OR. ln_c14 ) THEN 221 217 ! ! Open namelist files 222 CALL ctl_opn( numtrc_ref, 'namelist_trc_ref' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)223 CALL ctl_opn( numtrc_cfg, 'namelist_trc_cfg' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)218 CALL load_nml( numtrc_ref, 'namelist_trc_ref' , numout, lwm ) 219 CALL load_nml( numtrc_cfg, 'namelist_trc_cfg' , numout, lwm ) 224 220 IF(lwm) CALL ctl_opn( numonr, 'output.namelist.trc', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 225 221 ! … … 253 249 ALLOCATE( ln_trdtrc(jptra) ) 254 250 ! 255 REWIND( numnat_ref ) ! Namelist namtrc_trd in reference namelist : Passive tracer trends256 251 READ ( numnat_ref, namtrc_trd, IOSTAT = ios, ERR = 905) 257 252 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in reference namelist' ) 258 REWIND( numnat_cfg ) ! Namelist namtrc_trd in configuration namelist : Passive tracer trends259 253 READ ( numnat_cfg, namtrc_trd, IOSTAT = ios, ERR = 906 ) 260 254 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.