Changeset 1370

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:

• dyn3d/etat0_netcdf.F (modified) (1 diff)
• dyn3dpar/etat0_netcdf.F (modified) (4 diffs)

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

@@ -760 +760 @@
       wake_cstar(:) = 0.
       wake_fip(:) = 0.
+      wake_pe = 0.
+      fm_therm = 0.
+      entr_therm = 0.
+      detr_therm = 0.
 
       call fonte_neige_init(run_off_lic_0)

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

@@ -9 +9 @@
       USE ioipsl
       USE dimphy
+      USE control_mod
       USE infotrac
       USE fonte_neige_mod
@@ -14 +15 @@
       USE phys_state_var_mod
       USE filtreg_mod
-      USE control_mod
       use regr_lat_time_climoz_m, only: regr_lat_time_climoz
       use conf_phys_m, only: conf_phys
@@ -144 +144 @@
       REAL      :: solarlong0
       real :: seuil_inversion
-      REAL :: alp_offset
+      real :: alp_offset
 
       integer  read_climoz ! read ozone climatology
@@ -760 +760 @@
       wake_cstar(:) = 0.
       wake_fip(:) = 0.
+      wake_pe = 0.
+      fm_therm = 0.
+      entr_therm = 0.
+      detr_therm = 0.
 
       call fonte_neige_init(run_off_lic_0)