Changeset 913 for codes/icosagcm/devel/src/diagnostics/theta_rhodz.f90
- Timestamp:
- 06/17/19 17:38:58 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/diagnostics/theta_rhodz.f90
r533 r913 1 1 MODULE theta2theta_rhodz_mod 2 USE icosa 2 3 USE field_mod 4 USE compute_diagnostics_mod 5 IMPLICIT NONE 3 6 PRIVATE 7 4 8 TYPE(t_field), POINTER, SAVE :: f_p(:) 5 9 … … 12 16 13 17 SUBROUTINE init_theta2theta_rhodz 14 USE icosa15 USE field_mod16 IMPLICIT NONE17 18 CALL allocate_field(f_p,field_t,type_real,llm+1,name='p (theta2theta_rhodz_mod)') 18 19 END SUBROUTINE init_theta2theta_rhodz … … 20 21 21 22 SUBROUTINE theta_rhodz2theta(f_ps,f_theta_rhodz,f_theta) 22 USE icosa23 IMPLICIT NONE24 23 TYPE(t_field), POINTER :: f_ps(:) 25 24 TYPE(t_field), POINTER :: f_theta_rhodz(:) … … 46 45 47 46 SUBROUTINE theta_rhodz2temperature(f_ps,f_theta_rhodz,f_temp) 48 USE icosa49 USE pression_mod50 IMPLICIT NONE51 47 TYPE(t_field), POINTER :: f_ps(:) 52 48 TYPE(t_field), POINTER :: f_theta_rhodz(:) … … 78 74 79 75 SUBROUTINE temperature2theta_rhodz(f_ps,f_temp,f_theta_rhodz) 80 USE icosa81 USE pression_mod82 76 USE exner_mod 83 77 IMPLICIT NONE … … 113 107 114 108 SUBROUTINE theta2theta_rhodz(f_ps,f_theta,f_theta_rhodz) 115 USE icosa116 IMPLICIT NONE117 109 TYPE(t_field), POINTER :: f_ps(:) 118 110 TYPE(t_field), POINTER :: f_theta(:) … … 139 131 140 132 SUBROUTINE compute_theta2theta_rhodz(ps,theta, theta_rhodz,offset) 141 USE icosa142 133 USE disvert_mod 143 134 USE omp_para 144 IMPLICIT NONE145 135 REAL(rstd),INTENT(IN) :: ps(iim*jjm) 146 136 REAL(rstd),INTENT(IN) :: theta(iim*jjm,llm) … … 166 156 167 157 SUBROUTINE compute_theta_rhodz2theta(ps,theta_rhodz,theta,offset) 168 USE icosa169 158 USE disvert_mod 170 159 USE omp_para 171 IMPLICIT NONE172 160 REAL(rstd),INTENT(IN) :: ps(iim*jjm) 173 161 REAL(rstd),INTENT(IN) :: theta_rhodz(iim*jjm,llm) … … 198 186 199 187 SUBROUTINE compute_theta_rhodz2temperature(p,theta_rhodz,temp,offset) 200 USE icosa201 USE pression_mod202 188 USE exner_mod 203 189 USE omp_para 204 IMPLICIT NONE205 190 REAL(rstd),INTENT(IN) :: p(iim*jjm,llm+1) 206 191 REAL(rstd),INTENT(IN) :: theta_rhodz(iim*jjm,llm) … … 227 212 228 213 SUBROUTINE compute_temperature2theta_rhodz(p,temp,theta_rhodz,offset) 229 USE icosa230 USE pression_mod231 214 USE exner_mod 232 215 USE omp_para 233 IMPLICIT NONE234 216 REAL(rstd),INTENT(IN) :: p(iim*jjm,llm+1) 235 217 REAL(rstd),INTENT(OUT) :: theta_rhodz(iim*jjm,llm)
Note: See TracChangeset
for help on using the changeset viewer.