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 5282 for branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/TOOLS/SIREN/src – NEMO

Ignore:
Timestamp:
2015-05-18T17:19:50+02:00 (9 years ago)
Author:
diovino
Message:

Dev. branch CMCC4_simplification ticket #1456

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/TOOLS/SIREN/src/vgrid.f90

    r5037 r5282  
    229229            dd_gdepw(jk) = ( dl_zw - 1.0 ) * dl_za1 
    230230            dd_gdept(jk) = ( dl_zt - 1.0 ) * dl_za1 
    231             dd_e3w  (jk) =  dl_za1 
    232             dd_e3t  (jk) =  dl_za1 
     231            dd_e3w(jk) =  dl_za1 
     232            dd_e3t(jk) =  dl_za1 
    233233         END DO 
    234234 
    … …  
    244244            &                dl_za1 * dl_zacr * LOG( COSH( (dl_zt-dl_zkth)/dl_zacr ) ) + & 
    245245            &                dl_za2 * dl_zacr2* LOG( COSH( (dl_zt-dl_zkth2)/dl_zacr2 ) ) ) 
    246             dd_e3w  (jk) =             dl_za0 + & 
     246            dd_e3w(jk) =             dl_za0 + & 
    247247            &                          dl_za1 * TANH(      (dl_zw-dl_zkth)/dl_zacr   ) + & 
    248248            &                          dl_za2 * TANH(      (dl_zw-dl_zkth2)/dl_zacr2 ) 
    249             dd_e3t  (jk) =             dl_za0 + & 
     249            dd_e3t(jk) =             dl_za0 + & 
    250250            &                          dl_za1 * TANH(      (dl_zt-dl_zkth)/dl_zacr   ) + & 
    251251            &                          dl_za2 * TANH(      (dl_zt-dl_zkth2)/dl_zacr2 ) 
Note: See TracChangeset for help on using the changeset viewer.