- Timestamp:
- 10/17/14 18:26:34 (10 years ago)
- Location:
- codes/icosagcm/branches/SATURN_DYNAMICO
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/timeloop_gcm.f90
r262 r282 39 39 USE output_field_mod 40 40 USE write_field 41 USE sponge_mod 41 42 IMPLICIT NONE 42 43 … … 119 120 120 121 CALL init_dissip 122 CALL init_sponge 121 123 CALL init_caldyn 122 124 CALL init_guided … … 141 143 USE icosa 142 144 USE dissip_gcm_mod 145 USE sponge_mod 143 146 USE disvert_mod 144 147 USE caldyn_mod … … 269 272 ! CALL wait_message(req_mass) 270 273 CALL euler_scheme(.FALSE.) ! update only u, theta 274 IF (iflag_sponge > 0) THEN 275 CALL sponge(f_u,f_du,f_theta_rhodz,f_dtheta_rhodz) 276 CALL euler_scheme(.FALSE.) ! update only u, theta 277 ENDIF 271 278 END IF 272 279 -
codes/icosagcm/branches/SATURN_DYNAMICO/TEST/run_icosa.def
r270 r282 142 142 rayleigh_friction_type=none 143 143 144 #Sponge layer 145 ### iflag_sponge=0 for no sponge 146 ### iflag_sponge=1 for sponge over 4 topmost layers 147 ### iflag_sponge=2 for sponge from top to ~1% of top layer pressure 148 ### tau_sponge --> damping frequency at last layer 149 ### e-5 medium / e-4 strong yet reasonable / e-3 very strong 150 ### mode_sponge=1 for u,v --> 0 151 ### mode_sponge=2 for u,v --> zonal mean (NOT IMPLEMENTED) 152 ### mode_sponge=3 for u,v,h --> zonal mean (NOT IMPLEMENTED) 153 iflag_sponge = 1 154 tau_sponge = 1.e-4 155 mode_sponge = 1 156 144 157 # -------------------------------- Physics ------------------------------------- 145 158
Note: See TracChangeset
for help on using the changeset viewer.