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.
usrdef_sbc.F90 in NEMO/branches/UKMO/dev_r9950_old_tidal_mixing/tests/WAD/MY_SRC – NEMO

source: NEMO/branches/UKMO/dev_r9950_old_tidal_mixing/tests/WAD/MY_SRC/usrdef_sbc.F90 @ 10328

Last change on this file since 10328 was 10328, checked in by davestorkey, 5 years ago

UKMO/dev_r9950_old_tidal_mixing branch: clear SVN keywords.

File size: 3.6 KB
Line 
1MODULE usrdef_sbc
2   !!======================================================================
3   !!                       ***  MODULE usrdef_sbc  ***
4   !!
5   !!                  ===  WAD_TEST_CASES configuration  ===
6   !!
7   !! User defined :   surface forcing of a user configuration
8   !!======================================================================
9   !! History :  4.0   ! 2016-03  (S. Flavoni, G. Madec)  user defined interface
10   !!----------------------------------------------------------------------
11
12   !!----------------------------------------------------------------------
13   !!   usrdef_sbc     : user defined surface bounday conditions in WAD_TEST_CASES case
14   !!----------------------------------------------------------------------
15   USE oce             ! ocean dynamics and tracers
16   USE dom_oce         ! ocean space and time domain
17   USE sbc_oce         ! Surface boundary condition: ocean fields
18   USE sbc_ice         ! Surface boundary condition: ice fields
19   USE phycst          ! physical constants
20   !
21   USE in_out_manager  ! I/O manager
22   USE lib_mpp         ! distribued memory computing library
23   USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
24   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
25
26   IMPLICIT NONE
27   PRIVATE
28
29   PUBLIC   usrdef_sbc_oce      ! routine called in sbcmod module
30   PUBLIC   usrdef_sbc_ice_tau  ! routine called by icestp.F90 for ice dynamics
31   PUBLIC   usrdef_sbc_ice_flx  ! routine called by icestp.F90 for ice thermo
32
33   !! * Substitutions
34#  include "vectopt_loop_substitute.h90"
35   !!----------------------------------------------------------------------
36   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
37   !! $Id$
38   !! Software governed by the CeCILL license (see ./LICENSE)
39   !!----------------------------------------------------------------------
40CONTAINS
41
42   SUBROUTINE usrdef_sbc_oce( kt )
43      !!---------------------------------------------------------------------
44      !!                    ***  ROUTINE usr_def_sbc  ***
45      !!             
46      !! ** Purpose :   provide at each time-step the surface boundary
47      !!              condition, i.e. the momentum, heat and freshwater fluxes.
48      !!
49      !! ** Method  :   all 0 fields, for WAD_TEST_CASES case
50      !!                CAUTION : never mask the surface stress field !
51      !!
52      !! ** Action  : - set to ZERO all the ocean surface boundary condition, i.e.   
53      !!                   utau, vtau, taum, wndm, qns, qsr, emp, sfx
54      !!
55      !!----------------------------------------------------------------------
56      INTEGER, INTENT(in) ::   kt   ! ocean time step
57      !!---------------------------------------------------------------------
58      !
59      IF( kt == nit000 ) THEN
60         !
61         IF(lwp) WRITE(numout,*)' usr_sbc : WAD_TEST_CASES case: NO surface forcing'
62         IF(lwp) WRITE(numout,*)' ~~~~~~~~~~~   utau = vtau = taum = wndm = qns = qsr = emp = sfx = 0'
63         !
64         utau(:,:) = 0._wp
65         vtau(:,:) = 0._wp
66         taum(:,:) = 0._wp
67         wndm(:,:) = 0._wp
68         !
69         emp (:,:) = 0._wp
70         sfx (:,:) = 0._wp
71         qns (:,:) = 0._wp
72         qsr (:,:) = 0._wp
73         !         
74      ENDIF
75      !
76   END SUBROUTINE usrdef_sbc_oce
77
78   SUBROUTINE usrdef_sbc_ice_tau( kt )
79      INTEGER, INTENT(in) ::   kt   ! ocean time step
80   END SUBROUTINE usrdef_sbc_ice_tau
81
82   SUBROUTINE usrdef_sbc_ice_flx( kt )
83      INTEGER, INTENT(in) ::   kt   ! ocean time step
84   END SUBROUTINE usrdef_sbc_ice_flx
85
86   !!======================================================================
87END MODULE usrdef_sbc
Note: See TracBrowser for help on using the repository browser.