Changeset 54 for codes/icosagcm/trunk
- Timestamp:
- 07/31/12 17:37:27 (12 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/dcmip_initial_conditions_test_1_2_3_v5.f90
r48 r54 58 58 59 59 PRIVATE 60 PUBLIC :: test3_gravity_wave ! (lon,lat,p,z,zcoords,u,v,w,t,phis,ps,rho,q) 61 60 PUBLIC :: test3_gravity_wave, & ! (lon,lat,p,z,zcoords,u,v,w,t,phis,ps,rho,q) 61 test2_steady_state_mountain, & 62 test2_schaer_mountain 62 63 !----------------------------------------------------------------------- 63 64 ! Physical Parameters -
codes/icosagcm/trunk/src/etat0.f90
r37 r54 1 1 MODULE etat0_mod 2 3 2 4 3 CONTAINS 5 4 6 5 SUBROUTINE etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 7 USE icosa 8 USE etat0_jablonowsky06_mod, ONLY : etat0_jablonowsky06=>etat0 9 USE etat0_academic_mod, ONLY : etat0_academic=>etat0 10 USE etat0_ncar_mod, ONLY : etat0_ncar=>etat0 11 USE etat0_dcmip3_mod, ONLY : etat0_dcmip3=>etat0 12 IMPLICIT NONE 6 USE icosa 7 USE etat0_jablonowsky06_mod, ONLY : etat0_jablonowsky06=>etat0 8 USE etat0_academic_mod, ONLY : etat0_academic=>etat0 9 USE etat0_dcmip1_mod, ONLY : etat0_dcmip1=>etat0 10 USE etat0_dcmip2_mod, ONLY : etat0_dcmip2=>etat0 11 USE etat0_dcmip3_mod, ONLY : etat0_dcmip3=>etat0 12 IMPLICIT NONE 13 13 TYPE(t_field),POINTER :: f_ps(:) 14 14 TYPE(t_field),POINTER :: f_phis(:) … … 16 16 TYPE(t_field),POINTER :: f_u(:) 17 17 TYPE(t_field),POINTER :: f_q(:) 18 18 19 19 CHARACTER(len=255) :: etat0_type 20 21 20 etat0_type='jablonowsky06' 22 21 CALL getin("etat0",etat0_type) 23 22 24 23 SELECT CASE (TRIM(etat0_type)) 25 CASE ('jablonowsky06') 26 CALL etat0_jablonowsky06(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 27 CASE ('academic') 28 CALL etat0_academic(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 29 CASE ('ncar') 30 CALL etat0_ncar(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 31 CASE ('dcmip3') 32 CALL etat0_dcmip3(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 33 CASE DEFAULT 34 PRINT*, 'Bad selector for varaiable etat0 <',etat0_type,'> options are <jablonowsky06>, <academic>, <ncar> ' 35 STOP 36 END SELECT 37 38 END SUBROUTINE etat0 24 CASE ('jablonowsky06') 25 CALL etat0_jablonowsky06(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 26 CASE ('academic') 27 CALL etat0_academic(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 28 CASE ('dcmip1') 29 CALL etat0_dcmip1(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 30 CASE ('dcmip2_mountain','dcmip2_schaer_noshear','dcmip2_schaer_shear') 31 CALL etat0_dcmip2(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 32 CASE ('dcmip3') 33 CALL etat0_dcmip3(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 34 CASE DEFAULT 35 PRINT*, 'Bad selector for variable etat0 <',etat0_type, & 36 '> options are <jablonowsky06>, <academic>, <dcmip[1-3]> ' 37 STOP 38 END SELECT 39 40 END SUBROUTINE etat0 39 41 40 42 END MODULE etat0_mod
Note: See TracChangeset
for help on using the changeset viewer.