Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90

@@ -4 +4 @@
    !! Surface module :  provide time-mean ocean surface variables
    !!======================================================================
-   !! History :  9.0   !  06-07  (G. Madec)  Original code
+   !! History :  9.0  ! 2006-07  (G. Madec)  Original code
    !!            3.3  ! 2010-10  (C. Bricaud, G. Madec)  add the Patm forcing for sea-ice
    !!----------------------------------------------------------------------
@@ -32 +32 @@
    !! 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
 
@@ -50 +49 @@
       !!      is add to ssh_m when ln_apr_dyn = T. Required for sea-ice dynamics.
       !!---------------------------------------------------------------------
-      INTEGER, INTENT(in) ::   kt        ! ocean time step
+      INTEGER, INTENT(in) ::   kt   ! ocean time step
       !
-      REAL(wp) ::   zcoef       ! temporary scalar
-      REAL(wp) ::   zf_sbc      ! read sbc frequency 
+      REAL(wp) ::   zcoef, zf_sbc       ! local scalar
       !!---------------------------------------------------------------------
       !                                                   ! ---------------------------------------- !