Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

    r2601 r2673  
    3838  USE comconst_mod, ONLY: pi, cpp, kappa
    3939  USE comvert_mod, ONLY: ap, bp, preff, pressure_exner
    40   USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itau_phy
     40  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itau_phy, start_time
    4141 
    4242  IMPLICIT NONE
     
    172172  CALL caldyn0( itau, uvent, vvent, tpot, psol, masse, pk, phis,               &
    173173                phi,  w, pbaru, pbarv, time+iday-dayref)
    174   WRITE(lunout,*)'sortie caldyn0'     
     174  WRITE(lunout,*)'sortie caldyn0'
     175  start_time = 0.
    175176#ifdef CPP_PARA
    176177  CALL dynredem0_loc( "start.nc", dayref, phis)
Note: See TracChangeset for help on using the changeset viewer.