- Timestamp:
- 2020-11-05T15:18:53+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_12905_xios_restart
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart
- 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 8 9 9 # SETTE 10 ^/utils/CI/sette@ HEADsette10 ^/utils/CI/sette@13559 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_12905_xios_restart/src/TOP/trcrst.F90
r12969 r13727 33 33 PUBLIC trc_rst_cal 34 34 35 # include "domzgr_substitute.h90" 35 36 !!---------------------------------------------------------------------- 36 37 !! NEMO/TOP 4.0 , NEMO Consortium (2018) … … 132 133 IF(lrtxios) CALL iom_swap(crtxios_context) 133 134 DO jn = 1, jptra 134 CALL iom_get( numrtr, jpdom_auto glo, 'TRN'//ctrcnm(jn), tr(:,:,:,jn,Kmm), ldxios = lrtxios )135 CALL iom_get( numrtr, jpdom_auto, 'TRN'//ctrcnm(jn), tr(:,:,:,jn,Kmm), ldxios = lrtxios ) 135 136 END DO 136 137 137 138 DO jn = 1, jptra 138 CALL iom_get( numrtr, jpdom_auto glo, 'TRB'//ctrcnm(jn), tr(:,:,:,jn,Kbb), ldxios = lrtxios )139 CALL iom_get( numrtr, jpdom_auto, 'TRB'//ctrcnm(jn), tr(:,:,:,jn,Kbb), ldxios = lrtxios ) 139 140 END DO 140 141 ! … … 280 281 ! calculate start time in hours and minutes 281 282 zdayfrac=adatrj-INT(adatrj) 282 ksecs = NINT(zdayfrac*86400) ! Nearest second to catch rounding errors in adatrj 283 ksecs = NINT(zdayfrac*86400) ! Nearest second to catch rounding errors in adatrj 283 284 ihour = INT(ksecs/3600) 284 285 iminute = ksecs/60-ihour*60 … … 301 302 adatrj = INT(adatrj) ! adatrj set to integer as nn_time0 updated 302 303 ELSE 304 ndt05 = NINT( 0.5 * rn_Dt ) ! --- WARNING --- not defined yet are we did not go through day_init 303 305 ! parameters corresponding to nit000 - 1 (as we start the step 304 306 ! loop with a call to day) 305 ndastp = ndate0 - 1! ndate0 read in the namelist in dom_nam307 ndastp = ndate0 ! ndate0 read in the namelist in dom_nam 306 308 nhour = nn_time0 / 100 307 309 nminute = ( nn_time0 - nhour * 100 )
Note: See TracChangeset
for help on using the changeset viewer.