Changeset 1865 for LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Sep 13, 2013, 10:26:46 AM (12 years ago)

Author:

Laurent Fairhead

Message:

Inclusion de la bibliothèque SISVAT/MAR à LMDZ pour le traitement des surfaces
"land ice"

13. Menegoz

---

Integration of the SISVAT/MAR library to LMDZ to model the land ice surfaces

13. Menegoz

File:

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

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -264 +264 @@
 !$OMP THREADPRIVATE(rneb)
 
+! variables de sorties MM
+      REAL, ALLOCATABLE,DIMENSION(:) :: zxsnow,snowhgt,qsnow,to_ice
+      REAL, ALLOCATABLE,DIMENSION(:) :: sissnow,runoff,albsol3_lic
+
 CONTAINS
 
@@ -414 +418 @@
 
 
+      ALLOCATE (zxsnow(klon),snowhgt(klon),qsnow(klon),to_ice(klon),sissnow(klon),runoff(klon),albsol3_lic(klon))
+
+
+
 END SUBROUTINE phys_local_var_init
 
@@ -554 +562 @@
       DEALLOCATE(beta_prec)
       DEALLOCATE(rneb)
+      DEALLOCATE (zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic)
 
 END SUBROUTINE phys_local_var_end