Changeset 1872
- Timestamp:
- Sep 18, 2013, 2:27:33 PM (11 years ago)
- Location:
- LMDZ5/trunk/libf/phylmd
- Files:
-
- 6 edited
-
pbl_surface_mod.F90 (modified) (1 diff)
-
phys_local_var_mod.F90 (modified) (2 diffs)
-
sisvat/VAR_SV.F90 (modified) (1 diff)
-
sisvat/VARtSV.F90 (modified) (1 diff)
-
sisvat/VARxSV.F90 (modified) (3 diffs)
-
sisvat/surf_sisvat_mod.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90
r1865 r1872 936 936 ! y_flux_u1, y_flux_v1) 937 937 938 alb3_lic( i)=0.938 alb3_lic(:)=0. 939 939 DO j = 1, knon 940 940 i = ni(j) -
LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90
r1865 r1872 265 265 266 266 ! variables de sorties MM 267 REAL, ALLOCATABLE,DIMENSION(:) :: zxsnow,snowhgt,qsnow,to_ice 268 REAL, ALLOCATABLE,DIMENSION(:) :: sissnow,runoff,albsol3_lic 267 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: zxsnow,snowhgt,qsnow,to_ice 268 REAL, ALLOCATABLE, SAVE, DIMENSION(:) :: sissnow,runoff,albsol3_lic 269 !$OMP THREADPRIVATE(zxsnow,snowhgt,qsnow,to_ice) 270 !$OMP THREADPRIVATE(sissnow,runoff,albsol3_lic) 269 271 270 272 CONTAINS … … 418 420 419 421 420 ALLOCATE (zxsnow(klon),snowhgt(klon),qsnow(klon),to_ice(klon),sissnow(klon),runoff(klon),albsol3_lic(klon)) 422 ALLOCATE (zxsnow(klon),snowhgt(klon),qsnow(klon),to_ice(klon)) 423 ALLOCATE (sissnow(klon),runoff(klon),albsol3_lic(klon)) 421 424 422 425 -
LMDZ5/trunk/libf/phylmd/sisvat/VAR_SV.F90
r1865 r1872 12 12 INTEGER,PARAMETER :: nb_wri=1 13 13 INTEGER,SAVE :: klonv 14 !$OMP _THREADPRIVATE(klonv)14 !$OMP THREADPRIVATE(klonv) 15 15 INTEGER,SAVE :: knonv 16 !$OMP _THREADPRIVATE(knonv)16 !$OMP THREADPRIVATE(knonv) 17 17 18 18 END MODULE VAR_SV -
LMDZ5/trunk/libf/phylmd/sisvat/VARtSV.F90
r1865 r1872 11 11 12 12 REAL,ALLOCATABLE,SAVE :: dz1_SV(:,:) ! "inverse" layer thicknes 13 !$OMP T READPRIVATE(dz1_SV)13 !$OMP THREADPRIVATE(dz1_SV) 14 14 REAL,ALLOCATABLE,SAVE :: dz2_SV(:,:) ! layer thickness 15 !$OMP T READPRIVATE(dz2_SV)15 !$OMP THREADPRIVATE(dz2_SV) 16 16 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: Tsf_SV ! surface temperature !hj12032010 17 !$OMP T READPRIVATE(Tsf_SV)17 !$OMP THREADPRIVATE(Tsf_SV) 18 18 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: TsfnSV ! new surface temperature 19 !$OMP T READPRIVATE(TsfnSV)19 !$OMP THREADPRIVATE(TsfnSV) 20 20 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: AcoHSV, BcoHSV ! coefficients for Enthalpy 21 !$OMP T READPRIVATE(AcoHSV, BcoHSV) ! evolution,from atmosphere21 !$OMP THREADPRIVATE(AcoHSV, BcoHSV) ! evolution,from atmosphere 22 22 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: AcoQSV, BcoQSV ! coefficients for Humidity 23 !$OMP T READPRIVATE( AcoQSV, BcoQSV) ! evolution,from atmosphere23 !$OMP THREADPRIVATE( AcoQSV, BcoQSV) ! evolution,from atmosphere 24 24 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: ps__SV ! surface pressure 25 !$OMP T READPRIVATE(ps__SV)25 !$OMP THREADPRIVATE(ps__SV) 26 26 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: p1l_SV ! 1st layer pressure 27 !$OMP T READPRIVATE(p1l_SV)27 !$OMP THREADPRIVATE(p1l_SV) 28 28 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: cdH_SV ! drag coeff Energy (?) 29 !$OMP T READPRIVATE(cdH_SV)29 !$OMP THREADPRIVATE(cdH_SV) 30 30 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: rsolSV ! Radiation balance surface 31 !$OMP T READPRIVATE(rsolSV)31 !$OMP THREADPRIVATE(rsolSV) 32 32 REAL,SAVE :: lambSV ! coefficient soil layers 33 !$OMP T READPRIVATE(lambSV)33 !$OMP THREADPRIVATE(lambSV) 34 34 35 35 ! #AW -
LMDZ5/trunk/libf/phylmd/sisvat/VARxSV.F90
r1865 r1872 8 8 9 9 INTEGER, DIMENSION(:),ALLOCATABLE,SAVE :: LSmask ! Land-Sea Mask 10 !$OMP T READPRIVATE(LSmask)10 !$OMP THREADPRIVATE(LSmask) 11 11 INTEGER, DIMENSION(:),ALLOCATABLE,SAVE :: isotSV ! Soil Type 12 !$OMP T READPRIVATE(isotSV)12 !$OMP THREADPRIVATE(isotSV) 13 13 INTEGER, DIMENSION(:),ALLOCATABLE,SAVE :: iWaFSV ! Soil Drainage:(1,0)=(y,n) 14 !$OMP T READPRIVATE(iWaFSV)14 !$OMP THREADPRIVATE(iWaFSV) 15 15 INTEGER, DIMENSION(:),ALLOCATABLE,SAVE :: ivgtSV ! Vegetation Type 16 !$OMP T READPRIVATE(ivgtSV)16 !$OMP THREADPRIVATE(ivgtSV) 17 17 18 18 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: coszSV ! Cosine of Sun zenithal Angle 19 !$OMP T READPRIVATE(coszSV)19 !$OMP THREADPRIVATE(coszSV) 20 20 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: sol_SV ! Downward Solar Radiation 21 !$OMP T READPRIVATE(sol_SV)21 !$OMP THREADPRIVATE(sol_SV) 22 22 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: IRd_SV ! Downward Longwave Radiation 23 !$OMP T READPRIVATE(IRd_SV)23 !$OMP THREADPRIVATE(IRd_SV) 24 24 25 25 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: drr_SV ! Rain Intensity [kg/m2/s] 26 !$OMP T READPRIVATE(drr_SV)26 !$OMP THREADPRIVATE(drr_SV) 27 27 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: dsn_SV ! Snow Intensity [kg/m2/s] 28 !$OMP T READPRIVATE(dsn_SV)28 !$OMP THREADPRIVATE(dsn_SV) 29 29 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: dsnbSV ! Idem, fraction, from Drift [-] 30 !$OMP T READPRIVATE(dsnbSV)30 !$OMP THREADPRIVATE(dsnbSV) 31 31 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: esnbSV ! Idem, fraction, from Drift [-] 32 !$OMP T READPRIVATE(esnbSV)32 !$OMP THREADPRIVATE(esnbSV) 33 33 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: dbs_SV ! Drift Amount [kg/m2] 34 !$OMP T READPRIVATE(dbs_SV)34 !$OMP THREADPRIVATE(dbs_SV) 35 35 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: BrosSV ! Buffer Snow Layer Density 36 !$OMP T READPRIVATE(BrosSV)36 !$OMP THREADPRIVATE(BrosSV) 37 37 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: BG1sSV ! Buffer Snow Layer Dendr/Sphe[-] 38 !$OMP T READPRIVATE(BG1sSV)38 !$OMP THREADPRIVATE(BG1sSV) 39 39 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: BG2sSV ! Buffer Snow Layer Spher/Size[-][0.0001m] 40 !$OMP T READPRIVATE(BG2sSV)40 !$OMP THREADPRIVATE(BG2sSV) 41 41 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: dz0_SV ! dz0(Sastrugi dh) [m] 42 !$OMP T READPRIVATE(dz0_SV)42 !$OMP THREADPRIVATE(dz0_SV) 43 43 44 44 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: cld_SV ! Cloudiness (seen from SBL) 45 !$OMP T READPRIVATE(cld_SV)45 !$OMP THREADPRIVATE(cld_SV) 46 46 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: za__SV ! SBL Height 47 !$OMP T READPRIVATE(za__SV)47 !$OMP THREADPRIVATE(za__SV) 48 48 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: VV__SV !(SBL Top) Wind Velocity 49 !$OMP T READPRIVATE(VV__SV)49 !$OMP THREADPRIVATE(VV__SV) 50 50 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: VVs_SV !(Sastr,V) Relevance 51 !$OMP T READPRIVATE(VVs_SV)51 !$OMP THREADPRIVATE(VVs_SV) 52 52 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: RRs_SV !(Sastr,V) Counter 53 !$OMP T READPRIVATE(RRs_SV)53 !$OMP THREADPRIVATE(RRs_SV) 54 54 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: DDs_SV !(Sastr,V) Angle 55 !$OMP T READPRIVATE(DDs_SV)55 !$OMP THREADPRIVATE(DDs_SV) 56 56 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: TaT_SV ! SBL Top Temperature 57 !$OMP T READPRIVATE(TaT_SV)57 !$OMP THREADPRIVATE(TaT_SV) 58 58 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: ExnrSV ! Exner Potential 59 !$OMP T READPRIVATE(ExnrSV)59 !$OMP THREADPRIVATE(ExnrSV) 60 60 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: dSdTSV ! Sensible Heat Flux T Derivat. 61 !$OMP T READPRIVATE(dSdTSV)61 !$OMP THREADPRIVATE(dSdTSV) 62 62 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: dLdTSV ! Latent Heat Flux T Derivat. 63 !$OMP T READPRIVATE(dLdTSV)63 !$OMP THREADPRIVATE(dLdTSV) 64 64 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: rhT_SV ! SBL Top Air Density 65 !$OMP T READPRIVATE(rhT_SV)65 !$OMP THREADPRIVATE(rhT_SV) 66 66 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: QaT_SV ! SBL Top Specific Humidity 67 !$OMP T READPRIVATE(QaT_SV)67 !$OMP THREADPRIVATE(QaT_SV) 68 68 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: dQa_SV ! SBL Flux Limitation of Qa 69 !$OMP T READPRIVATE(dQa_SV)69 !$OMP THREADPRIVATE(dQa_SV) 70 70 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: qsnoSV ! SBL Mean Snow Content 71 !$OMP T READPRIVATE(qsnoSV)71 !$OMP THREADPRIVATE(qsnoSV) 72 72 73 73 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: LAI0SV ! Nominal Leaf Area Index 74 !$OMP T READPRIVATE(LAI0SV)74 !$OMP THREADPRIVATE(LAI0SV) 75 75 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: glf0SV ! Green Leaf Fraction 76 !$OMP T READPRIVATE(glf0SV)76 !$OMP THREADPRIVATE(glf0SV) 77 77 78 78 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: alb0SV ! Soil Albedo 79 !$OMP T READPRIVATE(alb0SV)79 !$OMP THREADPRIVATE(alb0SV) 80 80 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: slopSV ! Snow/Ice/Soil-Water Surf. Slope 81 !$OMP T READPRIVATE(slopSV)81 !$OMP THREADPRIVATE(slopSV) 82 82 83 83 84 84 REAL,SAVE :: zSBLSV ! SBL Height (Initial Value) 85 !$OMP T READPRIVATE(zSBLSV)85 !$OMP THREADPRIVATE(zSBLSV) 86 86 REAL,SAVE :: dt__SV ! Time Step 87 !$OMP T READPRIVATE(dt__SV)87 !$OMP THREADPRIVATE(dt__SV) 88 88 CHARACTER (len=18),SAVE :: daHost ! Date Host Model 89 !$OMP T READPRIVATE(daHost)89 !$OMP THREADPRIVATE(daHost) 90 90 91 91 … … 94 94 95 95 INTEGER, DIMENSION(:),ALLOCATABLE,SAVE :: isnoSV ! Nb of Ice/Snow Layers 96 !$OMP T READPRIVATE(isnoSV)96 !$OMP THREADPRIVATE(isnoSV) 97 97 INTEGER, DIMENSION(:),ALLOCATABLE,SAVE :: ispiSV ! Uppermost superimposed ice 98 !$OMP T READPRIVATE(ispiSV)98 !$OMP THREADPRIVATE(ispiSV) 99 99 INTEGER, DIMENSION(:),ALLOCATABLE,SAVE :: iiceSV ! Nb of Ice Layers 100 !$OMP T READPRIVATE(iiceSV)100 !$OMP THREADPRIVATE(iiceSV) 101 101 INTEGER ,ALLOCATABLE,SAVE :: istoSV(:,:) ! Snow Layer History 102 !$OMP T READPRIVATE(istoSV)102 !$OMP THREADPRIVATE(istoSV) 103 103 104 104 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: alb_SV ! Surface-Canopy Albedo 105 !$OMP T READPRIVATE(alb_SV)105 !$OMP THREADPRIVATE(alb_SV) 106 106 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: emi_SV ! Surface-Canopy Emissivity 107 !$OMP T READPRIVATE(emi_SV)107 !$OMP THREADPRIVATE(emi_SV) 108 108 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: IRs_SV ! Soil IR Flux 109 !$OMP T READPRIVATE(IRs_SV)109 !$OMP THREADPRIVATE(IRs_SV) 110 110 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: LMO_SV ! Monin-Obukhov Scale 111 !$OMP T READPRIVATE(LMO_SV)111 !$OMP THREADPRIVATE(LMO_SV) 112 112 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: us__SV ! Friction Velocity 113 !$OMP T READPRIVATE(us__SV)113 !$OMP THREADPRIVATE(us__SV) 114 114 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: uts_SV ! Temperature Turbulent Scale 115 !$OMP T READPRIVATE(uts_SV)115 !$OMP THREADPRIVATE(uts_SV) 116 116 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: cutsSV ! Temperature Turbulent Scale C. 117 !$OMP T READPRIVATE(cutsSV)117 !$OMP THREADPRIVATE(cutsSV) 118 118 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: uqs_SV ! Spec.Humid. Turbulent Scale 119 !$OMP T READPRIVATE(uqs_SV)119 !$OMP THREADPRIVATE(uqs_SV) 120 120 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: uss_SV ! Blow.Snow Turbulent Scale 121 !$OMP T READPRIVATE(uss_SV)121 !$OMP THREADPRIVATE(uss_SV) 122 122 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: usthSV ! Blowing Snow Erosion Thresh. 123 !$OMP T READPRIVATE(usthSV)123 !$OMP THREADPRIVATE(usthSV) 124 124 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: rCDmSV ! Square Root Contribut. Drag_m 125 !$OMP T READPRIVATE(rCDmSV)125 !$OMP THREADPRIVATE(rCDmSV) 126 126 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: rCDhSV ! Square Root Contribut. Drag_h 127 !$OMP T READPRIVATE(rCDhSV)127 !$OMP THREADPRIVATE(rCDhSV) 128 128 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: Z0m_SV ! Momentum Roughness Length 129 !$OMP T READPRIVATE(Z0m_SV)129 !$OMP THREADPRIVATE(Z0m_SV) 130 130 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: Z0mmSV ! z0(Momentum, Time Mean) [m] 131 !$OMP T READPRIVATE(Z0mmSV)131 !$OMP THREADPRIVATE(Z0mmSV) 132 132 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: Z0mnSV ! z0(Momentum, instanta.) [m] 133 !$OMP T READPRIVATE(Z0mnSV)133 !$OMP THREADPRIVATE(Z0mnSV) 134 134 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: Z0roSV ! Subgrid Topo Roughness Length 135 !$OMP T READPRIVATE(Z0roSV)135 !$OMP THREADPRIVATE(Z0roSV) 136 136 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: Z0SaSV ! z0(Sastrugi h) [m] 137 !$OMP T READPRIVATE(Z0SaSV)137 !$OMP THREADPRIVATE(Z0SaSV) 138 138 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: Z0e_SV ! z0(Snow eroded) [m] 139 !$OMP T READPRIVATE(Z0e_SV)139 !$OMP THREADPRIVATE(Z0e_SV) 140 140 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: Z0emSV ! z0(Snow eroded, Time Mean) [m] 141 !$OMP T READPRIVATE(Z0emSV)141 !$OMP THREADPRIVATE(Z0emSV) 142 142 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: Z0enSV ! z0(Snow eroded, instanta.) [m] 143 !$OMP T READPRIVATE(Z0enSV)143 !$OMP THREADPRIVATE(Z0enSV) 144 144 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: Z0h_SV ! Heat Roughness Length 145 !$OMP T READPRIVATE(Z0h_SV)145 !$OMP THREADPRIVATE(Z0h_SV) 146 146 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: Z0hmSV ! z0(Heat, Time Mean) [m] 147 !$OMP T READPRIVATE(Z0hmSV)147 !$OMP THREADPRIVATE(Z0hmSV) 148 148 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: Z0hnSV ! z0(Heat, instanta.) [m] 149 !$OMP T READPRIVATE(Z0hnSV)149 !$OMP THREADPRIVATE(Z0hnSV) 150 150 151 151 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: snCaSV ! Canopy Snow Thickness 152 !$OMP T READPRIVATE(snCaSV)152 !$OMP THREADPRIVATE(snCaSV) 153 153 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: rrCaSV ! Canopy Water Content 154 !$OMP T READPRIVATE(rrCaSV)154 !$OMP THREADPRIVATE(rrCaSV) 155 155 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: psivSV ! Leaf Water Potential 156 !$OMP T READPRIVATE(psivSV)156 !$OMP THREADPRIVATE(psivSV) 157 157 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: TvegSV ! Vegetation Temperature 158 !$OMP T READPRIVATE(TvegSV)158 !$OMP THREADPRIVATE(TvegSV) 159 159 160 160 REAL ,ALLOCATABLE,SAVE :: TsisSV(:,:) ! Snow/Ice/Soil-Water Temperature 161 !$OMP T READPRIVATE(TsisSV)161 !$OMP THREADPRIVATE(TsisSV) 162 162 REAL ,ALLOCATABLE,SAVE :: ro__SV(:,:) ! Snow/Ice/Soil-Water VolumicMass 163 !$OMP T READPRIVATE(ro__SV)163 !$OMP THREADPRIVATE(ro__SV) 164 164 REAL,ALLOCATABLE,SAVE :: eta_SV(:,:) ! Snow/Ice/Soil Water Content 165 !$OMP T READPRIVATE(eta_SV)165 !$OMP THREADPRIVATE(eta_SV) 166 166 REAL,ALLOCATABLE,SAVE :: G1snSV(:,:) ! Snow Dendricity/Sphericity 167 !$OMP T READPRIVATE(G1snSV)167 !$OMP THREADPRIVATE(G1snSV) 168 168 REAL,ALLOCATABLE,SAVE :: G2snSV(:,:) ! Snow Sphericity/Size 169 !$OMP T READPRIVATE(G2snSV)169 !$OMP THREADPRIVATE(G2snSV) 170 170 REAL,ALLOCATABLE,SAVE :: dzsnSV(:,:) ! Snow Layer Thickness 171 !$OMP T READPRIVATE(dzsnSV)171 !$OMP THREADPRIVATE(dzsnSV) 172 172 REAL,ALLOCATABLE,SAVE :: agsnSV(:,:) ! Snow Age 173 !$OMP T READPRIVATE(agsnSV)173 !$OMP THREADPRIVATE(agsnSV) 174 174 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: BufsSV ! Snow Buffer Layer 175 !$OMP T READPRIVATE(BufsSV)175 !$OMP THREADPRIVATE(BufsSV) 176 176 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: rusnSV ! Surficial Water 177 !$OMP T READPRIVATE(rusnSV)177 !$OMP THREADPRIVATE(rusnSV) 178 178 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: SWf_SV ! Normalized Decay 179 !$OMP T READPRIVATE(SWf_SV)179 !$OMP THREADPRIVATE(SWf_SV) 180 180 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: SWS_SV ! Surficial Water Status 181 !$OMP T READPRIVATE(SWS_SV)181 !$OMP THREADPRIVATE(SWS_SV) 182 182 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: HFraSV ! Frazil Thickness 183 !$OMP T READPRIVATE(HFraSV)183 !$OMP THREADPRIVATE(HFraSV) 184 184 185 185 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: zWE_SV ! Current Snow Thickness [mmWE] 186 !$OMP T READPRIVATE(zWE_SV)186 !$OMP THREADPRIVATE(zWE_SV) 187 187 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: zWEcSV ! Compacted Snow Thickness [mmWE] 188 !$OMP T READPRIVATE(zWEcSV)188 !$OMP THREADPRIVATE(zWEcSV) 189 189 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: wem_SV ! Only Melting [mmWE] 190 !$OMP T READPRIVATE(wem_SV)190 !$OMP THREADPRIVATE(wem_SV) 191 191 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: wer_SV ! Refreezing [mmWE] 192 !$OMP T READPRIVATE(wer_SV)192 !$OMP THREADPRIVATE(wer_SV) 193 193 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: wes_SV ! Sublimation [mmWE] 194 !$OMP T READPRIVATE(wes_SV)194 !$OMP THREADPRIVATE(wes_SV) 195 195 196 196 … … 199 199 200 200 INTEGER,DIMENSION(nb_wri),SAVE :: no__SV ! OUTPUT file Unit Number 201 !$OMP T READPRIVATE(no__SV)201 !$OMP THREADPRIVATE(no__SV) 202 202 INTEGER,DIMENSION(nb_wri),SAVE :: i___SV ! OUTPUT point i Coordinate 203 !$OMP T READPRIVATE(i___SV)203 !$OMP THREADPRIVATE(i___SV) 204 204 INTEGER,DIMENSION(nb_wri),SAVE :: j___SV ! OUTPUT point j Coordinate 205 !$OMP T READPRIVATE(j___SV)205 !$OMP THREADPRIVATE(j___SV) 206 206 INTEGER,DIMENSION(nb_wri),SAVE :: n___SV ! OUTPUT point n Coordinate 207 !$OMP T READPRIVATE(n___SV)207 !$OMP THREADPRIVATE(n___SV) 208 208 INTEGER,DIMENSION(nb_wri),SAVE :: lwriSV ! OUTPUT point vec Index 209 !$OMP T READPRIVATE(lwriSV)209 !$OMP THREADPRIVATE(lwriSV) 210 210 ! 211 211 INTEGER, DIMENSION(:),ALLOCATABLE,SAVE :: ii__SV ! WORK point i Coordinate 212 !$OMP T READPRIVATE(ii__SV)212 !$OMP THREADPRIVATE(ii__SV) 213 213 INTEGER, DIMENSION(:),ALLOCATABLE,SAVE :: jj__SV ! WORK point j Coordinate 214 !$OMP T READPRIVATE(jj__SV)214 !$OMP THREADPRIVATE(jj__SV) 215 215 INTEGER, DIMENSION(:),ALLOCATABLE,SAVE :: nn__SV ! WORK point n Coordinate 216 !$OMP T READPRIVATE(nn__SV)216 !$OMP THREADPRIVATE(nn__SV) 217 217 218 218 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: IRu_SV ! UPward IR Flux (effective) 219 !$OMP T READPRIVATE(IRu_SV)219 !$OMP THREADPRIVATE(IRu_SV) 220 220 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: hSalSV ! Saltating Layer Height 221 !$OMP T READPRIVATE(hSalSV)221 !$OMP THREADPRIVATE(hSalSV) 222 222 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: qSalSV ! Saltating Snow Concentration 223 !$OMP T READPRIVATE(qSalSV)223 !$OMP THREADPRIVATE(qSalSV) 224 224 REAL, DIMENSION(:),ALLOCATABLE,SAVE :: RnofSV ! RunOFF Intensity 225 !$OMP T READPRIVATE(RnofSV)225 !$OMP THREADPRIVATE(RnofSV) 226 226 227 227 CONTAINS -
LMDZ5/trunk/libf/phylmd/sisvat/surf_sisvat_mod.F90
r1865 r1872 716 716 REAL, DIMENSION(nsoilmx), INTENT(OUT) :: dz2, dz1 717 717 REAL, INTENT(OUT) :: lambda 718 !$OMP THREADPRIVATE(dz1)719 718 720 719
Note: See TracChangeset
for help on using the changeset viewer.
