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

Timestamp:

Apr 22, 2010, 4:27:06 PM (14 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".)

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/etat0_netcdf.F (modified) (1 diff)

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)