Changeset 19 for codes/icosagcm/trunk/src/etat0_academic.f90
- Timestamp:
- 07/16/12 11:26:23 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/etat0_academic.f90
r17 r19 7 7 8 8 SUBROUTINE test_etat0_academic 9 USE field_mod 10 USE domain_mod 11 USE dimensions 12 USE grid_param 13 USE geometry 14 USE write_field 9 USE icosa 15 10 USE kinetic_mod 16 11 IMPLICIT NONE … … 48 43 49 44 SUBROUTINE etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 50 USE field_mod 51 USE domain_mod 52 USE domain_mod 53 USE dimensions 54 USE grid_param 55 USE geometry 45 USE icosa 56 46 IMPLICIT NONE 57 47 TYPE(t_field),POINTER :: f_ps(:) … … 80 70 81 71 SUBROUTINE compute_etat0_academic(ps, phis, theta_rhodz, u) 82 USE domain_mod 83 USE dimensions 84 USE grid_param 85 USE geometry 86 USE metric 72 USE icosa 87 73 USE disvert_mod 88 USE spherical_geom_mod89 74 USE pression_mod 90 75 USE exner_mod
Note: See TracChangeset
for help on using the changeset viewer.