Changeset 310 for codes/icosagcm/branches/SATURN_DYNAMICO
- Timestamp:
- 12/15/14 09:22:51 (10 years ago)
- Location:
- codes/icosagcm/branches/SATURN_DYNAMICO
- Files:
-
- 1 added
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/callkeys.h
r227 r310 6 6 7 7 COMMON/callkeys_l/callrad,corrk,calldifv,UseTurbDiff,calladj & 8 & , co2cond,callsoil 8 & , co2cond,callsoil,callradsponge & 9 9 & , season,diurnal,tlocked,rings_shadow,lwrite & 10 10 & , callstats,calleofdump & … … 50 50 & , strictboundcorrk 51 51 52 logical callradsponge 52 53 logical enertest 53 54 logical nonideal -
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/inifis.F
r298 r310 204 204 if (is_master) write(*,*) "Rmean = ", Rmean 205 205 206 if (is_master) write(*,*) 207 & "Add sponge after radiative transfer?" 208 callradsponge=.false. 209 call getin_p("callradsponge", callradsponge) 210 if (is_master) write(*,*) "callradsponge = ", callradsponge 211 206 212 ! Test of incompatibility: 207 213 ! if tlocked, then diurnal should be false -
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/physiq.F90
r298 r310 280 280 real zdvmolvis(ngrid,nlayer) 281 281 real zdqmoldiff(ngrid,nlayer,nq) 282 real dtradsponge(ngrid,nlayer) ! (K/s) 282 283 283 284 ! Local variables for local calculations: … … 1088 1089 !------------------------- 1089 1090 1091 if (callradsponge) then 1092 call radsponge(ngrid,nlayer,pplay,pplev,pt,pdt,dtphys,dtradsponge) 1093 pdt(1:ngrid,1:nlayer)=pdt(1:ngrid,1:nlayer)+dtradsponge(1:ngrid,1:nlayer) 1094 endif 1095 1090 1096 endif ! of if (callrad) 1091 1097 -
codes/icosagcm/branches/SATURN_DYNAMICO/TEST/callphys.def
r220 r310 46 46 #iradia = 160 47 47 iradia = 40 48 # Add temperature sponge effect after radiative transfer? 49 callradsponge=.true. 48 50 # call multilayer correlated-k radiative transfer ? 49 51 corrk = .true.
Note: See TracChangeset
for help on using the changeset viewer.