Changeset 248 in lmdz_wrf for trunk/WRFV3

Timestamp:

Feb 5, 2015, 3:47:21 PM (10 years ago)

Author:

lfita

Message:

Recovering previous wbdyw structure, ddim[x/y/z],.. 'QVAPOR' might be different of

'OVAP', because of the existence of 'OVAP_INI'?

Location:

trunk/WRFV3

Files:

• dyn_em/solve_em.F (modified) (1 diff)
• phys/module_lmdz_phys.F (modified) (6 diffs)

trunk/WRFV3/dyn_em/solve_em.F

@@ -894 +894 @@
         &        WRF_T=grid%t_2, WRF_U=grid%u_2, WRF_V=grid%v_2,                     &
         &        WRF_PERP=grid%P, WRF_BASEP=grid%PB,                                 &
-        &        INWBDYW=config_flags%spec_bdy_width, WRF_ISRESTART=wrftestrst,      &
+        &        WBDYW=config_flags%spec_bdy_width, WRF_ISRESTART=wrftestrst,        &
         &        WRF_ISLOWBDYIN=wrftestin                                            &
                   ! Dimension arguments

trunk/WRFV3/phys/module_lmdz_phys.F

@@ -12 +12 @@
      &        wrf_T, wrf_U, wrf_V,                                                   &
      &        wrf_perP, wrf_baseP,                                                   &
-     &        inwbdyw, wrf_isrestart,                                                &
+     &        wbdyw, wrf_isrestart,                                                  &
      &        wrf_islowbdyin                                                         &
                   ! dimension arguments
@@ -81 +81 @@
         wrf_isrestart, wrf_islowbdyin
 
-    INTEGER, INTENT(IN)                                  :: wnx, wny, wnz, inwbdyw
+    INTEGER, INTENT(IN)                                  :: wnx, wny, wnz, wbdyw
 
     INTEGER, INTENT(IN)                                  ::                          &
@@ -129 +129 @@
 ! Local
     INTEGER                                              :: ip, jp, kp, lp
-    INTEGER                                              :: wbdyw
 
     REAL, DIMENSION(wims:wime,wkms:wkme,wjms:wjme)       :: wrf_Temp,                &
@@ -135 +134 @@
     REAL, DIMENSION(wims:wime,wkms:wkme,wjms:wjme)       :: wrfUdestagg, wrfVdestagg,&
        & wrfUtenddestagg, wrfVtenddestagg
-    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw), wkms:wkme-1) ::     &
+    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw), wkms:wkme-1) ::         &
        & GeopotValues, TValues, TtendValues, HalfPressValues, WFluxMassValues
-    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw), wkms:wkme-1) ::     &  !! DE-STAGGED !!
+    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw), wkms:wkme-1) ::         &  !! DE-STAGGED !!
        & UValues, UtendValues
-    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw), wkms:wkme-1) ::     &  !! DE-STAGGED !!
+    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw), wkms:wkme-1) ::         &  !! DE-STAGGED !!
        & VValues, VtendValues
-    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw), wkms:wkme) ::       &  !! Z-STAGG !!
+    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw), wkms:wkme) ::           &  !! Z-STAGG !!
        & FullPressValues
-    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw)) ::                  &  
+    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw)) ::                      &  
        & sfcGeopotValues
     REAL, ALLOCATABLE, DIMENSION(:,:,:)                  :: MixingRatioValues,       &
@@ -168 +167 @@
     REAL, DIMENSION(Nphykeys)                            :: phykeys
 
-    REAL, DIMENSION(2,(wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw),wkms:wkme-1) ::    &
+    REAL, DIMENSION(2,(wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw),wkms:wkme-1) ::        &
         & lmdz_dudyn, l3Dmat
-    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw),3) :: lmdz_PVtheta
+    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw),3) :: lmdz_PVtheta
     REAL, DIMENSION(wkms:wkme-1)                         :: lmdzoutP
-    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,      &
+    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,          &
         LonValues, LatValues, PsfctendValues
-    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw)) :: CUValues, CVValues
-    REAL, DIMENSION((wime-wims-2*inwbdyw)*(wjme-wjms-2*inwbdyw)) :: runoff_lic
+    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw)) :: CUValues, CVValues
+    REAL, DIMENSION((wime-wims-2*wbdyw)*(wjme-wjms-2*wbdyw)) :: runoff_lic
     LOGICAL                                              :: existsfile
     INTEGER                                              :: ierr
@@ -346 +345 @@
     type_trac = 'lmdz'
 
-!    dimx=wime-wims
-!    dimy=wjme-wjms
-!    dimz=wkme-wkms
-    dimx=wipe-wips
-    dimy=wjpe-wjps
-    dimz=wkpe-wkps
-    wbdyw=0
+    dimx=wime-wims
+    dimy=wjme-wjms
+    dimz=wkme-wkms
 
     dimxy=dimx*dimy