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 3839 for branches/2011/dev_r2739_LOCEAN8_ZTC/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90 – NEMO

Ignore:
Timestamp:
2013-03-14T19:00:38+01:00 (11 years ago)
Author:
gm
Message:

dev_r2739_LOCEAN8_ZTC (z-tilde): #863 correct bugs and rename some variables

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2011/dev_r2739_LOCEAN8_ZTC/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90

    r2715 r3839  
    172172      !!---------------------------------------------------------------------- 
    173173 
    174       zm00 = TANH( ( pdam - gdept_0(1    ) ) / pwam ) 
    175       zm01 = TANH( ( pdam - gdept_0(jpkm1) ) / pwam ) 
     174      zm00 = TANH( ( pdam - gdept_1d(1    ) ) / pwam ) 
     175      zm01 = TANH( ( pdam - gdept_1d(jpkm1) ) / pwam ) 
    176176      zmhs = zm00 / zm01 
    177177      zmhb = ( 1.e0 - pbot ) / ( 1.e0 - zmhs ) / zm01 
    … …  
    213213      !!---------------------------------------------------------------------- 
    214214 
    215       zm00 = TANH( ( pdam - gdept_0(1    ) ) / pwam ) 
    216       zm01 = TANH( ( pdam - gdept_0(jpkm1) ) / pwam ) 
     215      zm00 = TANH( ( pdam - gdept_1d(1    ) ) / pwam ) 
     216      zm01 = TANH( ( pdam - gdept_1d(jpkm1) ) / pwam ) 
    217217      zmhs = zm00 / zm01 
    218218      zmhb = ( 1.e0 - pbot ) / ( 1.e0 - zmhs ) / zm01 
    … …  
    255255      !!---------------------------------------------------------------------- 
    256256 
    257       zm00 = TANH( ( pdam - gdept_0(1    ) ) / pwam )    
    258       zm01 = TANH( ( pdam - gdept_0(jpkm1) ) / pwam ) 
     257      zm00 = TANH( ( pdam - gdept_1d(1    ) ) / pwam )    
     258      zm01 = TANH( ( pdam - gdept_1d(jpkm1) ) / pwam ) 
    259259      zmhs = zm00 / zm01 
    260260      zmhb = ( 1.e0 - pbot ) / ( 1.e0 - zmhs ) / zm01 
Note: See TracChangeset for help on using the changeset viewer.