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 11467 for NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/DYN/dynvor.F90 – NEMO

Ignore:
Timestamp:
2019-08-22T11:49:08+02:00 (5 years ago)
Author:
andmirek
Message:

Ticket #2197 allocate arrays at the beggining of the run

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/dev_r10037_GPU/src/OCE/DYN/dynvor.F90

    r10843 r11467  
    205205      !! ** Action : - Update (ua,va) with the now vorticity term trend 
    206206      !!---------------------------------------------------------------------- 
     207      USE scoce, ONLY : zwx => scr2D1, zwy => scr2D2, zwz  => scr2D3, zwt => scr2D4 
    207208      INTEGER                         , INTENT(in   ) ::   kt               ! ocean time-step index 
    208209      INTEGER                         , INTENT(in   ) ::   kvor             ! total, planetary, relative, or metric 
    … …  
    212213      INTEGER  ::   ji, jj, jk           ! dummy loop indices 
    213214      REAL(wp) ::   zx1, zy1, zx2, zy2   ! local scalars 
    214       REAL(wp), DIMENSION(jpi,jpj) ::   zwx, zwy, zwz, zwt   ! 2D workspace 
    215215      !!---------------------------------------------------------------------- 
    216216      ! 
    … …  
    327327      !! References : Sadourny, r., 1975, j. atmos. sciences, 32, 680-689. 
    328328      !!---------------------------------------------------------------------- 
     329      USE scoce, ONLY : zwx => scr2D1, zwy => scr2D2, zwz => scr2D3 
    329330      INTEGER                         , INTENT(in   ) ::   kt          ! ocean time-step index 
    330331      INTEGER                         , INTENT(in   ) ::   kvor        ! total, planetary, relative, or metric 
    … …  
    334335      INTEGER  ::   ji, jj, jk           ! dummy loop indices 
    335336      REAL(wp) ::   zx1, zy1, zx2, zy2   ! local scalars 
    336       REAL(wp), DIMENSION(jpi,jpj) ::   zwx, zwy, zwz   ! 2D workspace 
    337337      !!---------------------------------------------------------------------- 
    338338      ! 
    … …  
    435435      !! References : Sadourny, r., 1975, j. atmos. sciences, 32, 680-689. 
    436436      !!---------------------------------------------------------------------- 
     437      USE scoce, ONLY : zwx => scr2D1, zwy => scr2D2, & 
     438                       zwz => scr2D3, zww => scr2D4    ! 2D workspace 
    437439      INTEGER                         , INTENT(in   ) ::   kt          ! ocean time-step index 
    438440      INTEGER                         , INTENT(in   ) ::   kvor        ! total, planetary, relative, or metric 
    … …  
    442444      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    443445      REAL(wp) ::   zuav, zvau   ! local scalars 
    444       REAL(wp), DIMENSION(jpi,jpj) ::   zwx, zwy, zwz, zww   ! 2D workspace 
    445446      !!---------------------------------------------------------------------- 
    446447      ! 
    … …  
    539540      !! References : Arakawa and Lamb 1980, Mon. Wea. Rev., 109, 18-36 
    540541      !!---------------------------------------------------------------------- 
     542      USE scoce, ONLY : zwx => scr2D1, zwy => scr2D2, zwz => scr2D3, z1_e3f => scr2D4, & 
     543                       ztnw => scr2D5, ztne => scr2D6, ztsw => scr2D7, ztse => scr2D8 
    541544      INTEGER                         , INTENT(in   ) ::   kt          ! ocean time-step index 
    542545      INTEGER                         , INTENT(in   ) ::   kvor        ! total, planetary, relative, or metric 
    … …  
    548551      REAL(wp) ::   zua, zva     ! local scalars 
    549552      REAL(wp) ::   zmsk, ze3f   ! local scalars 
    550       REAL(wp), DIMENSION(jpi,jpj) ::   zwx , zwy , zwz , z1_e3f 
    551       REAL(wp), DIMENSION(jpi,jpj) ::   ztnw, ztne, ztsw, ztse 
    552553      !!---------------------------------------------------------------------- 
    553554      ! 
    … …  
    692693      !! References : Arakawa and Lamb 1980, Mon. Wea. Rev., 109, 18-36 
    693694      !!---------------------------------------------------------------------- 
     695      USE scoce, ONLY : zwx => scr2D1, zwy => scr2D2, zwz => scr2D3, z1_e3f => scr2D4, & 
     696                       ztnw => scr2D1, ztne => scr2D2, ztsw => scr2D3, ztse => scr2D4 
    694697      INTEGER                         , INTENT(in   ) ::   kt          ! ocean time-step index 
    695698      INTEGER                         , INTENT(in   ) ::   kvor        ! total, planetary, relative, or metric 
    … …  
    701704      REAL(wp) ::   zua, zva       ! local scalars 
    702705      REAL(wp) ::   zmsk, z1_e3t   ! local scalars 
    703       REAL(wp), DIMENSION(jpi,jpj) ::   zwx , zwy , zwz 
    704       REAL(wp), DIMENSION(jpi,jpj) ::   ztnw, ztne, ztsw, ztse 
    705706      !!---------------------------------------------------------------------- 
    706707      ! 
Note: See TracChangeset for help on using the changeset viewer.