Changeset 14037 for NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/OCE/DOM/daymod.F90
- Timestamp:
- 2020-12-03T12:20:38+01:00 (3 years ago)
- Location:
- NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette @13292sette10 ^/utils/CI/sette_wave@13990 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r13333_KERNEL-08_techene_gm_HPG_SPG/src/OCE/DOM/daymod.F90
r13286 r14037 82 82 ndt05 = NINT( 0.5 * rn_Dt ) 83 83 84 IF( .NOT. l_offline ) CALL day_rst( nit000, 'READ' ) 85 84 lrst_oce = .NOT. l_offline ! force definition of offline 85 IF( lrst_oce ) CALL day_rst( nit000, 'READ' ) 86 86 87 ! set the calandar from ndastp (read in restart file and namelist) 87 88 nyear = ndastp / 10000 … … 148 149 CALL day( nit000 ) 149 150 ! 150 IF( lwxios ) THEN151 ! define variables in restart file when writing with XIOS152 CALL iom_set_rstw_var_active('kt')153 CALL iom_set_rstw_var_active('ndastp')154 CALL iom_set_rstw_var_active('adatrj')155 CALL iom_set_rstw_var_active('ntime')156 ENDIF157 158 151 END SUBROUTINE day_init 159 152 … … 323 316 324 317 IF( TRIM(cdrw) == 'READ' ) THEN 325 326 318 IF( iom_varid( numror, 'kt', ldstop = .FALSE. ) > 0 ) THEN 327 319 ! Get Calendar informations 328 CALL iom_get( numror, 'kt', zkt , ldxios = lrxios) ! last time-step of previous run320 CALL iom_get( numror, 'kt', zkt ) ! last time-step of previous run 329 321 IF(lwp) THEN 330 322 WRITE(numout,*) ' *** Info read in restart : ' … … 345 337 IF ( nrstdt == 2 ) THEN 346 338 ! read the parameters corresponding to nit000 - 1 (last time step of previous run) 347 CALL iom_get( numror, 'ndastp', zndastp , ldxios = lrxios)339 CALL iom_get( numror, 'ndastp', zndastp ) 348 340 ndastp = NINT( zndastp ) 349 CALL iom_get( numror, 'adatrj', adatrj , ldxios = lrxios)350 CALL iom_get( numror, 'ntime' , ktime , ldxios = lrxios)341 CALL iom_get( numror, 'adatrj', adatrj ) 342 CALL iom_get( numror, 'ntime' , ktime ) 351 343 nn_time0 = NINT(ktime) 352 344 ! calculate start time in hours and minutes … … 409 401 ENDIF 410 402 ! calendar control 411 IF( lwxios ) CALL iom_swap( cwxios_context ) 412 CALL iom_rstput( kt, nitrst, numrow, 'kt' , REAL( kt , wp) , ldxios = lwxios ) ! time-step 413 CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp) , ldxios = lwxios ) ! date 414 CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj , ldxios = lwxios ) ! number of elapsed days since 403 CALL iom_rstput( kt, nitrst, numrow, 'kt' , REAL( kt , wp) ) ! time-step 404 CALL iom_rstput( kt, nitrst, numrow, 'ndastp' , REAL( ndastp, wp) ) ! date 405 CALL iom_rstput( kt, nitrst, numrow, 'adatrj' , adatrj ) ! number of elapsed days since 415 406 ! ! the begining of the run [s] 416 CALL iom_rstput( kt, nitrst, numrow, 'ntime' , REAL( nn_time0, wp), ldxios = lwxios ) ! time 417 IF( lwxios ) CALL iom_swap( cxios_context ) 407 CALL iom_rstput( kt, nitrst, numrow, 'ntime' , REAL( nn_time0, wp) ) ! time 418 408 ENDIF 419 409 !
Note: See TracChangeset
for help on using the changeset viewer.