Changeset 972 for codes/icosagcm/devel/src
- Timestamp:
- 09/19/19 15:57:53 (5 years ago)
- Location:
- codes/icosagcm/devel/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dissip/nudging_mod.f90
r969 r972 254 254 ps2 = f_ps(ind) 255 255 CALL compute_guided_center2(coef_i, target_ps, ps2) 256 CASE ('wind_temperature') 257 coef_e = f_relax_coef_e(ind) 258 target_ue = f_target_ue(ind) 259 ue = f_u(ind) 260 CALL compute_guided_u(coef_e, target_ue, ue) 261 coef_i = f_relax_coef_i(ind) 262 target_theta_rhodz = f_target_theta_rhodz(ind) 263 theta_rhodz = f_theta_rhodz(ind) 264 CALL compute_guided_center(coef_i, target_theta_rhodz, theta_rhodz) 256 265 CASE ('wind_temperature_ps') 257 266 coef_e = f_relax_coef_e(ind) -
codes/icosagcm/devel/src/initial/etat0_dcmip4.f90
r834 r972 3 3 IMPLICIT NONE 4 4 PRIVATE 5 5 SAVE 6 6 7 REAL(rstd),PARAMETER :: eta0=0.252 7 8 REAL(rstd),PARAMETER :: etat=0.2 … … 12 13 REAL(rstd),PARAMETER :: Rd=287 13 14 REAL(rstd),PARAMETER :: Gamma=0.005 14 REAL(rstd),PARAMETER :: up0=115 15 REAL(rstd),PARAMETER :: lonc=Pi/9, latc=2*Pi/9, latw=2*Pi/9 16 16 REAL(rstd),PARAMETER :: pw=34000 17 17 REAL(rstd),PARAMETER :: q0=0.021 18 19 REAL(rstd) :: up0=1. ! default value, can be modified in run.def 20 !$OMP THREADPRIVATE(up0) 18 21 19 INTEGER ,SAVE:: testcase20 !$OMP THREADPRIVATE(testcase) 22 INTEGER :: testcase 23 !$OMP THREADPRIVATE(testcase) 21 24 22 25 PUBLIC getin_etat0, compute_etat0 … … 34 37 testcase=1 35 38 CALL getin("dcmip4_testcase",testcase) 39 CALL getin("dcmip4_up0",up0) 36 40 END SUBROUTINE getin_etat0 37 41
Note: See TracChangeset
for help on using the changeset viewer.