Changeset 353 for codes/icosagcm/trunk/src/disvert_dcmip3.f90

Timestamp:

08/06/15 10:48:45 (9 years ago)

Author:

dubos

Message:

OpenMP fixes for DCMIP

File:

• codes/icosagcm/trunk/src/disvert_dcmip3.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/disvert_dcmip3.f90

@@ -1 @@
-  MODULE disvert_dcmip31_mod
+MODULE disvert_dcmip31_mod
   USE icosa
- 
+  IMPLICIT NONE
+  PRIVATE
+
   REAL(rstd), SAVE, ALLOCATABLE,TARGET :: ap(:)
 !$OMP THREADPRIVATE(ap)
@@ -9 +11 @@
 !$OMP THREADPRIVATE(presnivs)
 
+  PUBLIC :: ap,bp,presnivs, init_disvert
+
 CONTAINS
 !=========================================================================
 
   SUBROUTINE init_disvert
-  USE icosa
-  IMPLICIT NONE
-  
     ALLOCATE(ap(llm+1))
     ALLOCATE(bp(llm+1))
     ALLOCATE(presnivs(llm))
-    
     CALL disvert(ap,bp,presnivs)    
-
-  END SUBROUTINE init_disvert  
+  END SUBROUTINE init_disvert
 
   SUBROUTINE disvert(ap,bp,presnivs)
-  USE icosa
   USE mpipara
-  IMPLICIT NONE
   REAL(rstd),INTENT(OUT) :: ap(:)
   REAL(rstd),INTENT(OUT) :: bp(:)