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 8865 for branches/UKMO/ROMS_WAD_7832/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 – NEMO

Ignore:
Timestamp:
2017-12-01T05:41:32+01:00 (6 years ago)
Author:
deazer
Message:

Moving Changes from CS15mini config into NEMO main src
Updating TEST configs to run wit this version of the code
all sette tests pass at this revision other than AGRIF
Includes updates to dynnxt and tranxt required for 3D rives in WAD case to be conservative.

Next commit will update naming conventions and tidy the code.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/ROMS_WAD_7832/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r8841 r8865  
    154154         CALL iom_put( "e3tdef"  , ( ( e3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2 ) 
    155155 
    156       CALL iom_put( "ssh" , sshn )                 ! sea surface height 
     156      IF( (ln_wd .OR. ln_rwd)) THEN 
     157         CALL iom_put( "ssh" , sshn+rn_ssh_ref )                 ! sea surface height !bring it back to the reference need wad if here 
     158      ELSE 
     159         CALL iom_put( "ssh" , sshn )                 ! sea surface height !bring it back to the reference need wad if here 
     160      ENDIF 
     161 
    157162      IF( iom_use("wetdep") )   &                  ! wet depth 
    158          CALL iom_put( "wetdep" , ht_wd(:,:) + sshn(:,:) ) 
     163         CALL iom_put( "wetdep" , ht_0(:,:) + sshn(:,:) ) 
    159164       
    160165      CALL iom_put( "toce", tsn(:,:,:,jp_tem) )    ! 3D temperature 
Note: See TracChangeset for help on using the changeset viewer.