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

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

@@ -73 +73 @@
       !! ** Action : - after tracer fields pta
       !!---------------------------------------------------------------------
-      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY: zwx => wrk_3d_1, zwy => wrk_3d_2     ! 3D workspace
-      !!
+      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
+      USE wrk_nemo, ONLY:   zwx => wrk_3d_1, zwy => wrk_3d_2     ! 3D workspace
+      !
       INTEGER                              , INTENT(in   ) ::   kt          ! ocean time-step index
       CHARACTER(len=3)                     , INTENT(in   ) ::   cdtype      ! =TRA or TRC (tracer indicator)
@@ -83 +83 @@
       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, jl        ! dummy loop indices
       REAL(wp) ::  zlavmr, zave3r, ze3tr     ! local scalars
@@ -89 +89 @@
       !!---------------------------------------------------------------------
 
-      IF(wrk_in_use(3, 1,2))THEN
-         CALL ctl_stop('tra_zdf_exp : requested workspace arrays unavailable.')
-         RETURN
-      END IF
+      IF( wrk_in_use(3, 1,2) ) THEN
+         CALL ctl_stop('tra_zdf_exp: requested workspace arrays unavailable')   ;   RETURN
+      ENDIF
 
       IF( kt == nit000 )  THEN
@@ -165 +164 @@
       END DO
       !
-      IF(wrk_not_released(3, 1,2))THEN
-         CALL ctl_stop('tra_zdf_exp : failed to release workspace arrays.')
-      END IF
+      IF( wrk_not_released(3, 1,2) )   CALL ctl_stop('tra_zdf_exp: failed to release workspace arrays')
       !
    END SUBROUTINE tra_zdf_exp