Changeset 11453

Timestamp:

2019-08-19T16:05:30+02:00 (5 years 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:

• cfgs/AMM15_SURGE/MY_SRC/usrdef_sbc.F90 (modified) (1 diff)
• src/OCE/DIA/diawri.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0_surge/cfgs/AMM15_SURGE/MY_SRC/usrdef_sbc.F90

@@ -242 +242 @@
 
       CALL iom_put( "taum_oce", taum )   ! output wind stress module
-      CALL iom_put( "uwnd", uwnd )   ! output wind stress module
-      CALL iom_put( "vwnd", vwnd )   ! output wind stress module
+      CALL iom_put( "uwnd", uwnd * tmask(:,:,1) )   ! output wind stress module
+      CALL iom_put( "vwnd", vwnd * tmask(:,:,1) )   ! output wind stress module
 
       ! ... utau, vtau at U- and V_points, resp.

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

@@ -186 +186 @@
       ENDIF
  
-      IF( iom_use("uwnd") ) CALL iom_put( "uwnd" ,   uwnd  ) 
-      IF( iom_use("vwnd") ) CALL iom_put( "vwnd" ,   vwnd  ) 
+      IF( iom_use("uwnd") ) CALL iom_put( "uwnd" ,   uwnd*tmask(:,:,1) ) 
+      IF( iom_use("vwnd") ) CALL iom_put( "vwnd" ,   vwnd*tmask(:,:,1) ) 
           
       CALL iom_put( "uoce", un(:,:,:) )            ! 3D i-current