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

Timestamp:

Jan 17, 2015, 2:00:00 PM (9 years ago)

Author:

jyg

Message:

1/ Update of the loop on sub-surfaces in pbl_surface_mod.F90 : all initializations
are removed from the loop and put before the loop.
2/ The possibility of nudging RH, T, u, and v is added in lmdz1d.F90 (and in
1DUTILS.h).

File:

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

LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -278 +278 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: zxfluxlat_x, zxfluxlat_w
 !$OMP THREADPRIVATE(zxfluxlat_x, zxfluxlat_w)
-! Entrées supplémentaires couche-limite
-      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: t_x, t_w
-!$OMP THREADPRIVATE(t_x, t_w)
-      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: q_x, q_w
-!$OMP THREADPRIVATE(q_x, q_w)
-! Sorties ferret
+!jyg<
+!!! Entrées supplémentaires couche-limite
+!!      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: t_x, t_w
+!!!$OMP THREADPRIVATE(t_x, t_w)
+!!      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: q_x, q_w
+!!!$OMP THREADPRIVATE(q_x, q_w)
+!>jyg
+!!! Sorties ferret
       REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: dtvdf_x, dtvdf_w
 !$OMP THREADPRIVATE(dtvdf_x, dtvdf_w)
@@ -516 +518 @@
       ALLOCATE(sens_x(klon), sens_w(klon))
       ALLOCATE(zxfluxlat_x(klon), zxfluxlat_w(klon))
-      ALLOCATE(t_x(klon,klev), t_w(klon,klev))
-      ALLOCATE(q_x(klon,klev), q_w(klon,klev))
+!jyg<
+!!      ALLOCATE(t_x(klon,klev), t_w(klon,klev))
+!!      ALLOCATE(q_x(klon,klev), q_w(klon,klev))
+!>jyg
       ALLOCATE(dtvdf_x(klon,klev), dtvdf_w(klon,klev))
       ALLOCATE(dqvdf_x(klon,klev), dqvdf_w(klon,klev))
@@ -710 +714 @@
       DEALLOCATE(sens_x, sens_w)
       DEALLOCATE(zxfluxlat_x, zxfluxlat_w)
-      DEALLOCATE(t_x, t_w)
-      DEALLOCATE(q_x, q_w)
+!jyg<
+!!      DEALLOCATE(t_x, t_w)
+!!      DEALLOCATE(q_x, q_w)
+!>jyg
       DEALLOCATE(dtvdf_x, dtvdf_w)
       DEALLOCATE(dqvdf_x, dqvdf_w)