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 13680 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DOM/domqco.F90 – NEMO

Ignore:
Timestamp:
2020-10-26T23:02:27+01:00 (3 years ago)
Author:
jchanut
Message:

#2385, effectively add VORTEX ssh initialization and key_qco. Save first guess (prior update) r3x arrays: Restored correct value of surface w.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/DOM/domqco.F90

    r13607 r13680  
    125125#if defined key_agrif 
    126126      ! We need to define r3[tuv](Kaa) for AGRIF initialisation (should not be a problem for the restartability...) 
    127       r3t(:,:,Kaa) = r3t(:,:,Kmm) 
    128       r3u(:,:,Kaa) = r3u(:,:,Kmm) 
    129       r3v(:,:,Kaa) = r3v(:,:,Kmm) 
     127!      r3t(:,:,Kaa) = r3t(:,:,Kmm) 
     128!      r3u(:,:,Kaa) = r3u(:,:,Kmm) 
     129!      r3v(:,:,Kaa) = r3v(:,:,Kmm) 
    130130#endif 
    131131      ! 
Note: See TracChangeset for help on using the changeset viewer.