Changeset 913 for codes/icosagcm/devel/src/diagnostics/theta_rhodz.f90

Timestamp:

06/17/19 17:38:58 (5 years ago)

Author:

dubos

Message:

devel : compute_pression for unstructured mesh

File:

• codes/icosagcm/devel/src/diagnostics/theta_rhodz.f90 (modified) (10 diffs)

codes/icosagcm/devel/src/diagnostics/theta_rhodz.f90

@@ -1 +1 @@
 MODULE theta2theta_rhodz_mod
+  USE icosa
   USE field_mod
+  USE compute_diagnostics_mod
+  IMPLICIT NONE
   PRIVATE
+
   TYPE(t_field), POINTER, SAVE  :: f_p(:)
 
@@ -12 +16 @@
   
   SUBROUTINE init_theta2theta_rhodz
-  USE icosa
-  USE field_mod
-  IMPLICIT NONE
     CALL allocate_field(f_p,field_t,type_real,llm+1,name='p (theta2theta_rhodz_mod)')    
   END SUBROUTINE init_theta2theta_rhodz
@@ -20 +21 @@
 
   SUBROUTINE theta_rhodz2theta(f_ps,f_theta_rhodz,f_theta)
-  USE icosa
-  IMPLICIT NONE
     TYPE(t_field), POINTER :: f_ps(:)
     TYPE(t_field), POINTER :: f_theta_rhodz(:)
@@ -46 +45 @@
 
   SUBROUTINE theta_rhodz2temperature(f_ps,f_theta_rhodz,f_temp)
-  USE icosa
-  USE pression_mod
-  IMPLICIT NONE
     TYPE(t_field), POINTER :: f_ps(:)
     TYPE(t_field), POINTER :: f_theta_rhodz(:)
@@ -78 +74 @@
  
   SUBROUTINE temperature2theta_rhodz(f_ps,f_temp,f_theta_rhodz)
-  USE icosa
-  USE pression_mod
   USE exner_mod
   IMPLICIT NONE
@@ -113 +107 @@
     
   SUBROUTINE theta2theta_rhodz(f_ps,f_theta,f_theta_rhodz)
-  USE icosa
-  IMPLICIT NONE
     TYPE(t_field), POINTER :: f_ps(:)
     TYPE(t_field), POINTER :: f_theta(:)
@@ -139 +131 @@
   
   SUBROUTINE compute_theta2theta_rhodz(ps,theta, theta_rhodz,offset)
-  USE icosa
   USE disvert_mod
   USE omp_para
-  IMPLICIT NONE
     REAL(rstd),INTENT(IN) :: ps(iim*jjm)
     REAL(rstd),INTENT(IN) :: theta(iim*jjm,llm)
@@ -166 +156 @@
 
   SUBROUTINE compute_theta_rhodz2theta(ps,theta_rhodz,theta,offset)
-  USE icosa
   USE disvert_mod
   USE omp_para
-  IMPLICIT NONE
     REAL(rstd),INTENT(IN) :: ps(iim*jjm)
     REAL(rstd),INTENT(IN) :: theta_rhodz(iim*jjm,llm)
@@ -198 +186 @@
 
   SUBROUTINE compute_theta_rhodz2temperature(p,theta_rhodz,temp,offset)
-  USE icosa
-  USE pression_mod
   USE exner_mod
   USE omp_para
-  IMPLICIT NONE
     REAL(rstd),INTENT(IN) :: p(iim*jjm,llm+1)
     REAL(rstd),INTENT(IN) :: theta_rhodz(iim*jjm,llm)
@@ -227 +212 @@
 
   SUBROUTINE compute_temperature2theta_rhodz(p,temp,theta_rhodz,offset)
-  USE icosa
-  USE pression_mod
   USE exner_mod
   USE omp_para
-  IMPLICIT NONE
     REAL(rstd),INTENT(IN)  :: p(iim*jjm,llm+1)
     REAL(rstd),INTENT(OUT) :: theta_rhodz(iim*jjm,llm)