Changeset 1459 for trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/calfis.F

Timestamp:

Jun 20, 2015, 9:22:53 AM (9 years ago)

Author:

emillour

Message:

Common dynamics: A couple of bug fixes

• calfis[_p].F array boundaries must be explicitely specified when underlying arrays are of different sizes.
• advect_new_p.F : missing initializations of intermediate variables at topmost layer.

EM

File:

• trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/calfis.F (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/calfis.F

@@ -94 +94 @@
 c    ------------------
 
-#include "dimensions.h"
-#include "paramet.h"
+      include "dimensions.h"
+      include "paramet.h"
 
       INTEGER ngridmx
       PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
 
-#include "comgeom2.h"
-#include "iniprint.h"
+      include "comgeom2.h"
+      include "iniprint.h"
 
 c    Arguments :
@@ -259 +259 @@
         call tpot2t(llm,tetamoy,tmoy,pkmoy)
 c SI ON TIENT COMPTE DE LA VARIATION DE G AVEC L'ALTITUDE:
-        zlaymoy(:) = g*rad*rad/(g*rad-phimoy(:))-rad
+        zlaymoy(1:llm) = g*rad*rad/(g*rad-phimoy(1:llm))-rad
         zlevmoy(1) = phimoy(0)/g
         DO l=2,llm