Changeset 1221 for trunk/LMDZ.MARS/libf/phymars/phyredem.F90

Timestamp:

Apr 10, 2014, 6:43:07 PM (11 years ago)

Author:

tnavarro

Message:

Bug with snewstart utility : albedo and emissivity were not written in restartfi.nc when using a start_archive.nc !

File:

• trunk/LMDZ.MARS/libf/phymars/phyredem.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/phyredem.F90

@@ -15 +15 @@
   use comsoil_h, only: inertiedat, 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, &
                        z0_default, albedice, emisice, emissiv, &
                        iceradius, dtemisice, phisfi, z0
@@ -122 +122 @@
   
   ! Write surface albedo
-  call put_field("albedodat","Albedo of bare ground",albedodat)
+  call put_field("albedodat","Albedo of bare ground",alb)
   
   ! Subgrid topogaphy variables