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

Timestamp:

Nov 6, 2015, 6:30:34 PM (9 years ago)

Author:

musat

Message:

Correction calcul sea level pressure (slp) cf. Arpege-IFS
Ajout initialisation cldfrarad

File:

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

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -239 +239 @@
 
 !Ajout de celles nécessaires au phys_output_write_mod
-      REAL, SAVE, ALLOCATABLE :: slp(:)
-!$OMP THREADPRIVATE(slp)
+      REAL, SAVE, ALLOCATABLE :: tal1(:), pal1(:), pab1(:), pab2(:)
+!$OMP THREADPRIVATE(tal1, pal1, pab1, pab2)
+      REAL, SAVE, ALLOCATABLE :: ptstar(:), pt0(:), slp(:)
+!$OMP THREADPRIVATE(ptstar, pt0, slp)
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: sens, flwp, fiwp 
 !$OMP THREADPRIVATE(sens, flwp, fiwp)
@@ -507 +509 @@
 ! FH Ajout de celles nécessaires au phys_output_write_mod
 
-      ALLOCATE(slp(klon))
+      ALLOCATE(tal1(klon), pal1(klon), pab1(klon), pab2(klon))
+      ALLOCATE(ptstar(klon),pt0(klon),slp(klon))
       ALLOCATE(ale_wake(klon), alp_wake(klon), bils(klon))
       ALLOCATE(cdragm(klon), cdragh(klon), cldh(klon), cldl(klon))
@@ -709 +712 @@
 
 ! FH Ajout de celles nécessaires au phys_output_write_mod
-      DEALLOCATE(slp)
+      DEALLOCATE(tal1, pal1, pab1, pab2)
+      DEALLOCATE(ptstar, pt0, slp)
       DEALLOCATE(ale_wake, alp_wake, bils)
       DEALLOCATE(cdragm, cdragh, cldh, cldl)