Changeset 1827 for LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90

Timestamp:

Aug 6, 2013, 3:33:18 PM (12 years ago)

Author:

lguez

Message:

Changed names of variables ema_work1 and ema_work2 to more meaningful
sig1 and w01. Same change in (re)startphy.nc. phyetat0 tries to find
old names ema_work1 and ema_work2 if new names sig1 and w01 are not
found, so the program can run with an old restartphy.nc. restartphy.nc
is modified compared to the previous SVN revision because of the change of
names but the data content is not modified (this can be checked with
max_diff_nc.sh -i).

File:

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

LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -68 +68 @@
       REAL, ALLOCATABLE, SAVE :: zmax0(:), f0(:) ! 
 !$OMP THREADPRIVATE(zmax0,f0)
-      REAL, ALLOCATABLE, SAVE :: ema_work1(:,:), ema_work2(:,:)
-!$OMP THREADPRIVATE(ema_work1,ema_work2)
+      REAL, ALLOCATABLE, SAVE :: sig1(:,:), w01(:,:)
+!$OMP THREADPRIVATE(sig1,w01)
       REAL, ALLOCATABLE, SAVE :: entr_therm(:,:), fm_therm(:,:)
 !$OMP THREADPRIVATE(entr_therm,fm_therm)
@@ -400 +400 @@
       ALLOCATE(coefm(klon,klev+1,nbsrf+1))
       ALLOCATE(zmax0(klon), f0(klon))
-      ALLOCATE(ema_work1(klon,klev), ema_work2(klon,klev))
+      ALLOCATE(sig1(klon,klev), w01(klon,klev))
       ALLOCATE(entr_therm(klon,klev), fm_therm(klon,klev+1))
       ALLOCATE(detr_therm(klon,klev))
@@ -536 +536 @@
       deallocate(ratqs, pbl_tke,coefh,coefm)
       deallocate(zmax0, f0)
-      deallocate(ema_work1, ema_work2)
+      deallocate(sig1, w01)
       deallocate(entr_therm, fm_therm)
       deallocate(detr_therm)