Changeset 37 for codes/icosagcm/trunk/src/etat0.f90
- Timestamp:
- 07/27/12 16:11:34 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/etat0.f90
r19 r37 9 9 USE etat0_academic_mod, ONLY : etat0_academic=>etat0 10 10 USE etat0_ncar_mod, ONLY : etat0_ncar=>etat0 11 USE etat0_dcmip3_mod, ONLY : etat0_dcmip3=>etat0 11 12 IMPLICIT NONE 12 13 TYPE(t_field),POINTER :: f_ps(:) … … 28 29 CASE ('ncar') 29 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) 30 33 CASE DEFAULT 31 34 PRINT*, 'Bad selector for varaiable etat0 <',etat0_type,'> options are <jablonowsky06>, <academic>, <ncar> '
Note: See TracChangeset
for help on using the changeset viewer.