Changeset 19 for codes/icosagcm/trunk/src/etat0.f90
- Timestamp:
- 07/16/12 11:26:23 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/etat0.f90
r17 r19 5 5 6 6 SUBROUTINE etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 7 USE field_mod 8 USE domain_mod 9 USE domain_mod 10 USE dimensions 11 USE grid_param 12 USE geometry 7 USE icosa 13 8 USE etat0_jablonowsky06_mod, ONLY : etat0_jablonowsky06=>etat0 14 9 USE etat0_academic_mod, ONLY : etat0_academic=>etat0 15 10 USE etat0_ncar_mod, ONLY : etat0_ncar=>etat0 16 USE ioipsl17 11 IMPLICIT NONE 18 12 TYPE(t_field),POINTER :: f_ps(:)
Note: See TracChangeset
for help on using the changeset viewer.