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

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

@@ -92 +92 @@
       USE oce     , ONLY:   zftu => ua       , zftv => va            ! (ua,va) used as 3D workspace
       USE wrk_nemo, ONLY:   zdit => wrk_3d_1 , zdjt => wrk_3d_2 , ztfw => wrk_3d_3   ! 3D workspace
-      USE wrk_nemo, ONLY:   z2d  => wrk_2d_1                                          ! 2D workspace
-      !!
+      USE wrk_nemo, ONLY:   z2d  => wrk_2d_1                                         ! 2D workspace
+      !
       INTEGER                              , INTENT(in   ) ::   kt         ! ocean time-step index
       CHARACTER(len=3)                     , INTENT(in   ) ::   cdtype     ! =TRA or TRC (tracer indicator)
@@ -101 +101 @@
       REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(inout) ::   pta        ! tracer trend 
       REAL(wp)                             , INTENT(in   ) ::   pahtb0     ! background diffusion coef
-      !!
+      !
       INTEGER  ::  ji, jj, jk,jn   ! dummy loop indices
       INTEGER  ::  ip,jp,kp        ! dummy loop indices
@@ -114 +114 @@
       REAL(wp) ::   zah, zah_slp, zaei_slp
 #if defined key_diaar5
-      REAL(wp)                         ::   zztmp              ! local scalar
+      REAL(wp) ::   zztmp              ! local scalar
 #endif
       !!----------------------------------------------------------------------
 
       IF( wrk_in_use(3, 1,2,3) .OR. wrk_in_use(2, 1) ) THEN
-         CALL ctl_stop('tra_ldf_iso_grif : requested workspace arrays unavailable.')   ;   RETURN
+         CALL ctl_stop('tra_ldf_iso_grif: requested workspace arrays unavailable.')   ;   RETURN
       ENDIF
       ! ARP - line below uses 'bounds re-mapping' which is only defined in
@@ -348 +348 @@
       END DO
       !
-      IF( wrk_not_released(3, 1,2,3,4) .OR. wrk_not_released(2, 1) )THEN
-         CALL ctl_stop('tra_ldf_iso_grif : failed to release workspace arrays.')
-      END IF
+      IF( wrk_not_released(3, 1,2,3,4) .OR.   &
+          wrk_not_released(2, 1)       )   CALL ctl_stop('tra_ldf_iso_grif: failed to release workspace arrays')
       !
   END SUBROUTINE tra_ldf_iso_grif