Changeset 215 for codes/icosagcm/trunk
- Timestamp:
- 07/15/14 19:54:34 (10 years ago)
- Location:
- codes/icosagcm/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/param_sets/make_rundefs.sh
r197 r215 15 15 ################################### Planet ####################################### 16 16 17 function radius { print 'Planetary radius' real 37122E6radius $117 function radius { print 'Planetary radius' real 6371220 radius $1 18 18 } 19 19 function g { print Gravity real 9.80616 g $1 … … 99 99 100 100 function physics { print 'Physics package' '[automatic|dcmip]' automatic physics $1 101 } 102 103 function itau_physics { print 'Call physics every itau_physics time steps' 'integer' 1 itau_physics $1 101 104 } 102 105 … … 219 222 dissip 10800 1 10800 2 10800 2 220 223 group 'Time' run_length 864000 write_period 7200 221 group 'Physical parameters' nqtot 1 etat0 dcmip5 dcmip_physics 0 224 group 'Physical parameters' nqtot 1 etat0 dcmip5 dcmip_physics 0 itau_physics 6 222 225 } 223 226 -
codes/icosagcm/trunk/src/physics.f90
r214 r215 23 23 USE icosa 24 24 USE physics_interface_mod 25 USE physics_dcmip_mod, ONLY : init_physics_dcmip _new=>init_physics25 USE physics_dcmip_mod, ONLY : init_physics_dcmip=>init_physics 26 26 IMPLICIT NONE 27 27 -
codes/icosagcm/trunk/src/physics_dcmip.f90
r214 r215 43 43 44 44 PRINT *, 'init_physics_new', SIZE(physics_inout%Ai) 45 END SUBROUTINE init_physics _new45 END SUBROUTINE init_physics 46 46 47 47 SUBROUTINE full_physics
Note: See TracChangeset
for help on using the changeset viewer.