Changeset 19 for codes/icosagcm/trunk/src/etat0_jablonowsky06.f90
- Timestamp:
- 07/16/12 11:26:23 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/etat0_jablonowsky06.f90
r17 r19 1 1 MODULE etat0_jablonowsky06_mod 2 USE genmod2 USE icosa 3 3 PRIVATE 4 4 REAL(rstd),PARAMETER :: eta0=0.252 … … 16 16 17 17 SUBROUTINE test_etat0_jablonowsky06 18 USE field_mod 19 USE domain_mod 20 USE dimensions 21 USE grid_param 22 USE geometry 23 USE write_field 18 USE icosa 24 19 USE kinetic_mod 25 20 USE pression_mod … … 79 74 80 75 SUBROUTINE etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q) 81 USE field_mod 82 USE domain_mod 83 USE domain_mod 84 USE dimensions 85 USE grid_param 86 USE geometry 76 USE icosa 87 77 IMPLICIT NONE 88 78 TYPE(t_field),POINTER :: f_ps(:) … … 114 104 115 105 SUBROUTINE compute_etat0_jablonowsky06(ps, phis, theta_rhodz, u) 116 USE domain_mod 117 USE dimensions 118 USE grid_param 119 USE geometry 120 USE metric 106 USE icosa 121 107 USE disvert_mod 122 USE spherical_geom_mod123 USE vector124 108 USE pression_mod 125 109 USE exner_mod
Note: See TracChangeset
for help on using the changeset viewer.