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 9019 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_top_update.F90 – NEMO

Ignore:
Timestamp:
2017-12-13T15:58:53+01:00 (6 years ago)
Author:
timgraham
Message:

Merge of dev_CNRS_2017 into branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_top_update.F90

    r6140 r9019  
    55   !!====================================================================== 
    66   !!                ***  MODULE agrif_top_update  *** 
    7    !! AGRIF :    
    8    !!---------------------------------------------------------------------- 
     7   !! AGRIF :   update package for passive tracers (TOP)  
     8   !!====================================================================== 
    99   !! History :   
    1010   !!---------------------------------------------------------------------- 
    11  
    1211#if defined key_agrif && defined key_top 
     12   !!---------------------------------------------------------------------- 
     13   !!   'key_agrif'                                              AGRIF zoom 
     14   !!   'key_TOP'                                           on-line tracers 
     15   !!---------------------------------------------------------------------- 
    1316   USE par_oce 
    1417   USE oce 
     18   USE dom_oce 
     19   USE agrif_oce 
    1520   USE par_trc 
    1621   USE trc 
    17    USE dom_oce 
    18    USE agrif_oce 
    19    USE wrk_nemo   
    2022 
    2123   IMPLICIT NONE 
    … …  
    2729 
    2830   !!---------------------------------------------------------------------- 
    29    !! NEMO/NST 3.7 , NEMO Consortium (2015) 
     31   !! NEMO/NST 4.0 , NEMO Consortium (2017) 
    3032   !! $Id$ 
    3133   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    … …  
    112114 
    113115#else 
     116   !!---------------------------------------------------------------------- 
     117   !!   Empty module                                           no TOP AGRIF 
     118   !!---------------------------------------------------------------------- 
    114119CONTAINS 
    115120   SUBROUTINE agrif_top_update_empty 
    116       !!--------------------------------------------- 
    117       !!   *** ROUTINE agrif_Top_update_empty *** 
    118       !!--------------------------------------------- 
    119121      WRITE(*,*)  'agrif_top_update : You should not have seen this print! error?' 
    120122   END SUBROUTINE agrif_top_update_empty 
Note: See TracChangeset for help on using the changeset viewer.