Changeset 996 for LMDZ4/trunk/libf/phylmd/surf_land_mod.F90

Timestamp:

Sep 9, 2008, 3:22:23 PM (16 years ago)

Author:

lsce

Message:

• Modifications liées au calcul des nouveau sous-fractions
• Nettoyage de ocean slab : il reste uniquement la version avec glace de mer forcé
• Nouveaux variables pour distiguer la version et type d'ocean : type_ocean=force/slab/couple, version_ocean=opa8/nemo pour couplé ou version_ocean=sicOBS pour slab

JG

File:

• LMDZ4/trunk/libf/phylmd/surf_land_mod.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/surf_land_mod.F90

@@ -26 +26 @@
        snow, qsol, agesno, tsoil, &
        z0_new, alb1_new, alb2_new, evap, fluxsens, fluxlat, &
-       qsurf, tsurf_new, dflux_s, dflux_l, pctsrf_ter, &
+       qsurf, tsurf_new, dflux_s, dflux_l, &
        lwdown_m)
 
@@ -75 +75 @@
     REAL, DIMENSION(klon), INTENT(OUT)       :: tsurf_new
     REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l      
-    REAL, DIMENSION(klon), INTENT(OUT)       :: pctsrf_ter
 
 ! Local variables
@@ -154 +153 @@
     ENDIF ! ok_veget
 
-!****************************************************************************************
-! Return the pourcentage of land in each grid cell, even if not changed in here!
-!
-!****************************************************************************************
-    pctsrf_ter(:) = pctsrf(:,is_ter)
-
-
   END SUBROUTINE surf_land
 !