- Timestamp:
- 2020-09-14T17:40:34+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@13382 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11351_fldread_with_XIOS/src/TOP/C14/trcnam_c14.F90
r10069 r13463 61 61 ln_trc_obc(jp_c14) = .false. 62 62 ! 63 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist :64 63 READ ( numtrc_ref, namc14_typ, IOSTAT = ios, ERR = 901) 65 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_typ in reference namelist', lwp ) 66 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist 64 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_typ in reference namelist' ) 67 65 READ ( numtrc_cfg, namc14_typ, IOSTAT = ios, ERR = 902) 68 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_typ in configuration namelist' , lwp)66 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_typ in configuration namelist' ) 69 67 IF(lwm) WRITE ( numonr, namc14_typ ) 70 68 ! … … 78 76 ENDIF 79 77 80 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist :81 78 READ ( numtrc_ref, namc14_sbc, IOSTAT = ios, ERR = 903) 82 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_sbc in reference namelist', lwp ) 83 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist 79 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_sbc in reference namelist' ) 84 80 READ ( numtrc_cfg, namc14_sbc, IOSTAT = ios, ERR = 904) 85 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_sbc in configuration namelist' , lwp)81 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_sbc in configuration namelist' ) 86 82 IF(lwm) WRITE( numonr, namc14_sbc ) 87 83 ! … … 94 90 ENDIF 95 91 96 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist :97 92 READ ( numtrc_ref, namc14_fcg, IOSTAT = ios, ERR = 905) 98 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_fcg in reference namelist', lwp ) 99 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist 93 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_fcg in reference namelist' ) 100 94 READ ( numtrc_cfg, namc14_fcg, IOSTAT = ios, ERR = 906) 101 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_fcg in configuration namelist' , lwp)95 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_fcg in configuration namelist' ) 102 96 IF(lwm) WRITE ( numonr, namc14_fcg ) 103 97 !
Note: See TracChangeset
for help on using the changeset viewer.