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 – 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

Location:
branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/LDF
Files:
2 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 

  • branches/2013/dev_r3858_NOC_ZTC/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90

    r3294 r3862  
    386386 
    387387      DO jk=1, jpk 
    388          zcoef(jk) = 1.0_wp + NINT(9.0_wp*(gdept_0(jk)-800.0_wp)/(3000.0_wp-800.0_wp)) 
     388         zcoef(jk) = 1.0_wp + NINT(9.0_wp*(gdept_1d(jk)-800.0_wp)/(3000.0_wp-800.0_wp)) 
    389389         zcoef(jk) = MIN(10.0_wp, MAX(1.0_wp, zcoef(jk))) 
    390390         IF(lwp) WRITE(numout,'(4x,i3,6x,f7.3)') jk,zcoef(jk) 
Note: See TracChangeset for help on using the changeset viewer.