Changeset 2690 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

Timestamp:

2011-03-15T16:27:46+01:00 (13 years ago)

Author:

gm

Message:

dynamic mem: #785 ; homogeneization of the coding style associated with dyn allocation

File:

• branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90 (modified) (4 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

@@ -4 +4 @@
    !! Ocean dynamics : vertical advection trend
    !!======================================================================
-   !! History :  6.0  !  91-01  (G. Madec) Original code
-   !!            7.0  !  91-11  (G. Madec)
-   !!            7.5  !  96-01  (G. Madec) statement function for e3
-   !!            8.5  !  02-07  (G. Madec) j-k-i case: Original code
-   !!            8.5  !  02-07  (G. Madec) Free form, F90
+   !! History :  OPA  ! 1991-01  (G. Madec) Original code
+   !!            7.0  ! 1991-11  (G. Madec)
+   !!            7.5  ! 1996-01  (G. Madec) statement function for e3
+   !!   NEMO     0.5  ! 2002-07  (G. Madec) Free form, F90
    !!----------------------------------------------------------------------
    
@@ -34 +33 @@
    !! NEMO/OPA 3.3 , NEMO Consortium (2010)
    !! $Id$
-   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-
 CONTAINS
 
@@ -55 +53 @@
       !!              - Save the trends in (ztrdu,ztrdv) ('key_trddyn')
      !!----------------------------------------------------------------------
-      USE oce, ONLY:   zwuw => ta   ! use ta as 3D workspace
-      USE oce, ONLY:   zwvw => sa   ! use sa as 3D workspace
       USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: zww => wrk_2d_1
-      USE wrk_nemo, ONLY: ztrdu => wrk_3d_1, ztrdv => wrk_3d_2
-      !!
+      USE wrk_nemo, ONLY:   zww   => wrk_2d_1                        ! 2D workspace
+      USE oce     , ONLY:   zwuw  => ta       , zwvw  => sa          ! (ta,sa) used as 3D workspace
+      USE wrk_nemo, ONLY:   ztrdu => wrk_3d_1 , ztrdv => wrk_3d_2    ! 3D workspace
+      !
       INTEGER, INTENT(in) ::   kt   ! ocean time-step inedx
-      !!
+      !
       INTEGER  ::   ji, jj, jk      ! dummy loop indices
       REAL(wp) ::   zua, zva        ! temporary scalars
       !!----------------------------------------------------------------------
       
-      IF( wrk_in_use(2, 1)     .OR.    &
-          wrk_in_use(3, 1,2) ) THEN
+      IF( wrk_in_use(2, 1) .OR. wrk_in_use(3, 1,2) ) THEN
          CALL ctl_stop('dyn_zad: requested workspace arrays unavailable')   ;   RETURN
-      END IF
+      ENDIF
 
       IF( kt == nit000 ) THEN
@@ -126 +122 @@
          &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' )
       !
-      IF( wrk_not_released(2, 1)       .OR.    &
+      IF( wrk_not_released(2, 1)   .OR.   &
           wrk_not_released(3, 1,2) )   CALL ctl_stop('dyn_zad: failed to release workspace arrays')
       !