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 11180 for NEMO/branches/UKMO/NEMO_4.0_surge/src/OCE/DIA/diawri.F90 – NEMO

Ignore:
Timestamp:
2019-06-25T18:50:27+02:00 (5 years ago)
Author:
clne
Message:

Initial commit of code for 2d (surge) work in NEMO4.
This is aiming to replicate the 3.6 version in branches/UKMO/dev_r5518_Surge_Modelling

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0_surge/src/OCE/DIA/diawri.F90

    r10888 r11180  
    185185         CALL iom_put( "taubot", z2d )            
    186186      ENDIF 
    187           
     187  
     188      IF( iom_use("uwnd") ) CALL iom_put( "uwnd" ,   uwnd  )  
     189      IF( iom_use("vwnd") ) CALL iom_put( "vwnd" ,   vwnd  )  
     190           
    188191      CALL iom_put( "uoce", un(:,:,:) )            ! 3D i-current 
    189192      CALL iom_put(  "ssu", un(:,:,1) )            ! surface i-current 
Note: See TracChangeset for help on using the changeset viewer.