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 7953 for branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90 – NEMO

Ignore:
Timestamp:
2017-04-23T09:30:41+02:00 (7 years ago)
Author:
gm
Message:

#1880 (HPC-09): add zdfphy (the ZDF manager) + remove all key_...

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90

    r6140 r7953  
    44   !!====================================================================== 
    55   !!                ***  MODULE agrif_top_sponge  *** 
    6    !! AGRIF :   define in memory AGRIF variables for sea-ice 
     6   !! AGRIF :   TOP sponge layer 
    77   !!====================================================================== 
    88   !! History :  2.0  ! 2006-08  (R. Benshila, L. Debreu)  Original code 
    99   !!---------------------------------------------------------------------- 
    10  
     10#if defined key_agrif && defined key_top 
    1111   !!---------------------------------------------------------------------- 
    1212   !!   Agrif_Sponge_trc :  
    1313   !!   interptrn_sponge :   
    1414   !!---------------------------------------------------------------------- 
    15 #if defined key_agrif && defined key_top 
    1615   USE par_oce 
    1716   USE par_trc 
    … …  
    3231 
    3332   !!---------------------------------------------------------------------- 
    34    !! NEMO/NST 3.7 , NEMO Consortium (2015) 
     33   !! NEMO/NST 4.0 , NEMO Consortium (2017) 
    3534   !! $Id$ 
    3635   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    … …  
    4241      !!                   *** ROUTINE Agrif_Sponge_Trc *** 
    4342      !!---------------------------------------------------------------------- 
    44       REAL(wp) ::   timecoeff 
     43      REAL(wp) ::   timecoeff   ! local scalar 
    4544      !!---------------------------------------------------------------------- 
    4645      ! 
    … …  
    107106 
    108107#else 
    109  
     108   !!---------------------------------------------------------------------- 
     109   !!   Empty module                                           no TOP AGRIF 
     110   !!---------------------------------------------------------------------- 
    110111CONTAINS 
    111112   SUBROUTINE agrif_top_sponge_empty 
Note: See TracChangeset for help on using the changeset viewer.