Changeset 572 for codes/icosagcm/devel/src
- Timestamp:
- 10/12/17 19:08:46 (7 years ago)
- Location:
- codes/icosagcm/devel/src/dynamics
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dynamics/caldyn.f90
r562 r572 29 29 END SELECT 30 30 31 dysl=.FALSE.32 CALL getin("dysl",dysl)33 dysl_geopot=dysl34 CALL getin("dysl_geopot",dysl_geopot)35 dysl_caldyn_fast=dysl36 CALL getin("dysl_caldyn_fast",dysl_caldyn_fast)37 dysl_slow_hydro=dysl38 CALL getin("dysl_slow_hydro",dysl_slow_hydro)39 dysl_pvort_only=dysl40 CALL getin("dysl_pvort_only",dysl_pvort_only)41 dysl_caldyn_coriolis=dysl42 CALL getin("dysl_caldyn_coriolis",dysl_caldyn_coriolis)43 44 31 END SUBROUTINE init_caldyn 45 32 -
codes/icosagcm/devel/src/dynamics/caldyn_gcm.F90
r558 r572 22 22 REAL(rstd),POINTER :: planetvel(:) 23 23 24 #ifdef CPP_DYSL25 IF(is_master) PRINT *,'CPP_DYSL : Using macro-generated compute kernels'26 #endif27 28 24 hydrostatic=.TRUE. 29 25 CALL getin("hydrostatic",hydrostatic) 30 26 27 dysl=.NOT.hydrostatic ! dysl defaults to .FALSE. if hydrostatic, .TRUE. if NH 28 CALL getin("dysl",dysl) 29 dysl_geopot=dysl 30 CALL getin("dysl_geopot",dysl_geopot) 31 dysl_caldyn_fast=dysl 32 CALL getin("dysl_caldyn_fast",dysl_caldyn_fast) 33 dysl_slow_hydro=dysl 34 CALL getin("dysl_slow_hydro",dysl_slow_hydro) 35 dysl_pvort_only=dysl 36 CALL getin("dysl_pvort_only",dysl_pvort_only) 37 dysl_caldyn_coriolis=dysl 38 CALL getin("dysl_caldyn_coriolis",dysl_caldyn_coriolis) 39 31 40 def='energy' 32 41 CALL getin('caldyn_conserv',def)
Note: See TracChangeset
for help on using the changeset viewer.