New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 575 for trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90 – NEMO

Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r558 r575  
    88   !!             9.0  !  06-08  (S. Masson)  distributed restart using iom 
    99   !!--------------------------------------------------------------------- 
    10 #if ( defined key_dynspg_ts && ! defined key_mpp_omp ) ||   defined key_esopa 
     10#if defined key_dynspg_ts  ||   defined key_esopa 
    1111   !!---------------------------------------------------------------------- 
    1212   !!   'key_dynspg_ts'         free surface cst volume with time splitting 
    13    !!   NOT 'key_mpp_omp'                          k-j-i loop (vector opt.) 
    1413   !!---------------------------------------------------------------------- 
    1514   !!---------------------------------------------------------------------- 
    … …  
    4039 
    4140   PUBLIC dyn_spg_ts  ! routine called by step.F90 
     41   PUBLIC ts_rst      ! routine called by j-k-i subroutine 
    4242 
    4343   REAL(wp), DIMENSION(jpi,jpj) ::  ftnw, ftne,   &  ! triad of coriolis parameter 
Note: See TracChangeset for help on using the changeset viewer.