Changeset 1222 for trunk/LMDZ.GENERIC

Timestamp:

Apr 11, 2014, 3:42:30 PM (11 years ago)

Author:

emillour

Message:

Generic model:

• Bug fix, changes in albedo or thermal inertia done in newstart were not correctly taken into account in the restart files.

EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/phyredem.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/phyredem.F90

@@ -9 +9 @@
                          alb,ith,pzmea,pzstd,pzsig,pzgam,pzthe)
 ! create physics restart file and write time-independent variables
-  use comsoil_h, only: inertiedat, volcapa, mlayer
+  use comsoil_h, only: volcapa, mlayer
   use comgeomfi_h, only: area
-  use surfdat_h, only: albedodat, zmea, zstd, zsig, zgam, zthe, &
+  use surfdat_h, only: zmea, zstd, zsig, zgam, zthe, &
                        albedice, emisice, emissiv, &
                        iceradius, dtemisice, phisfi
@@ -116 +116 @@
   
   ! Write surface albedo
-  call put_field("albedodat","Albedo of bare ground",albedodat)
+  call put_field("albedodat","Albedo of bare ground",alb)
   
   ! Subgrid topogaphy variables
@@ -126 +126 @@
   
   ! Soil thermal inertia
-  call put_field("inertiedat","Soil thermal inertia",inertiedat)
+  call put_field("inertiedat","Soil thermal inertia",ith)
   
   ! Close file