Changeset 2501
- Timestamp:
- Apr 21, 2021, 5:04:10 PM (4 years ago)
- Location:
- trunk/LMDZ.MARS
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/README
r2494 r2501 3324 3324 - phyredem.F: remove co2_ice from qsurf since co2_ice => co2ice 3325 3325 - 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 94 94 use wxios, only: wxios_context_init, xios_context_finalize 95 95 #endif 96 96 USE mod_grid_phy_lmdz, ONLY: grid_type, unstructured 97 97 98 98 IMPLICIT NONE … … 2296 2296 ztime_fin = pday + ptime + ptimestep/(float(iphysiq)*daysec) 2297 2297 . - 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 2299 2309 write(*,'(A,I7,A,F12.5)') 2300 2310 . 'PHYSIQ: Ecriture du fichier restartfi ; icount=',
Note: See TracChangeset
for help on using the changeset viewer.