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

Changeset 13857


Ignore:
Timestamp:
2020-11-24T10:45:04+01:00 (4 years ago)
Author:
agn
Message:

correct gjamu & v output if abort

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser_4.0/src/OCE/DIA/diawri.F90

    r12383 r13857  
    935935         CALL iom_rstput( 0, 0, inum, 'ghamt', ghamt*wmask       )    ! non-local t forcing 
    936936         CALL iom_rstput( 0, 0, inum, 'ghams', ghams*wmask       )    ! non-local s forcing 
    937          CALL iom_rstput( 0, 0, inum, 'ghamu', ghamu*wmask       )    ! non-local u forcing 
    938          CALL iom_rstput( 0, 0, inum, 'ghamv', ghamu*wmask       )    ! non-local v forcing 
     937         CALL iom_rstput( 0, 0, inum, 'ghamu', ghamu*umask       )    ! non-local u forcing 
     938         CALL iom_rstput( 0, 0, inum, 'ghamv', ghamv*vmask       )    ! non-local v forcing 
    939939         IF( ln_osm_mle ) THEN 
    940940            CALL iom_rstput( 0, 0, inum, 'hmle', hmle*tmask(:,:,1)   )    ! now transition-layer depth 
Note: See TracChangeset for help on using the changeset viewer.