- Timestamp:
- 02/01/15 21:10:39 (9 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/etat0.f90
r321 r325 25 25 USE etat0_dcmip4_mod, ONLY : etat0_dcmip4=>etat0 26 26 USE etat0_heldsz_mod, ONLY : etat0_heldsz=>etat0 27 USE etat0_venus_mod, ONLY : etat0_venus=>etat0 27 28 USE etat0_start_file_mod, ONLY : etat0_start_file=>etat0 28 29 … … 72 73 PRINT *,"Held & Suarez (1994) test case" 73 74 CALL etat0_heldsz(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 75 CASE ('venus') 76 CALL etat0_venus(f_ps, f_phis, f_theta_rhodz, f_u, f_q) 77 PRINT *, "Venus (Lebonnois et al., 2012) test case" 74 78 CASE ('dcmip1') 75 79 CALL etat0_dcmip1(f_ps,f_phis,f_theta_rhodz,f_u, f_q) -
codes/icosagcm/trunk/src/physics.f90
r295 r325 5 5 PRIVATE 6 6 7 INTEGER, PARAMETER :: phys_none=0, phys_HS94=1, phys_DCMIP=2 7 INTEGER, PARAMETER :: phys_none=0, phys_HS94=1, phys_DCMIP=2, phys_LB2012=3 8 8 9 9 INTEGER :: phys_type … … 25 25 USE physics_interface_mod 26 26 USE physics_dcmip_mod, ONLY : init_physics_dcmip=>init_physics 27 USE etat0_venus_mod, ONLY : init_phys_venus=>init_physics 27 28 IMPLICIT NONE 28 29 … … 36 37 CASE ('held_suarez') 37 38 phys_type = phys_HS94 39 CASE ('Lebonnois2012') 40 phys_type = phys_LB2012 41 CALL init_phys_venus 38 42 CASE ('dcmip') 39 43 CALL allocate_field(f_dulon,field_t,type_real,llm, name='dulon') … … 46 50 CASE DEFAULT 47 51 IF(is_mpi_root) PRINT*, 'init_physics : Bad selector for variable physics <',& 48 TRIM(physics_type), '> options are <none>, <held_suarez>, < dcmip>'52 TRIM(physics_type), '> options are <none>, <held_suarez>, <Lebonnois2012>, <dcmip>' 49 53 STOP 50 54 END SELECT … … 58 62 USE physics_dcmip_mod, ONLY : write_physics_dcmip => write_physics 59 63 USE etat0_heldsz_mod 64 USE etat0_venus_mod, ONLY : phys_venus => physics 60 65 IMPLICIT NONE 61 66 INTEGER, INTENT(IN) :: it … … 82 87 CASE(phys_HS94) 83 88 CALL held_suarez(f_ps,f_theta_rhodz,f_ue) 89 CASE(phys_LB2012) 90 CALL phys_venus(f_ps,f_theta_rhodz,f_ue) 84 91 CASE DEFAULT 85 92 CALL physics_column(it, f_phis, f_ps, f_theta_rhodz, f_ue, f_q)
Note: See TracChangeset
for help on using the changeset viewer.