Changeset 1071 for trunk/LMDZ.COMMON/libf/dyn3dpar

Timestamp:

Oct 14, 2013, 7:15:25 PM (12 years ago)

Author:

slebonnois

Message:

SL: still some corrections to version 1056

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/calfis_p.F (modified) (4 diffs)

trunk/LMDZ.COMMON/libf/dyn3dpar/calfis_p.F

@@ -256 +256 @@
 ! to allow for 2D computation of microphys and chemistry
       LOGICAL,save :: flag_moyzon
-      REAL,dimension(iip1,llm) :: tmpvar
-      REAL,dimension(iip1,llmp1) :: tmpvarp1
-      REAL,dimension(llm) :: tmpvarbar
-      REAL,dimension(llmp1) :: tmpvarbarp1
+      REAL,allocatable :: tmpvar(:,:)
+      REAL,allocatable :: tmpvarp1(:,:)
+      REAL,allocatable :: tmpvarbar(:)
+      REAL,allocatable :: tmpvarbarp1(:)
 
 c-----------------------------------------------------------------------
@@ -287 +287 @@
         if(moyzon_ch.or.moyzon_mu) then
          flag_moyzon = .true.
+         allocate(tmpvar(iip1,llm))
+         allocate(tmpvarp1(iip1,llmp1))
+         allocate(tmpvarbar(llm))
+         allocate(tmpvarbarp1(llmp1))
         endif
 
@@ -310 +314 @@
 c------------------------------------------------------------------
 c moyennes globales pour les profils de pression et de temperature
+      if(planet_type.eq."titan") then
         call AllGather_Field(pp,iip1*jjp1,llmp1)
         call AllGather_Field(pteta,iip1*jjp1,llm)
@@ -338 +343 @@
         playmoy = preff * (pkmoy/cpp) ** unskap
         call tpot2t_p(1,llm,tetamoy,tmoy,pkmoy)
-c------------------------------------------------------------------
+c-------------------
 c + lat index
-      allocate(klat(klon))
-      do ig0=1,klon
-        j=index_j(ig0)
-        klat(ig0)=j
-      enddo
+        allocate(klat(klon))
+        do ig0=1,klon
+           j=index_j(ig0)
+           klat(ig0)=j
+        enddo
+      endif   ! planet_type=titan
 c------------------------------------------------------------------