Changeset 733 for codes/icosagcm/devel/src/dynamics/caldyn_vars.f90
- Timestamp:
- 08/24/18 14:23:25 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dynamics/caldyn_vars.f90
r732 r733 6 6 SAVE 7 7 8 INTEGER, PARAMETER :: energy=1, enstrophy=2, caldyn_vert_noncons=1, caldyn_vert_cons=2, & 8 INTEGER, PARAMETER :: conserv_energy=1, conserv_enstrophy=2, & 9 kinetic_trisk=1, kinetic_consistent=2, & 10 caldyn_vert_noncons=1, caldyn_vert_cons=2, & 9 11 thermo_none=-99, thermo_theta=1, thermo_entropy=2, & 10 12 thermo_moist=3, thermo_boussinesq=4, thermo_dry=10, thermo_fake_moist=11, thermo_moist_debug=100 11 13 12 INTEGER :: caldyn_conserv, caldyn_ thermo, caldyn_vert_variant, physics_thermo13 !$OMP THREADPRIVATE(caldyn_conserv, caldyn_ thermo, caldyn_vert_variant, physics_thermo)14 INTEGER :: caldyn_conserv, caldyn_kinetic, caldyn_thermo, caldyn_vert_variant, physics_thermo 15 !$OMP THREADPRIVATE(caldyn_conserv, caldyn_kinetic, caldyn_thermo, caldyn_vert_variant, physics_thermo) 14 16 15 17 LOGICAL :: boussinesq, hydrostatic … … 20 22 21 23 ! temporary shared variables for caldyn 22 TYPE(t_field),POINTER :: f_qu(:), f_qv(:), f_pk(:),f_wwuu(:),f_planetvel(:), & 24 TYPE(t_field),POINTER :: f_qu(:), f_qv(:), f_Kv(:), & 25 f_pk(:),f_wwuu(:),f_planetvel(:), & 23 26 f_Fel(:), f_gradPhi2(:), f_wil(:), f_Wetadot(:) 24 25 27 26 28 TYPE(t_message) :: req_ps, req_mass, req_theta_rhodz, req_u, req_qu, req_geopot, req_w
Note: See TracChangeset
for help on using the changeset viewer.