Changeset 1442 for LMDZ5/branches/LMDZ5V1.0-dev/libf

Timestamp:

Oct 18, 2010, 10:31:31 AM (14 years ago)

Author:

jghattas

Message:

Deleted dimesion using local parameters. Instead using dimesions already existing as input arguments.
This modification avoids need for editing the code before running a higer resolution (above 300x200).

Location:

LMDZ5/branches/LMDZ5V1.0-dev/libf

Files:

• dyn3d/grid_noro.F (modified) (1 diff)
• dyn3dpar/grid_noro.F (modified) (1 diff)

LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3d/grid_noro.F

@@ -458 +458 @@
 C MAKE A MOVING AVERAGE OVER 9 GRIDPOINTS OF THE X FIELDS
 
-      PARAMETER (ISMo=400,JSMo=200)
-      REAL X(IMAR,JMAR),XF(ISMo,JSMo)
+      REAL X(IMAR,JMAR),XF(IMAR,JMAR)
       real WEIGHTpb(-1:1,-1:1)
 
-      if(imar.gt.ismo) stop'surdimensionner ismo dans mva9 (grid_noro)'
-      if(jmar.gt.jsmo) stop'surdimensionner jsmo dans mva9 (grid_noro)'
-      
+
       SUM=0.
       DO IS=-1,1

LMDZ5/branches/LMDZ5V1.0-dev/libf/dyn3dpar/grid_noro.F

@@ -458 +458 @@
 C MAKE A MOVING AVERAGE OVER 9 GRIDPOINTS OF THE X FIELDS
 
-      PARAMETER (ISMo=300,JSMo=200)
-      REAL X(IMAR,JMAR),XF(ISMo,JSMo)
+      REAL X(IMAR,JMAR),XF(IMAR,JMAR)
       real WEIGHTpb(-1:1,-1:1)
 
-      if(imar.gt.ismo) stop'surdimensionner ismo dans mva9 (grid_noro)'
-      if(jmar.gt.jsmo) stop'surdimensionner jsmo dans mva9 (grid_noro)'
       
       SUM=0.