Changeset 251 for codes/icosagcm/trunk
- Timestamp:
- 07/23/14 12:30:36 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/caldyn.f90
r186 r251 1 1 MODULE caldyn_mod 2 2 USE icosa 3 USE caldyn_gcm_mod, ONLY : caldyn_BC4 3 PRIVATE 5 4 CHARACTER(LEN=255),SAVE :: caldyn_type … … 31 30 32 31 END SUBROUTINE init_caldyn 32 33 SUBROUTINE caldyn_BC(f_phis, f_wflux) 34 USE caldyn_gcm_mod, ONLY : caldyn_gcm_BC=>caldyn_BC 35 IMPLICIT NONE 36 TYPE(t_field), POINTER :: f_phis(:), f_wflux(:) 37 SELECT CASE (TRIM(caldyn_type)) 38 CASE('gcm') 39 CALL caldyn_gcm_BC(f_phis, f_wflux) 40 END SELECT 41 END SUBROUTINE caldyn_BC 33 42 34 43 SUBROUTINE caldyn(write_out,f_phis, f_ps, f_mass, f_theta_rhodz, f_u, f_q, &
Note: See TracChangeset
for help on using the changeset viewer.