Changeset 9863 for NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/TOP/trcrst.F90

Timestamp:

2018-06-30T12:51:02+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): simplified implementation of the Euler stepping at nit000

File:

• NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/TOP/trcrst.F90 (modified) (5 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_MLF/src/TOP/trcrst.F90

@@ -4 +4 @@
    !! TOP :   Manage the passive tracer restart
    !!======================================================================
-   !! History :    -   !  1991-03  ()  original code
-   !!             1.0  !  2005-03 (O. Aumont, A. El Moussaoui) F90
-   !!              -   !  2005-10 (C. Ethe) print control
-   !!             2.0  !  2005-10 (C. Ethe, G. Madec) revised architecture
+   !! History :   -   !  1991-03  ()  original code
+   !!            1.0  !  2005-03 (O. Aumont, A. El Moussaoui) F90
+   !!             -   !  2005-10 (C. Ethe) print control
+   !!            2.0  !  2005-10 (C. Ethe, G. Madec) revised architecture
    !!----------------------------------------------------------------------
 #if defined key_top
@@ -13 +13 @@
    !!   'key_top'                                                TOP models
    !!----------------------------------------------------------------------
-   !!----------------------------------------------------------------------
-   !!   trc_rst        : Restart for passive tracer
-   !!   trc_rst_opn    : open  restart file
-   !!   trc_rst_read   : read  restart file
-   !!   trc_rst_wri    : write restart file
-   !!----------------------------------------------------------------------
-   USE oce_trc
-   USE trc
-   USE iom
-   USE daymod
+   
+   !!----------------------------------------------------------------------
+   !!   trc_rst       : Restart for passive tracer
+   !!   trc_rst_opn   : open  restart file
+   !!   trc_rst_read  : read  restart file
+   !!   trc_rst_wri   : write restart file
+   !!----------------------------------------------------------------------
+   USE oce_trc        ! 
+   USE trc            !
+   USE daymod         !
+   USE iom            !
    
    IMPLICIT NONE
    PRIVATE
 
-   PUBLIC   trc_rst_opn       ! called by ???
-   PUBLIC   trc_rst_read      ! called by ???
-   PUBLIC   trc_rst_wri       ! called by ???
-   PUBLIC   trc_rst_cal
-
-   !!----------------------------------------------------------------------
-   !! NEMO/TOP 3.7 , NEMO Consortium (2018)
+   PUBLIC   trc_rst_opn    ! called by trcstp
+   PUBLIC   trc_rst_read   ! called by trcini
+   PUBLIC   trc_rst_wri    ! called by trcstp
+   PUBLIC   trc_rst_cal    ! called by trcstp & trcini (and OFF/nemogcm)
+
+   !!----------------------------------------------------------------------
+   !! NEMO/TOP 4.0 , NEMO Consortium (2018)
    !! $Id$
    !! Software governed by the CeCILL licence (./LICENSE)
@@ -92 +93 @@
       !
    END SUBROUTINE trc_rst_opn
+
 
    SUBROUTINE trc_rst_read
@@ -269 +271 @@
             ENDIF
             !
-            IF( ln_rsttr )  THEN   ;    neuler = 1
-            ELSE                   ;    neuler = 0
+            IF( ln_rsttr )  THEN   ;    l_1st_euler = .FALSE.     ! OFF restart: no Euler 1st time-step
+            ELSE                   ;    l_1st_euler = .TRUE.      ! OFF cold start: Euler 1st time-step is used
             ENDIF
             !
@@ -346 +348 @@
 #endif
 
-   !!----------------------------------------------------------------------
-   !! NEMO/TOP 3.3 , NEMO Consortium (2018)
-   !! $Id$
-   !! Software governed by the CeCILL licence (./LICENSE)
    !!======================================================================
 END MODULE trcrst