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

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

@@ -6 +6 @@
    !! History :  OPA  !  1990-10  (B. Blanke)  Original code
    !!            8.0  !  1997-05  (G. Madec)  vertical component of isopycnal
-   !!   NEMO     1.0  !  1002-08  (G. Madec)  F90: Free form and module
+   !!   NEMO     0.5  !  2002-08  (G. Madec)  F90: Free form and module
    !!            3.3  !  2010-04  (M. Leclair, G. Madec)  Forcing averaged over 2 time steps
    !!----------------------------------------------------------------------
@@ -55 +55 @@
       !!---------------------------------------------------------------------
       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
-      USE oce     , ONLY :  zwx => ta       , zwy => sa         ! (ta,sa) used as 3D workspace
+      USE oce     , ONLY:   zwx => ta       , zwy => sa         ! (ta,sa) used as 3D workspace
       USE wrk_nemo, ONLY:   zwz => wrk_3d_1 , zww => wrk_3d_2   ! 3D workspace
       !
@@ -61 +61 @@
       REAL(wp), INTENT(in) ::   p2dt   ! time-step 
       !
-      INTEGER ::   ji, jj, jk, jl                            ! dummy loop indices
-      REAL(wp) ::   zrau0r, zlavmr, zua, zva                 ! temporary scalars
+      INTEGER  ::   ji, jj, jk, jl   ! dummy loop indices
+      REAL(wp) ::   zrau0r, zlavmr, zua, zva   ! local scalars
       !!----------------------------------------------------------------------
 
@@ -120 +120 @@
       END DO                           ! End of time splitting
       !
-      IF( wrk_not_released(3, 1,2) )   CALL ctl_stop('dyn_zdf_exp : failed to release workspace arrays')
+      IF( wrk_not_released(3, 1,2) )   CALL ctl_stop('dyn_zdf_exp: failed to release workspace arrays')
       !
    END SUBROUTINE dyn_zdf_exp