Changeset 247 in lmdz_wrf

Timestamp:

Feb 3, 2015, 11:24:35 AM (10 years ago)

Author:

lfita

Message:

Fixing matrix definition, it requires `inwbdyw'

File:

• trunk/WRFV3/phys/module_lmdz_phys.F (modified) (2 diffs)

trunk/WRFV3/phys/module_lmdz_phys.F

@@ -135 +135 @@
     REAL, DIMENSION(wims:wime,wkms:wkme,wjms:wjme)       :: wrfUdestagg, wrfVdestagg,&
        & wrfUtenddestagg, wrfVtenddestagg
-    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw), wkms:wkme-1) ::         &
+    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw), wkms:wkme-1) ::     &
        & GeopotValues, TValues, TtendValues, HalfPressValues, WFluxMassValues
-    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw), wkms:wkme-1) ::         &  !! DE-STAGGED !!
+    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw), wkms:wkme-1) ::     &  !! DE-STAGGED !!
        & UValues, UtendValues
-    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw), wkms:wkme-1) ::         &  !! DE-STAGGED !!
+    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw), wkms:wkme-1) ::     &  !! DE-STAGGED !!
        & VValues, VtendValues
-    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw), wkms:wkme) ::           &  !! Z-STAGG !!
+    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw), wkms:wkme) ::       &  !! Z-STAGG !!
        & FullPressValues
-    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw)) ::                      &  
+    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw)) ::                  &  
        & sfcGeopotValues
     REAL, ALLOCATABLE, DIMENSION(:,:,:)                  :: MixingRatioValues,       &
@@ -168 +168 @@
     REAL, DIMENSION(Nphykeys)                            :: phykeys
 
-    REAL, DIMENSION(2,(wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw),wkms:wkme-1) ::        &
+    REAL, DIMENSION(2,(wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw),wkms:wkme-1) ::    &
         & lmdz_dudyn, l3Dmat
-    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw),3) :: lmdz_PVtheta
+    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw),3) :: lmdz_PVtheta
     REAL, DIMENSION(wkms:wkme-1)                         :: lmdzoutP
-    REAL, DIMENSION((wime-wims-2*wbdyw),(wjme-wjms-2*wbdyw)) :: wrf_area
-    REAL, DIMENSION((wime-wims-2*wbdyw),(wjme-wjms-2*wbdyw)) :: wrf_cu
-    REAL, DIMENSION((wime-wims-2*wbdyw),(wjme-wjms-2*wbdyw)) :: wrf_cv
-    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw)) :: AreaValues,          &
+    REAL, DIMENSION((wime-wims-2*inwbdyw),(wjme-wjms-2*inwbdyw)) :: wrf_area
+    REAL, DIMENSION((wime-wims-2*inwbdyw),(wjme-wjms-2*inwbdyw)) :: wrf_cu
+    REAL, DIMENSION((wime-wims-2*inwbdyw),(wjme-wjms-2*inwbdyw)) :: wrf_cv
+    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw)) :: AreaValues,      &
         LonValues, LatValues, PsfctendValues
-    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw)) :: CUValues, CVValues
-    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw)) :: runoff_lic
+    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw)) :: CUValues, CVValues
+    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw)) :: runoff_lic
     LOGICAL                                              :: existsfile
     INTEGER                                              :: ierr