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

Changeset 1382


Ignore:
Timestamp:
2009-04-06T15:32:40+02:00 (15 years ago)
Author:
rblod
Message:

Fix cimputation error in previous commit, ticket #398

Location:
branches/dev_004_VVL/NEMO/OPA_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/dev_004_VVL/NEMO/OPA_SRC/DYN/dynnxt.F90

    r1381 r1382  
    7979      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
    8080      !! 
    81       INTEGER  ::   jk   ! dummy loop indices 
     81      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    8282      REAL(wp) ::   z2dt         ! temporary scalar 
     83      REAL(wp) ::   zue3a , zue3n , zue3b    ! temporary scalar 
     84      REAL(wp) ::   zve3a , zve3n , zve3b    !    -         - 
     85      REAL(wp) ::   ze3u_b, ze3u_n, ze3u_a   !    -         - 
     86      REAL(wp) ::   ze3v_b, ze3v_n, ze3v_a   !    -         -  
    8387      !!---------------------------------------------------------------------- 
    8488 

  • branches/dev_004_VVL/NEMO/OPA_SRC/DYN/wzvmod.F90

    r1381 r1382  
    3434   !! * Substitutions 
    3535#  include "domzgr_substitute.h90" 
     36#  include "vectopt_loop_substitute.h90" 
     37 
    3638   !!---------------------------------------------------------------------- 
    3739   !!  OPA 9.0 , LOCEAN-IPSL (2005)  

  • branches/dev_004_VVL/NEMO/OPA_SRC/TRA/tranxt.F90

    r1381 r1382  
    2222   USE dom_oce         ! ocean space and time domain variables  
    2323   USE zdf_oce         ! ??? 
     24   USE domvvl          ! variable volume 
    2425   USE dynspg_oce      ! surface pressure gradient variables 
    2526   USE trdmod_oce      ! ocean variables trends 
Note: See TracChangeset for help on using the changeset viewer.