Changeset 3391 for LMDZ6/trunk/libf/phylmd/surf_land_mod.F90

Timestamp:

Sep 16, 2018, 5:52:25 PM (6 years ago)

Author:

oboucher

Message:

Fields can now be passed to ORCHIDEE through surf_land_orchidee.
Fields are compressed in pbl_surface_mod and uncompressed in surf_land_orchidee.
Cosmetic changes, including in surf_land_mod.

File:

• LMDZ6/trunk/libf/phylmd/surf_land_mod.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/surf_land_mod.F90

@@ -24 +24 @@
     USE dimphy
     USE surface_data, ONLY    : ok_veget
+! >> PC
+    USE carbon_cycle_mod 
+! << PC
 
     ! See comments in each module surf_land_orchidee_xxx for compatiblity with ORCHIDEE
@@ -47 +50 @@
     USE indice_sol_mod
 
+! >> PC
+    USE print_control_mod, ONLY: lunout
+! << PC
+
     INCLUDE "dimsoil.h"
     INCLUDE "YOMCST.h"
     INCLUDE "clesphys.h"
     INCLUDE "dimpft.h"
-
 
 ! Input variables  
@@ -118 +124 @@
 !albedo SB <<<
 
-
 !**************************************************************************************** 
 ! Choice between call to vegetation model (ok_veget=true) or simple calculation below
@@ -159 +164 @@
             emis_new, z0m, z0h, qsurf, &
             veget, lai, height)       
-
-
 !  
 !* Add contribution of relief to surface roughness
@@ -198 +201 @@
 
 !albedo SB >>>
-
-
-     select case(NSW)
-     case(2)
+     SELECT CASE(NSW)
+     CASE(2)
        alb_dir_new(1:knon,1)=alb1_new(1:knon)
        alb_dir_new(1:knon,2)=alb2_new(1:knon)
-     case(4)
+     CASE(4)
        alb_dir_new(1:knon,1)=alb1_new(1:knon)
        alb_dir_new(1:knon,2)=alb2_new(1:knon)
        alb_dir_new(1:knon,3)=alb2_new(1:knon)
        alb_dir_new(1:knon,4)=alb2_new(1:knon)
-     case(6)
+     CASE(6)
        alb_dir_new(1:knon,1)=alb1_new(1:knon)
        alb_dir_new(1:knon,2)=alb1_new(1:knon)
@@ -216 +217 @@
        alb_dir_new(1:knon,5)=alb2_new(1:knon)
        alb_dir_new(1:knon,6)=alb2_new(1:knon)
-     end select
-alb_dif_new=alb_dir_new
+     END SELECT
+
+     alb_dif_new=alb_dir_new
 !albedo SB <<<
-
-
     
   END SUBROUTINE surf_land