- Timestamp:
- 08/24/18 12:56:07 (6 years ago)
- Location:
- codes/icosagcm/devel/src/dynamics
- Files:
-
- 1 added
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dynamics/caldyn_gcm.F90
r628 r731 2 2 USE icosa 3 3 USE transfert_mod 4 USE caldyn_vars_mod 4 5 USE caldyn_kernels_hevi_mod 5 6 USE caldyn_kernels_base_mod … … 141 142 142 143 SUBROUTINE allocate_caldyn 143 CALL allocate_field(f_out_u,field_u,type_real,llm)144 144 CALL allocate_field(f_qu,field_u,type_real,llm) 145 145 CALL allocate_field(f_qv,field_z,type_real,llm) -
codes/icosagcm/devel/src/dynamics/caldyn_hevi.f90
r562 r731 2 2 USE icosa 3 3 USE transfert_mod 4 USE caldyn_vars_mod 5 USE caldyn_kernels_hevi_mod 4 6 USE caldyn_kernels_base_mod 5 USE caldyn_kernels_hevi_mod6 7 USE caldyn_gcm_mod 7 8 IMPLICIT NONE -
codes/icosagcm/devel/src/dynamics/caldyn_kernels.f90
r531 r731 2 2 USE icosa 3 3 USE transfert_mod 4 USE caldyn_ kernels_base_mod4 USE caldyn_vars_mod 5 5 IMPLICIT NONE 6 6 PRIVATE 7 7 8 PUBLIC :: compute_planetvel, compute_pvort, compute_geopot, & 9 compute_caldyn_horiz, compute_caldyn_vert 8 PUBLIC :: compute_planetvel, compute_pvort, compute_caldyn_horiz 10 9 CONTAINS 11 10 -
codes/icosagcm/devel/src/dynamics/caldyn_kernels_base.F90
r722 r731 3 3 USE transfert_mod 4 4 USE disvert_mod 5 USE caldyn_vars_mod 5 6 USE omp_para 6 7 USE trace 7 8 IMPLICIT NONE 8 9 PRIVATE 9 10 INTEGER, PARAMETER,PUBLIC :: energy=1, enstrophy=2 11 TYPE(t_field),POINTER,PUBLIC :: f_out_u(:), f_qu(:), f_qv(:) 12 REAL(rstd),SAVE,POINTER :: out_u(:,:), p(:,:), qu(:,:) 13 !$OMP THREADPRIVATE(out_u, p, qu) 14 15 ! temporary shared variables for caldyn 16 TYPE(t_field),POINTER,PUBLIC :: f_pk(:),f_wwuu(:),f_planetvel(:), & 17 f_Fel(:), f_gradPhi2(:), f_wil(:), f_Wetadot(:) 18 19 INTEGER, PUBLIC :: caldyn_conserv 20 !$OMP THREADPRIVATE(caldyn_conserv) 21 22 TYPE(t_message),PUBLIC :: req_ps, req_mass, req_theta_rhodz, req_u, req_qu, req_geopot, req_w 10 SAVE 23 11 24 12 PUBLIC :: compute_geopot, compute_caldyn_vert, compute_caldyn_vert_nh -
codes/icosagcm/devel/src/dynamics/caldyn_kernels_hevi.F90
r657 r731 5 5 USE disvert_mod 6 6 USE transfert_mod 7 USE caldyn_ kernels_base_mod7 USE caldyn_vars_mod 8 8 IMPLICIT NONE 9 9 PRIVATE
Note: See TracChangeset
for help on using the changeset viewer.