Changeset 1393 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/calfis_p.F

Timestamp:

May 27, 2010, 8:51:35 AM (14 years ago)

Author:

Ehouarn Millour

Message:

Some minor fixes for the Newtonian and Shallow Water cases:
-Some initializations were done twice, causing problems with the FFT filter.
-Some CPP_EARTH preprocessing keys should in fact be CPP_IOIPSL.

Also added some useful debugging options to 'debug' mode in arch-PW6_VARGAS.fcm

EM

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/calfis_p.F (modified) (6 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/calfis_p.F

@@ -34 +34 @@
       USE dimphy
       USE mod_phys_lmdz_para, mpi_root_xx=>mpi_root 
+      USE mod_interface_dyn_phys
+      USE IOPHY
+#endif
       USE parallel, ONLY : omp_chunk, using_mpi
-      USE mod_interface_dyn_phys
       USE Write_Field
       Use Write_field_p
       USE Times
-      USE IOPHY
       USE infotrac
       USE control_mod
@@ -115 +116 @@
 c    -----------
       LOGICAL  lafin
-      REAL heure
-
+!      REAL heure
+      REAL, intent(in):: jD_cur, jH_cur
       REAL pvcov(iip1,jjm,llm)
       REAL pucov(iip1,jjp1,llm)
@@ -129 +130 @@
       REAL pdteta(iip1,jjp1,llm)
       REAL pdq(iip1,jjp1,llm,nqtot)
+      REAL flxw(iip1,jjp1,llm)  ! Flux de masse verticale sur la grille dynamique
 c
       REAL pps(iip1,jjp1)
@@ -144 +146 @@
       REAL clesphy0( longcles )
 
-
+#ifdef CPP_EARTH
 c    Local variables :
 c    -----------------
@@ -223 +225 @@
       REAL PVteta(klon,ntetaSTD)
       
-      REAL flxw(iip1,jjp1,llm)  ! Flux de masse verticale sur la grille dynamique
       
       REAL SSUM
@@ -231 +232 @@
       SAVE firstcal,debut
 c$OMP THREADPRIVATE(firstcal,debut)
-      REAL, intent(in):: jD_cur, jH_cur
       
       REAL,SAVE,dimension(1:iim,1:llm):: du_send,du_recv,dv_send,dv_recv