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 8010 for branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/NST_SRC/agrif_opa_interp.F90 – NEMO

Ignore:
Timestamp:
2017-05-09T17:36:25+02:00 (7 years ago)
Author:
jchanut
Message:

AGRIF vvl add on

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/NST_SRC/agrif_opa_interp.F90

    r7988 r8010  
    972972         IF( bdy_tinterp == 1 ) THEN 
    973973            ztcoeff = zrhot * (  zt1**2._wp * (       zt1 - 1._wp)        & 
    974                   &      - zt0**2._wp * (       zt0 - 1._wp)        ) 
     974                        &      - zt0**2._wp * (       zt0 - 1._wp)        ) 
    975975         ELSEIF( bdy_tinterp == 2 ) THEN 
    976976            ztcoeff = zrhot * (  zt1        * (       zt1 - 1._wp)**2._wp & 
    977                   &      - zt0        * (       zt0 - 1._wp)**2._wp )  
     977                        &      - zt0        * (       zt0 - 1._wp)**2._wp )  
    978978 
    979979         ELSE 
    … …  
    10481048         IF( bdy_tinterp == 1 ) THEN 
    10491049            ztcoeff = zrhot * (  zt1**2._wp * (       zt1 - 1._wp)        & 
    1050                   &      - zt0**2._wp * (       zt0 - 1._wp)        ) 
     1050                        &      - zt0**2._wp * (       zt0 - 1._wp)        ) 
    10511051         ELSEIF( bdy_tinterp == 2 ) THEN 
    10521052            ztcoeff = zrhot * (  zt1        * (       zt1 - 1._wp)**2._wp & 
    1053                   &      - zt0        * (       zt0 - 1._wp)**2._wp )  
     1053                        &      - zt0        * (       zt0 - 1._wp)**2._wp )  
    10541054 
    10551055         ELSE 
Note: See TracChangeset for help on using the changeset viewer.