Changeset 2924 for LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phys_state_var_mod.F90

Timestamp:

Jun 30, 2017, 12:00:23 PM (7 years ago)

Author:

fcheruy

Message:

Creation of LMDZ branch to incorporate tree drag from ORCHIDEE.
Should merge in LMDZ trunk quickly

6. Cheruy with assistance from LF

Location:

LMDZ5/branches/LMDZ_tree_FC

Files:

• . (copied) (copied from LMDZ5/trunk)
• libf/phylmd/phys_state_var_mod.F90 (modified) (3 diffs)

LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/phys_state_var_mod.F90

@@ -32 +32 @@
       REAL,ALLOCATABLE,SAVE :: qsol(:),fevap(:,:),z0m(:,:),z0h(:,:),agesno(:,:)
 !$OMP THREADPRIVATE(qsol,fevap,z0m,z0h,agesno)
+!FC drag des arbres
+      REAL, ALLOCATABLE, SAVE :: treedrg(:,:,:)
+!$OMP THREADPRIVATE(treedrg)
+
 !      character(len=6), SAVE :: ocean
 !!!!!!$OMP THREADPRIVATE(ocean)
@@ -430 +434 @@
       ALLOCATE(qsol(klon),fevap(klon,nbsrf))
       ALLOCATE(z0m(klon,nbsrf+1),z0h(klon,nbsrf+1),agesno(klon,nbsrf))
+!FC
+      ALLOCATE(treedrg(klon,klev,nbsrf))
       ALLOCATE(falb1(klon,nbsrf))
       ALLOCATE(falb2(klon,nbsrf))
@@ -603 +609 @@
       deallocate(pctsrf, ftsol, falb1, falb2)
       deallocate(qsol,fevap,z0m,z0h,agesno)
+!FC
+      deallocate(treedrg)
       deallocate(rain_fall, snow_fall, solsw, sollw, radsol, swradcorr)
       deallocate(zmea, zstd, zsig, zgam)