Changeset 2571 for LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

Timestamp:

Jun 14, 2016, 1:51:43 PM (8 years ago)

Author:

jghattas

Message:

Interface LMDZ/ORCHIDEE :

• copied previous default module surf_land_orchidee_mod.f90 into surf_land_orchidee_noz0h.f90. This interface can still be compiled if adding cpp key ORCHIDEE_NOZ0H
• modified default interface by adding z0h as output from ORCHIDEE.
• added comments in each module surf_land_orchidee_xxx of compatiblity with ORCHIDEE.
• all modules surf_land_orchidee_xxx now send back z0h and z0m to surf_land_mod. But note that z0m and zOh are different only in the new default version surf_land_orchidee_mod.f90. In the old interfaces, z0h is a copy of z0m.

cosp : some small changes to be able to compile with gfortran

File:

• LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

@@ -44 +44 @@
        evap, fluxsens, fluxlat, &              
        tsol_rad, tsurf_new, alb1_new, alb2_new, &
-       emis_new, z0_new, qsurf)
+       emis_new, z0_new, z0h_new, qsurf)
 !    
 ! Cette routine sert d'interface entre le modele atmospherique et le 
@@ -95 +95 @@
 !   emis_new     emissivite
 !   z0_new       surface roughness
+!   z0h_new      surface roughness, it is the same as z0_new
 !   qsurf        air moisture at surface
 !
@@ -136 +137 @@
     REAL, DIMENSION(klon), INTENT(OUT)        :: tsol_rad, tsurf_new
     REAL, DIMENSION(klon), INTENT(OUT)        :: alb1_new, alb2_new
-    REAL, DIMENSION(klon), INTENT(OUT)        :: emis_new, z0_new
+    REAL, DIMENSION(klon), INTENT(OUT)        :: emis_new, z0_new, z0h_new
 
 ! Local
@@ -496 +497 @@
 
     albedo_keep(1:knon) = (albedo_out(1:knon,1)+albedo_out(1:knon,2))/2.
+    
+    ! ORCHIDEE only gives one value for z0_new. Copy it into z0h_new.
+    z0h_new(:)=z0_new(:)
 
 !* Send to coupler