Changeset 13608 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/stpMLF.F90

Timestamp:

2020-10-14T18:31:28+02:00 (4 years ago)

Author:

techene

Message:

#2385 reordering and remove unnecessary USE - sette test not passed yet

File:

• NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/stpMLF.F90 (modified) (8 diffs)

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/stpMLF.F90

@@ -1 @@
-MODULE stepMLF
+MODULE stpMLF
    !!======================================================================
-   !!                       ***  MODULE step  ***
+   !!                       ***  MODULE stpMLF  ***
    !! Time-stepping   : manager of the ocean, tracer and ice time stepping
+   !!                   using Modified Leap Frog for OCE
    !!======================================================================
    !! History :  OPA  !  1991-03  (G. Madec)  Original code
@@ -32 +33 @@
    !!            4.0  !  2017-05  (G. Madec)  introduction of the vertical physics manager (zdfphy)
    !!            4.1  !  2019-08  (A. Coward, D. Storkey) rewrite in preparation for new timestepping scheme
-   !!            4.x  !  2020-08  (S. Techene, G. Madec)  quasi eulerian coordinate time stepping 
+   !!            4.x  !  2020-08  (S. Techene, G. Madec)  quasi eulerian coordinate time stepping
    !!----------------------------------------------------------------------
 
@@ -45 +46 @@
    USE step_oce       ! time stepping definition modules
    !
-   USE iom            ! xIOs server
-   USE domqco
+   USE domqco         ! quasi-eulerian coordinate
    USE traatfqco      ! time filtering                   (tra_atf_qco routine)
    USE dynatfqco      ! time filtering                   (dyn_atf_qco routine)
@@ -57 +57 @@
    PUBLIC   stp_MLF   ! called by nemogcm.F90
 
-   !!----------------------------------------------------------------------
-   !! time level indices
-   !!----------------------------------------------------------------------
-   INTEGER, PUBLIC :: Nbb, Nnn, Naa, Nrhs          !! used by nemo_init
+   !                                          !**  time level indices  **!
+   INTEGER, PUBLIC ::   Nbb, Nnn, Naa, Nrhs   !: used by nemo_init
+
+   !! * Substitutions
 #  include "domzgr_substitute.h90"
    !!----------------------------------------------------------------------
@@ -94 +94 @@
       INTEGER ::   ji, jj, jk   ! dummy loop indice
       INTEGER ::   indic        ! error indicator if < 0
-!!gm kcall can be removed, I guess
-      INTEGER ::   kcall        ! optional integer argument (dom_vvl_sf_nxt)
-!!st patch
       REAL(wp),              DIMENSION(jpi,jpj,jpk) ::   zgdept
       REAL(wp), ALLOCATABLE, DIMENSION(:,:)         ::   zssh_f
@@ -119 +116 @@
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
       !
-      IF( l_1st_euler ) THEN  
-         ! start or restart with Euler 1st time-step
-         rDt =  rn_Dt   
+      IF( l_1st_euler ) THEN     ! start or restart with Euler 1st time-step
+         rDt   = rn_Dt   
          r1_Dt = 1._wp / rDt
       ENDIF
       !
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-
       ! update I/O and calendar
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
@@ -374 +369 @@
       !
       IF( l_1st_euler ) THEN         ! recover Leap-frog timestep
-         rDt = 2._wp * rn_Dt   
+         rDt   = 2._wp * rn_Dt   
          r1_Dt = 1._wp / rDt
          l_1st_euler = .FALSE.      
@@ -477 +472 @@
    
    !!======================================================================
-END MODULE stepMLF
+END MODULE stpMLF