<p><b>fanglin.yang@noaa.gov</b> 2014-03-06 12:16:50 -0700 (Thu, 06 Mar 2014)</p><p>remove pointer from Sfc_Var_ESMFMod.f and Nst_Var_ESMFMod.f. Pointers cause trouble for pass data between interfaces in dotstep.f<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics_gfs/src/core_atmos_physics_gfs/core_atmos_physics_gfs/physics_gfs/Nst_Var_ESMFMod.f
===================================================================
--- branches/atmos_physics_gfs/src/core_atmos_physics_gfs/core_atmos_physics_gfs/physics_gfs/Nst_Var_ESMFMod.f 2014-02-04 01:31:11 UTC (rev 2795)
+++ branches/atmos_physics_gfs/src/core_atmos_physics_gfs/core_atmos_physics_gfs/physics_gfs/Nst_Var_ESMFMod.f 2014-03-06 19:16:50 UTC (rev 2796)
@@ -19,25 +19,25 @@
IMPLICIT none
TYPE Nst_Var_Data
- real(kind_phys),pointer:: slmsk (:,:)=>null()
- real(kind_phys),pointer:: xt (:,:)=>null()
- real(kind_phys),pointer:: xs (:,:)=>null()
- real(kind_phys),pointer:: xu (:,:)=>null()
- real(kind_phys),pointer:: xv (:,:)=>null()
- real(kind_phys),pointer:: xz (:,:)=>null()
- real(kind_phys),pointer:: zm (:,:)=>null()
- real(kind_phys),pointer:: xtts (:,:)=>null()
- real(kind_phys),pointer:: xzts (:,:)=>null()
- real(kind_phys),pointer:: dt_cool (:,:)=>null()
- real(kind_phys),pointer:: z_c (:,:)=>null()
- real(kind_phys),pointer:: c_0 (:,:)=>null()
- real(kind_phys),pointer:: c_d (:,:)=>null()
- real(kind_phys),pointer:: w_0 (:,:)=>null()
- real(kind_phys),pointer:: w_d (:,:)=>null()
- real(kind_phys),pointer:: d_conv (:,:)=>null()
- real(kind_phys),pointer:: ifd (:,:)=>null()
- real(kind_phys),pointer:: tref (:,:)=>null()
- real(kind_phys),pointer:: Qrain (:,:)=>null()
+ real(kind_phys),allocatable:: slmsk (:,:)
+ real(kind_phys),allocatable:: xt (:,:)
+ real(kind_phys),allocatable:: xs (:,:)
+ real(kind_phys),allocatable:: xu (:,:)
+ real(kind_phys),allocatable:: xv (:,:)
+ real(kind_phys),allocatable:: xz (:,:)
+ real(kind_phys),allocatable:: zm (:,:)
+ real(kind_phys),allocatable:: xtts (:,:)
+ real(kind_phys),allocatable:: xzts (:,:)
+ real(kind_phys),allocatable:: dt_cool (:,:)
+ real(kind_phys),allocatable:: z_c (:,:)
+ real(kind_phys),allocatable:: c_0 (:,:)
+ real(kind_phys),allocatable:: c_d (:,:)
+ real(kind_phys),allocatable:: w_0 (:,:)
+ real(kind_phys),allocatable:: w_d (:,:)
+ real(kind_phys),allocatable:: d_conv (:,:)
+ real(kind_phys),allocatable:: ifd (:,:)
+ real(kind_phys),allocatable:: tref (:,:)
+ real(kind_phys),allocatable:: Qrain (:,:)
end type Nst_Var_Data
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
contains
Modified: branches/atmos_physics_gfs/src/core_atmos_physics_gfs/core_atmos_physics_gfs/physics_gfs/Sfc_Var_ESMFMod.f
===================================================================
--- branches/atmos_physics_gfs/src/core_atmos_physics_gfs/core_atmos_physics_gfs/physics_gfs/Sfc_Var_ESMFMod.f 2014-02-04 01:31:11 UTC (rev 2795)
+++ branches/atmos_physics_gfs/src/core_atmos_physics_gfs/core_atmos_physics_gfs/physics_gfs/Sfc_Var_ESMFMod.f 2014-03-06 19:16:50 UTC (rev 2796)
@@ -21,114 +21,114 @@
IMPLICIT none
TYPE Sfc_Var_Data
- real(kind=kind_phys),pointer:: tsea(:,:)=>null()
- real(kind=kind_phys),pointer:: smc(:,:,:)=>null()
- real(kind=kind_phys),pointer:: sheleg(:,:)=>null()
- real(kind=kind_phys),pointer:: sncovr(:,:)=>null()
- real(kind=kind_phys),pointer:: stc(:,:,:)=>null()
- real(kind=kind_phys),pointer:: tg3(:,:)=>null()
- real(kind=kind_phys),pointer:: zorl(:,:)=>null()
- real(kind=kind_phys),pointer:: cv(:,:)=>null()
- real(kind=kind_phys),pointer:: cvb(:,:)=>null()
- real(kind=kind_phys),pointer:: cvt(:,:)=>null()
- real(kind=kind_phys),pointer:: alvsf(:,:)=>null()
- real(kind=kind_phys),pointer:: alvwf(:,:)=>null()
- real(kind=kind_phys),pointer:: alnsf(:,:)=>null()
- real(kind=kind_phys),pointer:: alnwf(:,:)=>null()
- real(kind=kind_phys),pointer:: slmsk(:,:)=>null()
- real(kind=kind_phys),pointer:: vfrac(:,:)=>null()
- real(kind=kind_phys),pointer:: canopy(:,:)=>null()
- real(kind=kind_phys),pointer:: f10m(:,:)=>null()
- real(kind=kind_phys),pointer:: t2m(:,:)=>null()
- real(kind=kind_phys),pointer:: q2m(:,:)=>null()
- real(kind=kind_phys),pointer:: vtype(:,:)=>null()
- real(kind=kind_phys),pointer:: stype(:,:)=>null()
- real(kind=kind_phys),pointer:: facsf(:,:)=>null()
- real(kind=kind_phys),pointer:: facwf(:,:)=>null()
- real(kind=kind_phys),pointer:: uustar(:,:)=>null()
- real(kind=kind_phys),pointer:: ffmm(:,:)=>null()
- real(kind=kind_phys),pointer:: ffhh(:,:)=>null()
- real(kind=kind_phys),pointer:: hice(:,:)=>null()
- real(kind=kind_phys),pointer:: fice(:,:)=>null()
- real(kind=kind_phys),pointer:: tisfc(:,:)=>null()
- real(kind=kind_phys),pointer:: tprcp(:,:)=>null()
- real(kind=kind_phys),pointer:: srflag(:,:)=>null()
- real(kind=kind_phys),pointer:: snwdph(:,:)=>null()
- real(kind=kind_phys),pointer:: slc(:,:,:)=>null()
- real(kind=kind_phys),pointer:: shdmin(:,:)=>null()
- real(kind=kind_phys),pointer:: shdmax(:,:)=>null()
- real(kind=kind_phys),pointer:: slope(:,:)=>null()
- real(kind=kind_phys),pointer:: snoalb(:,:)=>null()
- real(kind=kind_phys),pointer:: oro(:,:)=>null()
+ real(kind=kind_phys),allocatable:: tsea(:,:)
+ real(kind=kind_phys),allocatable:: smc(:,:,:)
+ real(kind=kind_phys),allocatable:: sheleg(:,:)
+ real(kind=kind_phys),allocatable:: sncovr(:,:)
+ real(kind=kind_phys),allocatable:: stc(:,:,:)
+ real(kind=kind_phys),allocatable:: tg3(:,:)
+ real(kind=kind_phys),allocatable:: zorl(:,:)
+ real(kind=kind_phys),allocatable:: cv(:,:)
+ real(kind=kind_phys),allocatable:: cvb(:,:)
+ real(kind=kind_phys),allocatable:: cvt(:,:)
+ real(kind=kind_phys),allocatable:: alvsf(:,:)
+ real(kind=kind_phys),allocatable:: alvwf(:,:)
+ real(kind=kind_phys),allocatable:: alnsf(:,:)
+ real(kind=kind_phys),allocatable:: alnwf(:,:)
+ real(kind=kind_phys),allocatable:: slmsk(:,:)
+ real(kind=kind_phys),allocatable:: vfrac(:,:)
+ real(kind=kind_phys),allocatable:: canopy(:,:)
+ real(kind=kind_phys),allocatable:: f10m(:,:)
+ real(kind=kind_phys),allocatable:: t2m(:,:)
+ real(kind=kind_phys),allocatable:: q2m(:,:)
+ real(kind=kind_phys),allocatable:: vtype(:,:)
+ real(kind=kind_phys),allocatable:: stype(:,:)
+ real(kind=kind_phys),allocatable:: facsf(:,:)
+ real(kind=kind_phys),allocatable:: facwf(:,:)
+ real(kind=kind_phys),allocatable:: uustar(:,:)
+ real(kind=kind_phys),allocatable:: ffmm(:,:)
+ real(kind=kind_phys),allocatable:: ffhh(:,:)
+ real(kind=kind_phys),allocatable:: hice(:,:)
+ real(kind=kind_phys),allocatable:: fice(:,:)
+ real(kind=kind_phys),allocatable:: tisfc(:,:)
+ real(kind=kind_phys),allocatable:: tprcp(:,:)
+ real(kind=kind_phys),allocatable:: srflag(:,:)
+ real(kind=kind_phys),allocatable:: snwdph(:,:)
+ real(kind=kind_phys),allocatable:: slc(:,:,:)
+ real(kind=kind_phys),allocatable:: shdmin(:,:)
+ real(kind=kind_phys),allocatable:: shdmax(:,:)
+ real(kind=kind_phys),allocatable:: slope(:,:)
+ real(kind=kind_phys),allocatable:: snoalb(:,:)
+ real(kind=kind_phys),allocatable:: oro(:,:)
end type Sfc_Var_Data
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
TYPE Flx_Var_Data
- real(kind=kind_phys),pointer:: SFCDSW(:,:)=>null()
- real(kind=kind_phys),pointer:: COSZEN(:,:)=>null()
- real(kind=kind_phys),pointer:: PWAT(:,:)=>null()
- real(kind=kind_phys),pointer:: TMPMIN(:,:)=>null()
- real(kind=kind_phys),pointer:: TMPMAX(:,:)=>null()
+ real(kind=kind_phys),allocatable:: SFCDSW(:,:)
+ real(kind=kind_phys),allocatable:: COSZEN(:,:)
+ real(kind=kind_phys),allocatable:: PWAT(:,:)
+ real(kind=kind_phys),allocatable:: TMPMIN(:,:)
+ real(kind=kind_phys),allocatable:: TMPMAX(:,:)
!jwang add spfhmax/spfhmin
- real(kind=kind_phys),pointer:: SPFHMIN(:,:)=>null()
- real(kind=kind_phys),pointer:: SPFHMAX(:,:)=>null()
- real(kind=kind_phys),pointer:: DUSFC(:,:)=>null()
- real(kind=kind_phys),pointer:: DVSFC(:,:)=>null()
- real(kind=kind_phys),pointer:: DTSFC(:,:)=>null()
- real(kind=kind_phys),pointer:: DQSFC(:,:)=>null()
- real(kind=kind_phys),pointer:: DLWSFC(:,:)=>null()
- real(kind=kind_phys),pointer:: ULWSFC(:,:)=>null()
- real(kind=kind_phys),pointer:: GFLUX(:,:)=>null()
- real(kind=kind_phys),pointer:: RUNOFF(:,:)=>null()
- real(kind=kind_phys),pointer:: EP(:,:)=>null()
- real(kind=kind_phys),pointer:: CLDWRK(:,:)=>null()
- real(kind=kind_phys),pointer:: DUGWD(:,:)=>null()
- real(kind=kind_phys),pointer:: DVGWD(:,:)=>null()
- real(kind=kind_phys),pointer:: PSMEAN(:,:)=>null()
- real(kind=kind_phys),pointer:: GESHEM(:,:)=>null()
- real(kind=kind_phys),pointer:: BENGSH(:,:)=>null()
- real(kind=kind_phys),pointer:: SFCNSW(:,:)=>null()
- real(kind=kind_phys),pointer:: SFCDLW(:,:)=>null()
- real(kind=kind_phys),pointer:: TSFLW(:,:)=>null()
- real(kind=kind_phys),pointer:: PSURF(:,:)=>null()
- real(kind=kind_phys),pointer:: U10M(:,:)=>null()
- real(kind=kind_phys),pointer:: V10M(:,:)=>null()
- real(kind=kind_phys),pointer:: HPBL(:,:)=>null()
- real(kind=kind_phys),pointer:: CHH(:,:)=>null()
- real(kind=kind_phys),pointer:: CMM(:,:)=>null()
- real(kind=kind_phys),pointer:: EPI(:,:)=>null()
- real(kind=kind_phys),pointer:: DLWSFCI(:,:)=>null()
- real(kind=kind_phys),pointer:: ULWSFCI(:,:)=>null()
- real(kind=kind_phys),pointer:: USWSFCI(:,:)=>null()
- real(kind=kind_phys),pointer:: DSWSFCI(:,:)=>null()
- real(kind=kind_phys),pointer:: DTSFCI(:,:)=>null()
- real(kind=kind_phys),pointer:: DQSFCI(:,:)=>null()
- real(kind=kind_phys),pointer:: GFLUXI(:,:)=>null()
- real(kind=kind_phys),pointer:: SRUNOFF(:,:)=>null()
- real(kind=kind_phys),pointer:: T1(:,:)=>null()
- real(kind=kind_phys),pointer:: Q1(:,:)=>null()
- real(kind=kind_phys),pointer:: U1(:,:)=>null()
- real(kind=kind_phys),pointer:: V1(:,:)=>null()
- real(kind=kind_phys),pointer:: ZLVL(:,:)=>null()
- real(kind=kind_phys),pointer:: EVBSA(:,:)=>null()
- real(kind=kind_phys),pointer:: EVCWA(:,:)=>null()
- real(kind=kind_phys),pointer:: TRANSA(:,:)=>null()
- real(kind=kind_phys),pointer:: SBSNOA(:,:)=>null()
- real(kind=kind_phys),pointer:: SNOWCA(:,:)=>null()
- real(kind=kind_phys),pointer:: SOILM(:,:)=>null()
- real(kind=kind_phys),pointer:: SNOHFA(:,:)=>null()
- real(kind=kind_phys),pointer:: SMCWLT2(:,:)=>null()
- real(kind=kind_phys),pointer:: SMCREF2(:,:)=>null()
- real(kind=kind_phys),pointer:: suntim(:,:)=>null() ! sunshine duration time
- real(kind=kind_phys),pointer:: sfcemis(:,:)=>null() ! surface emissivity
+ real(kind=kind_phys),allocatable:: SPFHMIN(:,:)
+ real(kind=kind_phys),allocatable:: SPFHMAX(:,:)
+ real(kind=kind_phys),allocatable:: DUSFC(:,:)
+ real(kind=kind_phys),allocatable:: DVSFC(:,:)
+ real(kind=kind_phys),allocatable:: DTSFC(:,:)
+ real(kind=kind_phys),allocatable:: DQSFC(:,:)
+ real(kind=kind_phys),allocatable:: DLWSFC(:,:)
+ real(kind=kind_phys),allocatable:: ULWSFC(:,:)
+ real(kind=kind_phys),allocatable:: GFLUX(:,:)
+ real(kind=kind_phys),allocatable:: RUNOFF(:,:)
+ real(kind=kind_phys),allocatable:: EP(:,:)
+ real(kind=kind_phys),allocatable:: CLDWRK(:,:)
+ real(kind=kind_phys),allocatable:: DUGWD(:,:)
+ real(kind=kind_phys),allocatable:: DVGWD(:,:)
+ real(kind=kind_phys),allocatable:: PSMEAN(:,:)
+ real(kind=kind_phys),allocatable:: GESHEM(:,:)
+ real(kind=kind_phys),allocatable:: BENGSH(:,:)
+ real(kind=kind_phys),allocatable:: SFCNSW(:,:)
+ real(kind=kind_phys),allocatable:: SFCDLW(:,:)
+ real(kind=kind_phys),allocatable:: TSFLW(:,:)
+ real(kind=kind_phys),allocatable:: PSURF(:,:)
+ real(kind=kind_phys),allocatable:: U10M(:,:)
+ real(kind=kind_phys),allocatable:: V10M(:,:)
+ real(kind=kind_phys),allocatable:: HPBL(:,:)
+ real(kind=kind_phys),allocatable:: CHH(:,:)
+ real(kind=kind_phys),allocatable:: CMM(:,:)
+ real(kind=kind_phys),allocatable:: EPI(:,:)
+ real(kind=kind_phys),allocatable:: DLWSFCI(:,:)
+ real(kind=kind_phys),allocatable:: ULWSFCI(:,:)
+ real(kind=kind_phys),allocatable:: USWSFCI(:,:)
+ real(kind=kind_phys),allocatable:: DSWSFCI(:,:)
+ real(kind=kind_phys),allocatable:: DTSFCI(:,:)
+ real(kind=kind_phys),allocatable:: DQSFCI(:,:)
+ real(kind=kind_phys),allocatable:: GFLUXI(:,:)
+ real(kind=kind_phys),allocatable:: SRUNOFF(:,:)
+ real(kind=kind_phys),allocatable:: T1(:,:)
+ real(kind=kind_phys),allocatable:: Q1(:,:)
+ real(kind=kind_phys),allocatable:: U1(:,:)
+ real(kind=kind_phys),allocatable:: V1(:,:)
+ real(kind=kind_phys),allocatable:: ZLVL(:,:)
+ real(kind=kind_phys),allocatable:: EVBSA(:,:)
+ real(kind=kind_phys),allocatable:: EVCWA(:,:)
+ real(kind=kind_phys),allocatable:: TRANSA(:,:)
+ real(kind=kind_phys),allocatable:: SBSNOA(:,:)
+ real(kind=kind_phys),allocatable:: SNOWCA(:,:)
+ real(kind=kind_phys),allocatable:: SOILM(:,:)
+ real(kind=kind_phys),allocatable:: SNOHFA(:,:)
+ real(kind=kind_phys),allocatable:: SMCWLT2(:,:)
+ real(kind=kind_phys),allocatable:: SMCREF2(:,:)
+ real(kind=kind_phys),allocatable:: suntim(:,:) ! sunshine duration time
+ real(kind=kind_phys),allocatable:: sfcemis(:,:) ! surface emissivity
!hchuang code change [+8L] xx/xx/2007 : add 2D
- real(kind=kind_phys),pointer:: gsoil(:,:)=>null()
- real(kind=kind_phys),pointer:: gtmp2m(:,:)=>null()
- real(kind=kind_phys),pointer:: gustar(:,:)=>null()
- real(kind=kind_phys),pointer:: gpblh(:,:)=>null()
- real(kind=kind_phys),pointer:: gu10m(:,:)=>null()
- real(kind=kind_phys),pointer:: gv10m(:,:)=>null()
- real(kind=kind_phys),pointer:: gzorl(:,:)=>null()
- real(kind=kind_phys),pointer:: goro(:,:)=>null()
+ real(kind=kind_phys),allocatable:: gsoil(:,:)
+ real(kind=kind_phys),allocatable:: gtmp2m(:,:)
+ real(kind=kind_phys),allocatable:: gustar(:,:)
+ real(kind=kind_phys),allocatable:: gpblh(:,:)
+ real(kind=kind_phys),allocatable:: gu10m(:,:)
+ real(kind=kind_phys),allocatable:: gv10m(:,:)
+ real(kind=kind_phys),allocatable:: gzorl(:,:)
+ real(kind=kind_phys),allocatable:: goro(:,:)
end type Flx_Var_Data
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
contains
</font>
</pre>