Changeset 2501


Ignore:
Timestamp:
Apr 21, 2021, 5:04:10 PM (4 years ago)
Author:
adelavois
Message:

update of ztime_fin (variable "Time" stored in startfi.nc) for Dynamico
where the addition of a dynamical timestep is no longer needed

Location:
trunk/LMDZ.MARS
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.MARS/README

    r2494 r2501  
    33243324- phyredem.F: remove co2_ice from qsurf since co2_ice => co2ice
    33253325- watercloud_mod.F: tiny typo
     3326
     3327== 21/04/2021 == AD
     3328- update of ztime_fin (variable "Time" stored in startfi.nc) for Dynamico
     3329  where the addition of a dynamical timestep is no longer needed
     3330 
  • trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

    r2494 r2501  
    9494      use wxios, only: wxios_context_init, xios_context_finalize
    9595#endif
    96 
     96      USE mod_grid_phy_lmdz, ONLY: grid_type, unstructured
    9797
    9898      IMPLICIT NONE
     
    22962296          ztime_fin = pday + ptime  + ptimestep/(float(iphysiq)*daysec)
    22972297     .               - day_ini - time_phys
    2298           print*, pday,ptime,day_ini, time_phys
     2298          IF (grid_type==unstructured) THEN
     2299             ! When running Dynamico, no need to add a dynamics time step to ztime_fin
     2300             IF (ptime.LE. 1.E-10) THEN
     2301             ! Residual ptime occurs with Dynamico
     2302             ztime_fin = pday !+ ptime + ptimestep/(float(iphysiq)*daysec)
     2303     .               - day_ini - time_phys
     2304             ELSE
     2305             ztime_fin = pday + ptime  !+ ptimestep/(float(iphysiq)*daysec)
     2306     .                  - day_ini - time_phys
     2307             ENDIF
     2308          ENDIF
    22992309          write(*,'(A,I7,A,F12.5)')
    23002310     .         'PHYSIQ: Ecriture du fichier restartfi ; icount=',
Note: See TracChangeset for help on using the changeset viewer.