Changeset 575 for trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

Timestamp:

2006-11-14T09:04:20+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_079: CT : - add the creation of restart file (saving sshn & sshb) when using the explicit surface pressure option

• light modifications in the way to read/write restart files in dynspg_* and associated _jki_ modules (key_mpp_omp removed)

File:

• trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90

@@ -12 +12 @@
    !!            " "  !  06-07  (S. Masson)  distributed restart using iom
    !!----------------------------------------------------------------------
-#if ( defined key_dynspg_flt  && ! defined key_mpp_omp )  ||   defined key_esopa  
+#if defined key_dynspg_flt   ||   defined key_esopa  
    !!----------------------------------------------------------------------
    !!   'key_dynspg_flt'                              filtered free surface
-   !!   NOT 'key_mpp_omp'                          k-j-i loop (vector opt.)
    !!----------------------------------------------------------------------
    !!----------------------------------------------------------------------
@@ -52 +51 @@
 
    PUBLIC dyn_spg_flt  ! routine called by step.F90
+   PUBLIC flt_rst      ! routine called by j-k-i subroutine
 
    !! * Substitutions