source: NEMO/trunk/src/NST/agrif_all_update.F90 @ 10069

Last change on this file since 10069 was 10069, checked in by nicolasmartin, 2 years ago

Fix mistakes of previous commit on SVN keywords property

  • Property svn:keywords set to Id
File size: 3.1 KB
Line 
1#define TWO_WAY
2
3 MODULE agrif_all_update
4   !!======================================================================
5   !!                   ***  MODULE  agrif_all_update  ***
6   !! AGRIF: Main update driver for ocean, ice and passive tracers
7   !!======================================================================
8   !! History :  4.0  !  2018-06  (J. Chanut)  Original code
9   !!----------------------------------------------------------------------
10#if defined key_agrif 
11   !!----------------------------------------------------------------------
12   !!   'key_agrif'                                              AGRIF zoom
13   !!----------------------------------------------------------------------
14   USE dom_oce
15   USE agrif_oce
16   USE agrif_oce_update
17#if defined key_top
18   USE agrif_top_update
19#endif
20#if defined key_si3
21   USE agrif_ice_update
22#endif
23
24   IMPLICIT NONE
25   PRIVATE
26
27   PUBLIC   Agrif_Update_All
28
29   !!----------------------------------------------------------------------
30   !! NEMO/NST 4.0 , NEMO Consortium (2018)
31   !! $Id$
32   !! Software governed by the CeCILL license (see ./LICENSE)
33   !!----------------------------------------------------------------------
34CONTAINS
35
36   SUBROUTINE Agrif_Update_All( )
37      !!----------------------------------------------------------------------
38      !!                 *** ROUTINE Agrif_Update_All ***
39      !!
40      !! ** Purpose :: Update nested grids for all components (Ocean, Sea Ice, TOP)
41      !!               Order of update matters here !
42      !!----------------------------------------------------------------------
43# if defined TWO_WAY
44      IF (Agrif_Root()) RETURN
45      !
46      IF (lwp.AND.lk_agrif_debug) Write(*,*) ' --> START AGRIF UPDATE from grid Number',Agrif_Fixed()
47      !
48      CALL Agrif_Update_ssh()                      ! Update sea level
49      !
50      IF (.NOT.ln_linssh) CALL Agrif_Update_vvl()  ! Update scale factors
51      !
52      CALL Agrif_Update_tra()                      ! Update temperature/salinity
53      !
54#if defined key_top
55      CALL Agrif_Update_Trc()                      ! Update passive tracers
56#endif
57      !
58      CALL Agrif_Update_dyn()                      ! Update dynamics
59      !
60! JC remove update because this precludes from perfect restartability
61!!      CALL Agrif_Update_tke()                  ! Update tke
62
63#if defined key_si3
64      CALL agrif_update_ice()                      ! Update sea ice
65#endif
66      IF (lwp.AND.lk_agrif_debug) Write(*,*) ' <-- END AGRIF UPDATE from grid Number',Agrif_Fixed()
67      !
68      Agrif_UseSpecialValueInUpdate = .FALSE.
69#endif
70    END SUBROUTINE agrif_Update_All
71
72#else
73   !!----------------------------------------------------------------------
74   !!   Empty module                                          no AGRIF zoom
75   !!----------------------------------------------------------------------
76CONTAINS
77   SUBROUTINE Agrif_Update_all( )
78      WRITE(*,*)  'Agrif_Update_All : You should not have seen this print! error?'
79   END SUBROUTINE Agrif_Update_all
80#endif
81
82   !!======================================================================
83END MODULE agrif_all_update
84
Note: See TracBrowser for help on using the repository browser.