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 1839 for branches/dev_r1821_mixed_ldfdyn/NEMO/OPA_SRC/LDF/ldfdyn_substitute.h90 – NEMO

Ignore:
Timestamp:
2010-04-14T15:28:04+02:00 (14 years ago)
Author:
edblockley
Message:

1st commit for the mixed_ldfdyn branch
see ticket:659

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r1821_mixed_ldfdyn/NEMO/OPA_SRC/LDF/ldfdyn_substitute.h90

    r1152 r1839  
    1010   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
    1111   !!---------------------------------------------------------------------- 
     12   !! 
     13   !! fsahmt, fsahmf - used for laplaian operator only 
     14   !! fsahmu, fsahmv - used for bilaplacian operator only 
     15   !! 
    1216#if defined key_dynldf_c3d 
    1317!   ' key_dynldf_c3d' :                  3D coefficient 
     
    2630#  define   fsahmt(i,j,k)    ahm1(k) 
    2731#  define   fsahmf(i,j,k)    ahm1(k) 
    28 #  define   fsahmu(i,j,k)    ahm1(k) 
    29 #  define   fsahmv(i,j,k)    ahm1(k) 
     32#  define   fsahmu(i,j,k)    ahm2(k) 
     33#  define   fsahmv(i,j,k)    ahm2(k) 
    3034#else 
    3135!   default option :               Constant coefficient 
    3236#  define   fsahmt(i,j,k)   ahm0 
    3337#  define   fsahmf(i,j,k)   ahm0 
    34 #  define   fsahmu(i,j,k)   ahm0 
    35 #  define   fsahmv(i,j,k)   ahm0 
     38#  define   fsahmu(i,j,k)   ahm0_blp 
     39#  define   fsahmv(i,j,k)   ahm0_blp 
    3640#endif 
Note: See TracChangeset for help on using the changeset viewer.