Changeset 2220 for LMDZ5/branches/testing/libf/phylmd/surf_land_mod.F90

Timestamp:

Mar 3, 2015, 2:41:13 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2186:2216 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/surf_land_mod.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/surf_land_mod.F90

@@ -85 +85 @@
     REAL, DIMENSION(klon) :: pref_tmp
     REAL, DIMENSION(klon) :: swdown     ! downwelling shortwave radiation at land surface
-    REAL, DIMENSION(klon) :: lwdown     ! downwelling longwave radiation at land surface
     REAL, DIMENSION(klon) :: epot_air           ! potential air temperature
     REAL, DIMENSION(klon) :: tsol_rad, emis_new ! output from interfsol not used
@@ -106 +105 @@
        pref_tmp(1:knon)  = pref(1:knon)/100.
 ! 
-!* Calculate incoming flux for SW and LW interval: swdown, lwdown
+!* Calculate incoming flux for SW and LW interval: swdown
 !
        swdown(:) = 0.0
-       lwdown(:) = 0.0
        DO i = 1, knon
           swdown(i) = swnet(i)/(1-albedo(i))
-          lwdown(i) = lwnet(i) + RSIGMA*tsurf(i)**4
        END DO
 !