Ignore:
Timestamp:
08/24/18 12:56:07 (6 years ago)
Author:
dubos
Message:

devel : cleanup and reorganization in dynamics/

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dynamics/caldyn_kernels_base.F90

    r722 r731  
    33  USE transfert_mod 
    44  USE disvert_mod 
     5  USE caldyn_vars_mod 
    56  USE omp_para 
    67  USE trace 
    78  IMPLICIT NONE 
    89  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 
    2311 
    2412  PUBLIC :: compute_geopot, compute_caldyn_vert, compute_caldyn_vert_nh 
Note: See TracChangeset for help on using the changeset viewer.