Changeset 2690 for branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.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/TRA/trazdf_imp.F90 (modified) (4 diffs)

branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90

@@ -74 +74 @@
       !! ** Action  : - pta  becomes the after tracer
       !!---------------------------------------------------------------------
-      USE oce    , ONLY :   zwd   => ua   ! ua used as workspace
-      USE oce    , ONLY :   zws   => va   ! va  -          -
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: zwi => wrk_3d_1, zwt => wrk_3d_2  ! workspace arrays
-      !! 
+      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
+      USE oce     , ONLY:   zwd => ua       , zws => va         ! (ua,va) used as 3D workspace
+      USE wrk_nemo, ONLY:   zwi => wrk_3d_1 , zwt => wrk_3d_2   ! 3D workspace 
+      !
       INTEGER                              , INTENT(in   ) ::   kt       ! ocean time-step index
       CHARACTER(len=3)                     , INTENT(in   ) ::   cdtype   ! =TRA or TRC (tracer indicator)
@@ -85 +84 @@
       REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(in   ) ::   ptb      ! before and now tracer fields
       REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(inout) ::   pta      ! tracer trend 
-      !!
-      INTEGER  ::  ji, jj, jk, jn        ! dummy loop indices
-      REAL(wp) ::  zrhs                  ! local scalars
-      REAL(wp) ::  ze3tb, ze3tn, ze3ta   ! variable vertical scale factors
+      !
+      INTEGER  ::  ji, jj, jk, jn   ! dummy loop indices
+      REAL(wp) ::  zrhs, ze3tb, ze3tn, ze3ta   ! local scalars
       !!---------------------------------------------------------------------
 
-      IF(wrk_in_use(3, 1,2))THEN
-         CALL ctl_stop('tra_zdf_imp : requested workspace arrays unavailable.')
-         RETURN
-      END IF
+      IF( wrk_in_use(3, 1,2) ) THEN
+         CALL ctl_stop('tra_zdf_imp : requested workspace arrays unavailable.')   ;   RETURN
+      ENDIF
 
       IF( kt == nit000 )  THEN
@@ -114 +111 @@
          ! Build matrix if temperature or salinity (only in double diffusion case) or first passive tracer
          !
-         IF(  ( cdtype == 'TRA' .AND. ( ( jn == jp_tem ) .OR. ( jn == jp_sal .AND. lk_zdfddm ) ) ) .OR. &
+         IF(  ( cdtype == 'TRA' .AND. ( jn == jp_tem .OR. ( jn == jp_sal .AND. lk_zdfddm ) ) ) .OR.   &
             & ( cdtype == 'TRC' .AND. jn == 1 )  )  THEN
             !
@@ -231 +228 @@
       !                                               ! ================= !
       !
-      IF(wrk_not_released(3, 1,2))THEN
-         CALL ctl_stop('tra_zdf_imp : failed to release workspace arrays.')
-      END IF
+      IF( wrk_not_released(3, 1,2) )   CALL ctl_stop('tra_zdf_imp: failed to release workspace arrays')
       !
    END SUBROUTINE tra_zdf_imp