Changeset 11453


Ignore:
Timestamp:
2019-08-19T16:05:30+02:00 (14 months ago)
Author:
clne
Message:

Add land mask when outputting wind field, to prevent XIOS errors when running

Location:
NEMO/branches/UKMO/NEMO_4.0_surge
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_surge/cfgs/AMM15_SURGE/MY_SRC/usrdef_sbc.F90

    r11180 r11453  
    242242 
    243243      CALL iom_put( "taum_oce", taum )   ! output wind stress module 
    244       CALL iom_put( "uwnd", uwnd )   ! output wind stress module 
    245       CALL iom_put( "vwnd", vwnd )   ! output wind stress module 
     244      CALL iom_put( "uwnd", uwnd * tmask(:,:,1) )   ! output wind stress module 
     245      CALL iom_put( "vwnd", vwnd * tmask(:,:,1) )   ! output wind stress module 
    246246 
    247247      ! ... utau, vtau at U- and V_points, resp. 
  • NEMO/branches/UKMO/NEMO_4.0_surge/src/OCE/DIA/diawri.F90

    r11180 r11453  
    186186      ENDIF 
    187187  
    188       IF( iom_use("uwnd") ) CALL iom_put( "uwnd" ,   uwnd  )  
    189       IF( iom_use("vwnd") ) CALL iom_put( "vwnd" ,   vwnd  )  
     188      IF( iom_use("uwnd") ) CALL iom_put( "uwnd" ,   uwnd*tmask(:,:,1) )  
     189      IF( iom_use("vwnd") ) CALL iom_put( "vwnd" ,   vwnd*tmask(:,:,1) )  
    190190           
    191191      CALL iom_put( "uoce", un(:,:,:) )            ! 3D i-current 
Note: See TracChangeset for help on using the changeset viewer.