Changeset 2673 for LMDZ5/trunk/libf/dynphy_lonlat

Timestamp:

Oct 18, 2016, 3:30:27 PM (8 years ago)

Author:

lguez

Message:

start_time was never set by the program ce0l. So there was a NaN in
variable controle of start.nc. This led to an error in gcm, in debug
mode, at line 274:

IF (start_time /= starttime) then

when reading from this start file.

File:

• LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

@@ -38 +38 @@
   USE comconst_mod, ONLY: pi, cpp, kappa
   USE comvert_mod, ONLY: ap, bp, preff, pressure_exner
-  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itau_phy
+  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itau_phy, start_time
   
   IMPLICIT NONE
@@ -172 +172 @@
   CALL caldyn0( itau, uvent, vvent, tpot, psol, masse, pk, phis,               &
                 phi,  w, pbaru, pbarv, time+iday-dayref)
-  WRITE(lunout,*)'sortie caldyn0'     
+  WRITE(lunout,*)'sortie caldyn0'
+  start_time = 0.
 #ifdef CPP_PARA
   CALL dynredem0_loc( "start.nc", dayref, phis)