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.
#1412 (uoce and voce output not scaled by layer thickness due to IF condition in diawri.F90) – NEMO

Opened 10 years ago

Closed 9 years ago

Last modified 2 years ago

#1412 closed Bug (fixed)

uoce and voce output not scaled by layer thickness due to IF condition in diawri.F90

Reported by: atb299 Owned by: flavoni
Priority: low Milestone: 2015 release-3.6
Component: OCE Version: v3.6
Severity: Keywords: 2015 OPA v3.6
Cc:

Description

The current implementation in diawri.F90 includes an erroneous IF condition on line 167:-

IF( lk_vvl .AND. (.NOT. ln_dynadv_vec) ) THEN

CALL iom_put( "uoce" , un(:,:,:) * fse3u_n(:,:,:) )    ! i-transport
CALL iom_put( "voce" , vn(:,:,:) * fse3v_n(:,:,:) )    ! j-transport

It should be replaced with:-

IF( lk_vvl ) THEN

CALL iom_put( "uoce" , un(:,:,:) * fse3u_n(:,:,:) ) ! i-transport
CALL iom_put( "voce" , vn(:,:,:) * fse3v_n(:,:,:) ) ! j-transport

Commit History (0)

(No commits)

Change History (6)

comment:1 Changed 9 years ago by clevy

  • Milestone set to 2015 nemo_v3_6_STABLE
  • Owner changed from NEMO team to flavoni

comment:2 Changed 9 years ago by flavoni

  • Resolution set to fixed
  • Status changed from new to closed

comment:3 Changed 8 years ago by nicolasmartin

  • Keywords 2015 nemo_v3_6* added

comment:4 Changed 6 years ago by nemo

  • Keywords release-3.6* added; nemo_v3_6* removed

comment:5 Changed 6 years ago by nemo

  • Keywords release-3.6* removed

comment:6 Changed 2 years ago by nemo

  • Keywords OPA v3.6 added
Note: See TracTickets for help on using tickets.