Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90

@@ -17 +17 @@
    USE in_out_manager  ! I/O manager
    USE lib_mpp         ! distribued memory computing library
+   USE wrk_nemo        ! working array
 
    IMPLICIT NONE
@@ -47 +48 @@
       INTEGER :: jfl              ! dummy loop arguments
       INTEGER :: ind, ifin, iloop
-      INTEGER , DIMENSION ( jpnfl )  ::   &
-         iil, ijl, ikl,             &     ! index of nearest mesh
-         iiloc , ijloc,             &
-         iiinfl, ijinfl, ikinfl,    &     ! index of input mesh of the float.
-         iioutfl, ijoutfl, ikoutfl        ! index of output mesh of the float.
-      REAL(wp) , DIMENSION ( jpnfl )  ::    &
-         zgifl, zgjfl, zgkfl,       &     ! position of floats, index on 
-                                          ! velocity mesh.
-         ztxfl, ztyfl, ztzfl,       &     ! time for a float to quit the mesh
-                                          ! across one of the face x,y and z 
-         zttfl,                     &     ! time for a float to quit the mesh 
-         zagefl,                    &     ! time during which, trajectorie of 
-                                          ! the float has been computed
-         zagenewfl,                 &     ! new age of float after calculation 
-                                          ! of new position
-         zufl, zvfl, zwfl,          &     ! interpolated vel. at float position
-         zudfl, zvdfl, zwdfl,       &     ! velocity diff input/output of mesh
-         zgidfl, zgjdfl, zgkdfl           ! direction index of float 
       REAL(wp)   ::       &
          zuinfl,zvinfl,zwinfl,      &     ! transport across the input face
@@ -71 +54 @@
          zsurfz,                    &     ! surface of the face of the mesh 
          zind
+
       REAL(wp), DIMENSION ( 2 )  ::   zsurfx, zsurfy   ! surface of the face of the mesh
+
+      INTEGER  , POINTER, DIMENSION ( : )  ::   iil, ijl, ikl                   ! index of nearest mesh
+      INTEGER  , POINTER, DIMENSION ( : )  ::   iiloc , ijloc              
+      INTEGER  , POINTER, DIMENSION ( : )  ::   iiinfl, ijinfl, ikinfl          ! index of input mesh of the float.
+      INTEGER  , POINTER, DIMENSION ( : )  ::   iioutfl, ijoutfl, ikoutfl       ! index of output mesh of the float.
+      REAL(wp) , POINTER, DIMENSION ( : )  ::   zgifl, zgjfl, zgkfl             ! position of floats, index on 
+      !                                                                         ! velocity mesh.
+      REAL(wp) , POINTER, DIMENSION ( : )  ::    ztxfl, ztyfl, ztzfl            ! time for a float to quit the mesh
+      !                                                                         ! across one of the face x,y and z 
+      REAL(wp) , POINTER, DIMENSION ( : )  ::    zttfl                          ! time for a float to quit the mesh 
+      REAL(wp) , POINTER, DIMENSION ( : )  ::    zagefl                         ! time during which, trajectorie of 
+      !                                                                         ! the float has been computed
+      REAL(wp) , POINTER, DIMENSION ( : )  ::   zagenewfl                       ! new age of float after calculation 
+      !                                                                         ! of new position
+      REAL(wp) , POINTER, DIMENSION ( : )  ::   zufl, zvfl, zwfl                ! interpolated vel. at float position
+      REAL(wp) , POINTER, DIMENSION ( : )  ::   zudfl, zvdfl, zwdfl             ! velocity diff input/output of mesh
+      REAL(wp) , POINTER, DIMENSION ( : )  ::   zgidfl, zgjdfl, zgkdfl          ! direction index of float
       !!---------------------------------------------------------------------
-      
+      CALL wrk_alloc( jpnfl , iil   , ijl   , ikl   , iiloc  ,  ijloc           )
+      CALL wrk_alloc( jpnfl , iiinfl, ijinfl, ikinfl, iioutfl, ijoutfl, ikoutfl )
+      CALL wrk_alloc( jpnfl , zgifl , zgjfl , zgkfl , ztxfl  , ztyfl  , ztzfl   , zttfl , zagefl, zagenewfl) 
+      CALL wrk_alloc( jpnfl , zufl  , zvfl  , zwfl  , zudfl  , zvdfl  , zwdfl   , zgidfl, zgjdfl, zgkdfl   )
+
       IF( kt == nit000 ) THEN
          IF(lwp) WRITE(numout,*)
@@ -406 +411 @@
       ENDIF
       !
+      CALL wrk_dealloc( jpnfl , iil   , ijl   , ikl   , iiloc  ,  ijloc           )
+      CALL wrk_dealloc( jpnfl , iiinfl, ijinfl, ikinfl, iioutfl, ijoutfl, ikoutfl )
+      CALL wrk_dealloc( jpnfl , zgifl , zgjfl , zgkfl , ztxfl  , ztyfl  , ztzfl   , zttfl , zagefl, zagenewfl) 
+      CALL wrk_dealloc( jpnfl , zufl  , zvfl  , zwfl  , zudfl  , zvdfl  , zwdfl   , zgidfl, zgjdfl, zgkdfl   )
+      !
    END SUBROUTINE flo_blk