Changeset 952 for codes/icosagcm/devel/src
- Timestamp:
- 07/15/19 12:23:41 (5 years ago)
- Location:
- codes/icosagcm/devel/src
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/base/init_grid_param.f90
r949 r952 4 4 USE compute_rhodz_mod 5 5 USE compute_pression_mod 6 USE compute_temperature_mod 6 7 7 8 USE compute_caldyn_mod … … 68 69 compute_pression => compute_pression_hex 69 70 compute_pression_mid => compute_pression_mid_hex 71 compute_temperature => compute_temperature_hex 70 72 ! dynamics 71 73 compute_pvort_only => compute_pvort_only_hex … … 82 84 compute_pression => compute_pression_unst 83 85 compute_pression_mid => compute_pression_mid_unst 86 compute_temperature => compute_temperature_unst 84 87 ! dynamics 85 88 compute_pvort_only => compute_pvort_only_unst -
codes/icosagcm/devel/src/diagnostics/compute_diagnostics.f90
r913 r952 1 1 MODULE compute_diagnostics_mod 2 USE icosa 2 3 IMPLICIT NONE 3 4 SAVE 5 PRIVATE 6 7 ! fake array dimensions, for interfaces 8 INTEGER, PARAMETER :: iim_jjm_i=1, iim_jjm_u=1, iim_jjm_v=1, llm_=1, llm1=1, nqdyn_=1 4 9 5 10 INTERFACE 6 11 7 12 SUBROUTINE comp_rhodz(flag,ps,rhodz) 8 USE prec, ONLY : rstd13 IMPORT 9 14 LOGICAL, INTENT(IN) :: flag 10 REAL(rstd),INTENT(IN) :: ps( 1)11 REAL(rstd),INTENT(OUT) :: rhodz( 1,1)15 REAL(rstd),INTENT(IN) :: ps(iim_jjm_i) 16 REAL(rstd),INTENT(OUT) :: rhodz(iim_jjm_i,llm_) 12 17 END SUBROUTINE comp_rhodz 13 18 14 19 SUBROUTINE comp_pression(ps, p, offset) 15 USE prec, ONLY : rstd20 IMPORT 16 21 INTEGER, INTENT(IN) :: offset 17 REAL(rstd), INTENT(IN) :: ps( 1)18 REAL(rstd), INTENT(OUT) :: p( 1,1)22 REAL(rstd), INTENT(IN) :: ps(iim_jjm_i) 23 REAL(rstd), INTENT(OUT) :: p(iim_jjm_i,llm_) 19 24 END SUBROUTINE comp_pression 25 26 SUBROUTINE comp_temperature(pmid,q,temp) 27 IMPORT 28 REAL(rstd),INTENT(IN) :: pmid(iim_jjm_i, llm_) 29 REAL(rstd),INTENT(IN) :: q(iim_jjm_i, llm_, nqdyn_) 30 REAL(rstd),INTENT(INOUT) :: temp(iim_jjm_i, llm_) 31 END SUBROUTINE comp_temperature 32 20 33 END INTERFACE 21 34 22 PROCEDURE(comp_rhodz), POINTER :: compute_rhodz 23 PROCEDURE(comp_pression), POINTER :: compute_pression, compute_pression_mid 35 PROCEDURE(comp_rhodz), POINTER :: compute_rhodz => NULL() 36 PROCEDURE(comp_pression), POINTER :: compute_pression => NULL(), compute_pression_mid => NULL() 37 PROCEDURE(comp_temperature), POINTER :: compute_temperature => NULL() 38 39 PUBLIC :: compute_rhodz, compute_pression, compute_pression_mid, compute_temperature 24 40 25 41 END MODULE compute_diagnostics_mod -
codes/icosagcm/devel/src/diagnostics/compute_temperature.F90
r916 r952 8 8 SAVE 9 9 10 PUBLIC :: temperature, compute_temperature 10 PUBLIC :: temperature, compute_temperature_unst, compute_temperature_hex, compute_temperature_manual 11 11 12 12 #include "../unstructured/unstructured.h90" … … 15 15 16 16 SUBROUTINE temperature(f_pmid,f_q,f_temp) 17 USE compute_diagnostics_mod, ONLY : compute_temperature 17 18 USE icosa 18 19 TYPE(t_field), POINTER :: f_pmid(:) ! IN … … 117 118 END SUBROUTINE compute_temperature_hex 118 119 119 SUBROUTINE compute_temperature (pmid,q,temp)120 SUBROUTINE compute_temperature_manual(pmid,q,temp) 120 121 USE icosa 121 122 USE omp_para … … 147 148 END DO 148 149 END DO 149 END SUBROUTINE compute_temperature 150 END SUBROUTINE compute_temperature_manual 150 151 151 152 SUBROUTINE Tv2T(f_Tv, f_q, f_T)
Note: See TracChangeset
for help on using the changeset viewer.