Changeset 1027 for codes/icosagcm/devel/src/vertical/vertical_interp.f90

Timestamp:

05/18/20 21:07:49 (4 years ago)

Author:

dubos

Message:

devel : towards conformity to F2008 standard

File:

• codes/icosagcm/devel/src/vertical/vertical_interp.f90 (modified) (3 diffs)

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

@@ -42 +42 @@
   END SUBROUTINE  vertical_interp
 
+!-------------- Wrappers for F2008 conformity -----------------
+
   SUBROUTINE compute_vertical_interp_hex(pmid,in,out,pval)
+    REAL(rstd),INTENT(IN) :: pmid(:,:), in(:,:), pval
+    REAL(rstd),INTENT(OUT):: out(:)
+    CALL compute_vertical_interp_hex_(pmid,in,out,pval)
+  END SUBROUTINE compute_vertical_interp_hex
+
+  SUBROUTINE compute_vertical_interp_unst(pmid,in,out,pval)
+    REAL(rstd),INTENT(IN) :: pmid(:,:), in(:,:), pval
+    REAL(rstd),INTENT(OUT):: out(:)
+    CALL compute_vertical_interp_unst_(pmid,in,out,pval)
+  END SUBROUTINE compute_vertical_interp_unst
+
+!--------------------------------------------------------------
+
+  SUBROUTINE compute_vertical_interp_hex_(pmid,in,out,pval)
     REAL(rstd),INTENT(IN) :: pmid(iim*jjm,llm)
     REAL(rstd),INTENT(IN) :: in(iim*jjm,llm)
@@ -61 +77 @@
 !$OMP BARRIER
 
-  END SUBROUTINE compute_vertical_interp_hex
+  END SUBROUTINE compute_vertical_interp_hex_
 
-  SUBROUTINE compute_vertical_interp_unst(pmid,in,out,pval)
+  SUBROUTINE compute_vertical_interp_unst_(pmid,in,out,pval)
     REAL(rstd),INTENT(IN) :: pmid(llm, primal_num)
     REAL(rstd),INTENT(IN) :: in(llm, primal_num)
@@ -76 +92 @@
 !$OMP END MASTER
 !$OMP BARRIER
-  END SUBROUTINE compute_vertical_interp_unst
+  END SUBROUTINE compute_vertical_interp_unst_
 
   PURE SUBROUTINE interp_1d(pmid,in,out,pval)