Changeset 15 for trunk/NEMO/OPA_SRC/module_example

Timestamp:

2004-02-17T08:25:44+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/module_example (modified) (3 diffs)

trunk/NEMO/OPA_SRC/module_example

@@ -24 +24 @@
 
    !! * Share Module variables
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &  !:
       var1    ,   &  !: var1 description (CAUTION always use !: to describe a 
       !              !  PUBLIC variable simplify the search of where it is declared
@@ -103 +103 @@
 
 
-      IF( kt == nit000  )   CALL zdf_tke_init    ! Initialization (first time-step only)
+      IF( kt == nit000  )   CALL exa_mpl_init    ! Initialization (first time-step only)
 
       ! Local constant initialization
@@ -193 +193 @@
       ENDIF
 
-   END SUBROUTINE zdf_tke_init
+   END SUBROUTINE exa_mpl_init
 
 #else