Changeset 19 for codes/icosagcm/trunk/src/caldyn_adv.f90
- Timestamp:
- 07/16/12 11:26:23 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/caldyn_adv.f90
r17 r19 1 1 MODULE caldyn_adv_mod 2 USE genmod 3 USE field_mod 4 USE transfert_mod 2 USE icosa 5 3 6 4 TYPE(t_field),POINTER :: f_out(:) … … 16 14 17 15 SUBROUTINE init_caldyn(dt) 18 USE IOIPSL16 USE icosa 19 17 IMPLICIT NONE 20 18 REAL(rstd),INTENT(IN) :: dt … … 31 29 32 30 SUBROUTINE allocate_caldyn 33 USE domain_mod 34 USE dimensions 35 USE geometry 36 USE metric 31 USE icosa 37 32 IMPLICIT NONE 38 33 … … 53 48 54 49 SUBROUTINE check_mass_conservation(f_ps,f_dps) 55 USE domain_mod 56 USE dimensions 57 USE geometry 50 USE icosa 58 51 IMPLICIT NONE 59 52 TYPE(t_field),POINTER :: f_ps(:) … … 95 88 96 89 SUBROUTINE caldyn(it,f_phis, f_ps, f_theta_rhodz, f_u, f_dps, f_dtheta_rhodz, f_du) 97 USE domain_mod 98 USE dimensions 99 USE grid_param 100 USE geometry 101 USE metric 102 USE write_field 90 USE icosa 103 91 USE vorticity_mod 104 92 USE kinetic_mod … … 161 149 162 150 SUBROUTINE compute_caldyn(phis, ps, theta_rhodz, u, dps, dtheta_rhodz, du) 163 USE domain_mod 164 USE dimensions 165 USE grid_param 166 USE geometry 167 USE metric 151 USE icosa 168 152 USE disvert_mod 169 153 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.