Changeset 19 for codes/icosagcm/trunk/src/guided_mod.f90
- Timestamp:
- 07/16/12 11:26:23 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/guided_mod.f90
r17 r19 7 7 8 8 SUBROUTINE init_guided(dt) 9 USE prec 10 USE ioipsl 9 USE icosa 11 10 USE guided_ncar_mod, ONLY : init_guided_ncar => init_guided 12 11 IMPLICIT NONE … … 32 31 33 32 SUBROUTINE guided(it, f_ps, f_theta_rhodz, f_u, f_q) 34 USE field_mod 35 USE domain_mod 36 USE dimensions 37 USE geometry 33 USE icosa 38 34 USE guided_ncar_mod, ONLY : guided_ncar => guided 39 USE ioipsl40 35 IMPLICIT NONE 41 36 INTEGER, INTENT(IN) :: it
Note: See TracChangeset
for help on using the changeset viewer.