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 3862 for branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90 – NEMO

Ignore:
Timestamp:
2013-04-08T13:07:43+02:00 (11 years ago)
Author:
acc
Message:

Branch 2013/dev_r3858_NOC_ZTC #863. Change names of gdept_0, gdepw_0, e3t_0, e3w_0 to gdept_1d, gdepw_1d, e3t_1d, e3w_1d respectively in preparation for the introduction of time invariant 3d arrays using the _0 suffix

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90

    r3634 r3862  
    184184      !!---------------------------------------------------------------------- 
    185185 
    186       zm00 = TANH( ( pdam - gdept_0(1    ) ) / pwam ) 
    187       zm01 = TANH( ( pdam - gdept_0(jpkm1) ) / pwam ) 
     186      zm00 = TANH( ( pdam - gdept_1d(1    ) ) / pwam ) 
     187      zm01 = TANH( ( pdam - gdept_1d(jpkm1) ) / pwam ) 
    188188      zmhs = zm00 / zm01 
    189189      zmhb = ( 1.e0 - pbot ) / ( 1.e0 - zmhs ) / zm01 
    … …  
    225225      !!---------------------------------------------------------------------- 
    226226 
    227       zm00 = TANH( ( pdam - gdept_0(1    ) ) / pwam ) 
    228       zm01 = TANH( ( pdam - gdept_0(jpkm1) ) / pwam ) 
     227      zm00 = TANH( ( pdam - gdept_1d(1    ) ) / pwam ) 
     228      zm01 = TANH( ( pdam - gdept_1d(jpkm1) ) / pwam ) 
    229229      zmhs = zm00 / zm01 
    230230      zmhb = ( 1.e0 - pbot ) / ( 1.e0 - zmhs ) / zm01 
    … …  
    267267      !!---------------------------------------------------------------------- 
    268268 
    269       zm00 = TANH( ( pdam - gdept_0(1    ) ) / pwam )    
    270       zm01 = TANH( ( pdam - gdept_0(jpkm1) ) / pwam ) 
     269      zm00 = TANH( ( pdam - gdept_1d(1    ) ) / pwam )    
     270      zm01 = TANH( ( pdam - gdept_1d(jpkm1) ) / pwam ) 
    271271      zmhs = zm00 / zm01 
    272272      zmhb = ( 1.e0 - pbot ) / ( 1.e0 - zmhs ) / zm01 
Note: See TracChangeset for help on using the changeset viewer.