Changeset 1838 for trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

Timestamp:

Dec 5, 2017, 1:53:50 PM (7 years ago)

Author:

mlefevre

Message:

MESOSCALE GENERIC. Some declaration of allocatable remained in physiq_mod. Now done in phys_state_var_mod

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

@@ -227 +227 @@
 !$OMP THREADPRIVATE(day_ini,icount)
 
-      real, dimension(:),allocatable,save ::  tsurf                ! Surface temperature (K).
-      real, dimension(:,:),allocatable,save ::  tsoil              ! Sub-surface temperatures (K).
-      real, dimension(:,:),allocatable,save :: albedo              ! Surface Spectral albedo. By MT2015.
-      real, dimension(:),allocatable,save :: albedo_equivalent     ! Spectral Mean albedo.
-      real, dimension(:),allocatable,save :: albedo_snow_SPECTV    ! Snow Spectral albedo.
-      real, dimension(:),allocatable,save :: albedo_co2_ice_SPECTV ! CO2 ice Spectral albedo.
-      
-!$OMP THREADPRIVATE(tsurf,tsoil,albedo,albedo_equivalent,albedo_snow_SPECTV,albedo_co2_ice_SPECTV)
-
 ! Local variables :
 ! -----------------
@@ -336 +327 @@
       real zdtdyn(ngrid,nlayer)                          ! Dynamical Heating (K/s).
       real zdudyn(ngrid,nlayer)                          ! Dynamical Zonal Wind tendency (m.s-2).
-      real,allocatable,dimension(:,:),save :: ztprevious ! Previous loop Atmospheric Temperature (K)                                                         ! Useful for Dynamical Heating calculation.
-      real,allocatable,dimension(:,:),save :: zuprevious ! Previous loop Zonal Wind (m.s-1)                                                                  ! Useful for Zonal Wind tendency calculation.
-!$OMP THREADPRIVATE(ztprevious,zuprevious)
 
       real reff(ngrid,nlayer)                       ! Effective dust radius (used if doubleq=T).
@@ -389 +377 @@
       real tf, ntf
 
-      real,allocatable,dimension(:,:),save :: cloudfrac  ! Fraction of clouds (%).
-      real,allocatable,dimension(:),save :: totcloudfrac ! Column fraction of clouds (%).
-!$OMP THREADPRIVATE(cloudfrac,totcloudfrac)
-
       real nconsMAX, vdifcncons(ngrid), cadjncons(ngrid) ! Vdfic water conservation test. By RW
 
-      real,allocatable,dimension(:,:),save :: qsurf_hist
-!$OMP THREADPRIVATE(qsurf_hist)
-
       real muvar(ngrid,nlayer+1) ! For Runaway Greenhouse 1D study. By RW
 
-      real,allocatable,dimension(:,:,:),save :: reffrad  ! Aerosol effective radius (m). By RW
-      real,allocatable,dimension(:,:,:),save :: nueffrad ! Aerosol effective radius variance. By RW
-!$OMP THREADPRIVATE(reffrad,nueffrad)
-
       real reffcol(ngrid,naerkind)
 
 !     Sourceevol for 'accelerated ice evolution'. By RW
-      real,allocatable,dimension(:),save :: ice_initial
       real delta_ice,ice_tot
-      real,allocatable,dimension(:),save :: ice_min      
       integer num_run
       logical,save :: ice_update
-!$OMP THREADPRIVATE(ice_initial,ice_min,ice_update)