Changeset 913 for codes/icosagcm/devel/src/vertical

Timestamp:

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

Author:

dubos

Message:

devel : compute_pression for unstructured mesh

Location:

codes/icosagcm/devel/src/vertical

Files:

• vertical_interp.f90 (modified) (3 diffs)
• vertical_remap.f90 (modified) (3 diffs)

codes/icosagcm/devel/src/vertical/vertical_interp.f90

@@ -1 +1 @@
 MODULE vertical_interp_mod
   USE icosa
+  USE omp_para
+  USE compute_diagnostics_mod
+  IMPLICIT NONE
   PRIVATE
   
@@ -10 +13 @@
 CONTAINS
 
-  SUBROUTINE init_vertical_interp
-  USE icosa
-  IMPLICIT NONE
-    
+  SUBROUTINE init_vertical_interp    
 !    CALL allocate_field(f_p,field_t,type_real,llm+1)
-    
   END SUBROUTINE init_vertical_interp
     
   SUBROUTINE vertical_interp(f_pmid,f_in,f_out,pval)
-  USE icosa
-  USE pression_mod
-  USE omp_para
-  IMPLICIT NONE
     TYPE(t_field),POINTER :: f_pmid(:)
     TYPE(t_field),POINTER :: f_in(:)
@@ -47 +42 @@
 
   SUBROUTINE compute_vertical_interp(pmid,in,out,pval)
-  USE omp_para
-  IMPLICIT NONE
     REAL(rstd),INTENT(IN) :: pmid(iim*jjm,llm)
     REAL(rstd),INTENT(IN) :: in(iim*jjm,llm)

codes/icosagcm/devel/src/vertical/vertical_remap.f90

@@ -1 +1 @@
 MODULE vertical_remap_mod
   USE icosa
-  
+  USE omp_para
+  IMPLICIT NONE
+  PRIVATE
+
+  PUBLIC :: vertical_remap
 
 CONTAINS
@@ -7 +11 @@
    
   SUBROUTINE vertical_remap(pressure_level,field_in,f_ps,field_out)
-  USE icosa
-  USE pression_mod
-  USE omp_para
-  IMPLICIT NONE
+    USE compute_pression_mod, ONLY : pression
     REAL(rstd), INTENT(IN) :: pressure_level(:)
     TYPE(t_field),POINTER :: field_in(:)
@@ -39 +40 @@
 
   SUBROUTINE compute_vertical_remap(pressure_level,in,p,out)
-  USE omp_para
-  IMPLICIT NONE
     REAL(rstd),INTENT(IN)  :: pressure_level(:)
     REAL(rstd),INTENT(IN)  :: in(:,:)