Changeset 8882 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DOM/iscplini.F90

Timestamp:

2017-12-01T18:44:09+01:00 (6 years ago)

Author:

flavoni

Message:

dev_CNRS_2017 branch: merged dev_r7881_ENHANCE09_RK3 with trunk r8864

File:

• branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DOM/iscplini.F90 (modified) (3 diffs)

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DOM/iscplini.F90

@@ -11 +11 @@
    !!   iscpl_alloc    : allocation of correction variables
    !!----------------------------------------------------------------------
+   USE oce             ! global tra/dyn variable
    USE dom_oce         ! ocean space and time domain
-   USE oce             ! global tra/dyn variable
+   !
    USE lib_mpp         ! MPP library
    USE lib_fortran     ! MPP library
@@ -47 +48 @@
    END FUNCTION iscpl_alloc
 
+
    SUBROUTINE iscpl_init()
+      !!----------------------------------------------------------------------
       INTEGER ::   ios           ! Local integer output status for namelist read
-      NAMELIST/namsbc_iscpl/nn_fiscpl,ln_hsb,nn_drown
+      NAMELIST/namsbc_iscpl/ nn_fiscpl, ln_hsb, nn_drown
       !!----------------------------------------------------------------------
-      !                                   ! ============
-      !                                   !   Namelist
-      !                                   ! ============
       !
       nn_fiscpl = 0
@@ -79 +79 @@
          WRITE(numout,*) ' coupling time step                       = ', rdt_iscpl
          WRITE(numout,*) ' number of call of the extrapolation loop = ', nn_drown
-      END IF
-
+      ENDIF
+      !
    END SUBROUTINE iscpl_init
 
+   !!======================================================================
 END MODULE iscplini