Changeset 913 for codes/icosagcm/devel/src/vertical/vertical_remap.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/vertical/vertical_remap.f90 (modified) (3 diffs)

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(:,:)