Changeset 939 for codes/icosagcm/devel/src
- Timestamp:
- 07/03/19 18:32:47 (5 years ago)
- Location:
- codes/icosagcm/devel/src
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/base/grid_param.f90
r839 r939 4 4 SAVE 5 5 6 ! Some variable are BIND(C) to be accessible from Python ! They are declared using C sizes 6 ! Some variables are BIND(C) to be accessible from Python 7 ! They are declared using C sizes 7 8 8 9 INTEGER :: iim_glo=40 -
codes/icosagcm/devel/src/dynamics/compute_NH_geopot.F90
r878 r939 1 1 MODULE compute_NH_geopot_mod 2 USE grid_param , ONLY : llm2 USE grid_param 3 3 IMPLICIT NONE 4 4 PRIVATE … … 136 136 thermo_entropy 137 137 USE disvert_mod, ONLY : ptop 138 USE data_unstructured_mod, ONLY : primal_num,edge_num,dual_num,id_NH_geopot,debug_hevi_solver_, & 139 PHI_BOT,pbot,rho_bot,enter_trace, exit_trace 138 USE data_unstructured_mod, ONLY : enter_trace, exit_trace, & 139 id_NH_geopot,debug_hevi_solver_, & 140 PHI_BOT,pbot,rho_bot 140 141 FIELD_MASS :: m_ik, theta ! IN*2 141 142 FIELD_GEOPOT :: m_il, W_il, Phi_il, Phi_star_il ! IN,INOUT*2, LOCAL -
codes/icosagcm/devel/src/dynamics/compute_caldyn_Coriolis.F90
r928 r939 63 63 SUBROUTINE compute_caldyn_coriolis_unst(hflux,theta,qu, Ftheta, convm,dtheta_rhodz,du) 64 64 USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT 65 USE data_unstructured_mod, ONLY : id_coriolis, primal_num, dual_num, edge_num, & 66 left, right,primal_deg,primal_edge,primal_ne,trisk_deg,wee,trisk,Ai, & 67 enter_trace, exit_trace 65 USE data_unstructured_mod, ONLY : enter_trace, exit_trace, & 66 id_coriolis, left, right, primal_deg, primal_edge, primal_ne, & 67 trisk_deg, trisk, wee ! FIXME wee 68 68 69 FIELD_U :: hflux, Ftheta, qu, du ! IN, BUF, IN, INOUT 69 70 FIELD_MASS :: convm ! BUF -
codes/icosagcm/devel/src/dynamics/compute_caldyn_fast.F90
r935 r939 71 71 USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT 72 72 USE data_unstructured_mod, ONLY : enter_trace, exit_trace, & 73 id_fast, primal_num, dual_num, edge_num, & 74 dual_deg, dual_edge, dual_ne, dual_vertex, & 75 up, down, left, right, Av, fv, Riv2 73 id_fast, dual_deg, dual_edge, dual_ne, dual_vertex, & 74 up, down, left, right 76 75 NUM, INTENT(IN) :: tau 77 76 FIELD_MASS :: pk,berni ! INOUT, OUT -
codes/icosagcm/devel/src/dynamics/compute_caldyn_slow_NH.F90
r876 r939 1 1 MODULE compute_caldyn_slow_NH_mod 2 USE grid_param , ONLY : llm2 USE grid_param 3 3 IMPLICIT NONE 4 4 PRIVATE … … 80 80 SUBROUTINE compute_caldyn_vert_NH_unst(mass,geopot,W,wflux, eta_dot,wcov,W_etadot, du,dPhi,dW) 81 81 USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT 82 USE data_unstructured_mod, ONLY : left,right,edge_num,primal_num,dual_num,id_vert_NH, &83 enter_trace, exit_trace82 USE data_unstructured_mod, ONLY : enter_trace, exit_trace, & 83 id_vert_NH, left,right 84 84 FIELD_MASS :: mass, eta_dot, wcov, W_etadot ! IN, BUF*3 85 85 FIELD_GEOPOT :: geopot,W,wflux,dPhi,dW ! IN*3, INOUT*2 -
codes/icosagcm/devel/src/dynamics/compute_caldyn_slow_hydro.F90
r935 r939 55 55 SUBROUTINE compute_caldyn_slow_hydro_unst(zero, u,rhodz,hv,Kv, berni, hflux,du) 56 56 USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT 57 USE data_unstructured_mod, ONLY : left,right,edge_num,primal_num,dual_num,id_slow_hydro, &58 primal_deg,le_de,primal_edge,Ai,enter_trace, exit_trace57 USE data_unstructured_mod, ONLY : enter_trace, exit_trace, & 58 id_slow_hydro, left, right, primal_deg, primal_edge 59 59 LOGICAL, INTENT(IN) :: zero 60 60 FIELD_MASS :: rhodz, hv, Kv, berni ! IN, IN, IN, BUF -
codes/icosagcm/devel/src/dynamics/compute_caldyn_solver.F90
r928 r939 1 1 MODULE compute_caldyn_solver_mod 2 USE grid_param , ONLY : llm2 USE grid_param 3 3 IMPLICIT NONE 4 4 PRIVATE … … 93 93 USE grid_param, ONLY : nqdyn 94 94 USE disvert_mod, ONLY : ptop 95 USE data_unstructured_mod, ONLY : id_solver,primal_num,dual_num,edge_num,left, right,PHI_BOT, & 96 enter_trace, exit_trace 95 USE data_unstructured_mod, ONLY : enter_trace, exit_trace, & 96 id_solver, left, right, PHI_BOT 97 97 98 USE compute_NH_geopot_mod, ONLY : compute_NH_geopot_unst 98 99 NUM, INTENT(IN) :: tau -
codes/icosagcm/devel/src/dynamics/compute_pvort_only.F90
r912 r939 1 1 MODULE compute_pvort_only_mod 2 USE grid_param , ONLY : llm2 USE grid_param 3 3 IMPLICIT NONE 4 4 PRIVATE … … 38 38 SUBROUTINE compute_pvort_only_unst(u,rhodz,qu,qv, hv_) 39 39 USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT 40 USE data_unstructured_mod, ONLY : enter_trace, exit_trace, &41 id_pvort_only, primal_num, dual_num, edge_num, &42 dual_deg, dual_edge, dual_ne, dual_vertex, up, down , Av, fv, Riv240 USE geometry, ONLY : Riv2, Av, fv 41 USE data_unstructured_mod, ONLY : enter_trace, exit_trace, id_pvort_only, & 42 dual_deg, dual_edge, dual_ne, dual_vertex, up, down 43 43 FIELD_MASS :: rhodz 44 44 FIELD_U :: u,qu -
codes/icosagcm/devel/src/dynamics/compute_theta.F90
r917 r939 1 1 MODULE compute_theta_mod 2 USE grid_param , ONLY : llm, nqdyn2 USE grid_param 3 3 USE disvert_mod, ONLY : mass_dak, mass_dbk, caldyn_eta, eta_mass, ptop 4 4 IMPLICIT NONE … … 73 73 SUBROUTINE compute_theta_unst(mass_col,theta_rhodz, rhodz,theta) 74 74 USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT 75 USE data_unstructured_mod, ONLY : id_theta,primal_num,dual_num,edge_num, & 76 enter_trace, exit_trace 75 USE data_unstructured_mod, ONLY : enter_trace, exit_trace, id_theta 77 76 FIELD_PS :: mass_col 78 77 FIELD_MASS :: rhodz
Note: See TracChangeset
for help on using the changeset viewer.