Changeset 14662

Timestamp:

2021-03-31T17:48:47+02:00 (3 years ago)

Author:

vsmart

Message:

Update to maintain use of nemo_gcm subroutine

Location:

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2_spmd/src/OCE

Files:

• nemo.f90 (modified) (1 diff)
• nemogcm.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2_spmd/src/OCE/nemo.f90

@@ -16 +16 @@
    !!----------------------------------------------------------------------
    !
-   CALL nemo_gcm_init           ! NEMO direct code
-   CALL nemo_gcm_run
-   CALL nemo_gcm_finalise
+   CALL nemo_gcm           ! NEMO direct code
    ! 
    !!======================================================================

NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2_spmd/src/OCE/nemogcm.F90

@@ -117 +117 @@
 CONTAINS
 
+   SUBROUTINE nemo_gcm
+      !!----------------------------------------------------------------------
+      !!                     ***  ROUTINE nemo_gcm  ***
+      !!
+      !! ** Purpose :   NEMO solves the primitive equations on an orthogonal
+      !!              curvilinear mesh on the sphere.
+      !!
+      !! ** Method  : - calls nemo_gcm_init, nemo_gcm_run, nemo_gcm_finalise
+      !!
+      !! References : Madec, Delecluse, Imbard, and Levy, 1997:  internal report, IPSL.
+      !!              Madec, 2008, internal report, IPSL.
+      !!----------------------------------------------------------------------
+      CALL nemo_gcm_init
+      CALL nemo_gcm_run
+      CALL nemo_gcm_finalise
+   END SUBROUTINE nemo_gcm
+
    SUBROUTINE nemo_gcm_init
       !!----------------------------------------------------------------------
@@ -264 +281 @@
    SUBROUTINE nemo_gcm_finalise
       !!----------------------------------------------------------------------
-      !!                     ***  ROUTINE nemo_gcm_run  ***
+      !!                     ***  ROUTINE nemo_gcm_finalise  ***
       !!
       !! ** Purpose :   NEMO solves the primitive equations on an orthogonal