Ignore:
Timestamp:
Apr 22, 2010, 4:27:06 PM (15 years ago)
Author:
lguez
Message:

Bug fix. In program "create_etat0_limit", some variables written to
"startphy.nc" were not defined. (Potential crash in program "gcm",
procedure "phyetat0".)

Location:
LMDZ4/branches/LMDZ4V5.0-dev/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/etat0_netcdf.F

    r1322 r1370  
    760760      wake_cstar(:) = 0.
    761761      wake_fip(:) = 0.
     762      wake_pe = 0.
     763      fm_therm = 0.
     764      entr_therm = 0.
     765      detr_therm = 0.
    762766
    763767      call fonte_neige_init(run_off_lic_0)

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/etat0_netcdf.F

    r1322 r1370  
    99      USE ioipsl
    1010      USE dimphy
     11      USE control_mod
    1112      USE infotrac
    1213      USE fonte_neige_mod
    … …  
    1415      USE phys_state_var_mod
    1516      USE filtreg_mod
    16       USE control_mod
    1717      use regr_lat_time_climoz_m, only: regr_lat_time_climoz
    1818      use conf_phys_m, only: conf_phys
    … …  
    144144      REAL      :: solarlong0
    145145      real :: seuil_inversion
    146       REAL :: alp_offset
     146      real :: alp_offset
    147147
    148148      integer  read_climoz ! read ozone climatology
    … …  
    760760      wake_cstar(:) = 0.
    761761      wake_fip(:) = 0.
     762      wake_pe = 0.
     763      fm_therm = 0.
     764      entr_therm = 0.
     765      detr_therm = 0.
    762766
    763767      call fonte_neige_init(run_off_lic_0)
Note: See TracChangeset for help on using the changeset viewer.