Changeset 2410 for LMDZ5/trunk/libf/phylmd/surf_land_mod.F90

Timestamp:

Dec 16, 2015, 9:10:00 AM (9 years ago)

Author:

jghattas

Message:

Added the variable yrmu0(cosine of the solar zenith angle) into ORCHIDEE:

Current version of LMDZ can now be used with ORCHIDEE trunk revisions from rev 2961 and newer. For revision 1078-2960 on ORCHIDEE trunk, a small modification (change coszang into sinang) in surf_land_orchidee_mod.f90 is needed. For older versions than ORCHIDEE trunk revision 1078, the interface in surf_land_orchidee_noopenmp_mod.f90 should be used (add cpp key ORCHIDEE_NOOPENMP).

For details see ticket ​https://forge.ipsl.jussieu.fr/orchidee/ticket/217

File:

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

LMDZ5/trunk/libf/phylmd/surf_land_mod.F90

@@ -9 +9 @@
 !  
   SUBROUTINE surf_land(itime, dtime, date0, jour, knon, knindex, &
-       rlon, rlat, &
+       rlon, rlat, yrmu0, &
        debut, lafin, zlev, ccanopy, swnet, lwnet, albedo, &
        tsurf, p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, &
@@ -45 +45 @@
     REAL, INTENT(IN)                        :: date0
     REAL, DIMENSION(klon), INTENT(IN)       :: rlon, rlat
+    REAL, DIMENSION(klon), INTENT(IN)       :: yrmu0  ! cosine of solar zenith angle
     LOGICAL, INTENT(IN)                     :: debut, lafin
     REAL, INTENT(IN)                        :: dtime
@@ -132 +133 @@
        ! temporary for keeping same results using lwdown_m instead of lwdown
        CALL surf_land_orchidee(itime, dtime, date0, knon, &
-            knindex, rlon, rlat, pctsrf, &
+            knindex, rlon, rlat, yrmu0, pctsrf, &
             debut, lafin, &
             zlev,  u1, v1, gustiness, temp_air, spechum, epot_air, ccanopy, &