Changeset 731 for codes/icosagcm/devel/src/dynamics/caldyn_kernels_base.F90
- Timestamp:
- 08/24/18 12:56:07 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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
Note: See TracChangeset
for help on using the changeset viewer.