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 13683 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/VORTEX/MY_SRC/domqco.F90 – NEMO

Ignore:
Timestamp:
2020-10-27T18:27:17+01:00 (3 years ago)
Author:
jchanut
Message:

#2385, AGRIF. Duplicate now r3x in after r3x arrays at initialization (as done with std vvl)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/VORTEX/MY_SRC/domqco.F90

    r13680 r13683  
    9696      CALL dom_qco_zgr( Kbb, Kmm, Kaa )       ! interpolation scale factor, depth and water column 
    9797      ! 
     98#if defined key_agrif 
     99      ! We need to define r3[tuv](Kaa) for AGRIF initialisation (should not be a 
     100      ! problem for the restartability...) 
     101      r3t(:,:,Kaa) = r3t(:,:,Kmm) 
     102      r3u(:,:,Kaa) = r3u(:,:,Kmm) 
     103      r3v(:,:,Kaa) = r3v(:,:,Kmm) 
     104#endif 
    98105      IF(lwxios) THEN   ! define variables in restart file when writing with XIOS 
    99106         CALL iom_set_rstw_var_active('sshb') 
     
    123130      CALL dom_qco_r3c( ssh(:,:,Kmm), r3t(:,:,Kmm), r3u(:,:,Kmm), r3v(:,:,Kmm), r3f(:,:) ) 
    124131      ! 
    125 #if defined key_agrif 
    126       ! 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) 
    130 #endif 
    131132      ! 
    132133   END SUBROUTINE dom_qco_zgr 
Note: See TracChangeset for help on using the changeset viewer.