Changeset 1494 for trunk/LMDZ.GENERIC/libf/phystd/dyn1d

Timestamp:

Nov 5, 2015, 2:42:36 PM (9 years ago)

Author:

mturbet

Message:

minor corrections in rcm1d

File:

• trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

@@ -6 +6 @@
       use surfdat_h, only: albedodat, phisfi, dryness, watercaptag,
      &                     zmea, zstd, zsig, zgam, zthe,
-     &                     emissiv, emisice, albedice, iceradius,
+     &                     emissiv, emisice, iceradius,
      &                     dtemisice
       use comdiurn_h, only: sinlat, coslat, sinlon, coslon
@@ -185 +185 @@
       emisice(2)=0.95            ! Emissivite calotte sud  
 
-      albedice(1)=0.5            ! Albedo calotte nord
-      albedice(2)=0.5            ! Albedo calotte sud
       iceradius(1) = 100.e-6     ! mean scat radius of CO2 snow (north)
       iceradius(2) = 100.e-6     ! mean scat radius of CO2 snow (south)