Changeset 178 for codes/icosagcm/trunk
- Timestamp:
- 12/13/13 18:32:35 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/physics.f90
r170 r178 7 7 8 8 SUBROUTINE init_physics 9 USE mpipara 10 USE etat0_mod 9 11 USE icosa 10 12 USE physics_dcmip_mod,init_physics_dcmip=>init_physics … … 12 14 IMPLICIT NONE 13 15 16 physics_type='automatic' 14 17 CALL getin("physics",physics_type) 15 18 16 19 SELECT CASE(TRIM(physics_type)) 17 20 CASE ('automatic') 21 etat0_type='jablonowsky06' 22 CALL getin("etat0",etat0_type) 23 SELECT CASE(TRIM(etat0_type)) 24 CASE('held_suarez') 25 CASE DEFAULT 26 IF(is_mpi_root) PRINT*,"NO PHYSICAL PACKAGE USED" 27 END SELECT 28 18 29 19 30 CASE ('dcmip') … … 56 67 ! CALL transfert_request(f_ue,req_e1_vect) 57 68 CALL held_suarez(f_ps,f_theta_rhodz,f_ue) 58 CASE DEFAULT59 PRINT*,"NO PHYSICAL PACAKAGE USED" ! FIXME MPI60 69 END SELECT 61 70
Note: See TracChangeset
for help on using the changeset viewer.