source: NEMO/branches/UKMO/r12083_India_uncoupled/src/OCE/USR/usrdef_sbc.F90 @ 12453

Last change on this file since 12453 was 12453, checked in by jcastill, 9 months ago

First implementation of the branch - compiling after merge

File size: 3.7 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 phycst         ! physical constants
19   !
20   USE in_out_manager ! I/O manager
21   USE lib_mpp        ! distribued memory computing library
22   USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
23   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
24
25   IMPLICIT NONE
26   PRIVATE
27
28   PUBLIC   usrdef_sbc_oce       ! routine called in sbcmod module
29   PUBLIC   usrdef_sbc_ice_tau   ! routine called by icestp.F90 for ice dynamics
30   PUBLIC   usrdef_sbc_ice_flx   ! routine called by icestp.F90 for ice thermo
31
32   !! * Substitutions
33#  include "vectopt_loop_substitute.h90"
34   !!----------------------------------------------------------------------
35   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
36   !! $Id$
37   !! Software governed by the CeCILL license (see ./LICENSE)
38   !!----------------------------------------------------------------------
39CONTAINS
40
41   SUBROUTINE usrdef_sbc_oce( kt )
42      !!---------------------------------------------------------------------
43      !!                    ***  ROUTINE usrdef_sbc  ***
44      !!             
45      !! ** Purpose :   provide at each time-step the surface boundary
46      !!              condition, i.e. the momentum, heat and freshwater fluxes.
47      !!
48      !! ** Method  :   all 0 fields, for WAD_TEST_CASES case
49      !!                CAUTION : never mask the surface stress field !
50      !!
51      !! ** Action  : - set to ZERO all the ocean surface boundary condition, i.e.
52      !!                   utau, vtau, taum, wndm, qns, qsr, emp, sfx
53      !!
54      !!----------------------------------------------------------------------
55      INTEGER, INTENT(in) ::   kt   ! ocean time step
56      !!---------------------------------------------------------------------
57      !
58      IF( kt == nit000 ) THEN 
59         !
60         IF(lwp) WRITE(numout,*)' usr_sbc : WAD_TEST_CASES case: NO surface forcing' 
61         IF(lwp) WRITE(numout,*)' ~~~~~~~~~~~   utau = vtau = taum = wndm = qns = qsr = emp = sfx = 0' 
62         !
63         utau(:,:) = 0._wp 
64         vtau(:,:) = 0._wp 
65         taum(:,:) = 0._wp 
66         wndm(:,:) = 0._wp 
67         !
68         emp (:,:) = 0._wp 
69         sfx (:,:) = 0._wp 
70         qns (:,:) = 0._wp 
71         qsr (:,:) = 0._wp 
72         !
73      ENDIF
74      !
75   END SUBROUTINE usrdef_sbc_oce
76
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
83   SUBROUTINE usrdef_sbc_ice_flx( kt, phs, phi )
84      INTEGER, INTENT(in) ::   kt   ! ocean time step
85      REAL(wp), DIMENSION(:,:,:), INTENT(in)  ::   phs    ! snow thickness
86      REAL(wp), DIMENSION(:,:,:), INTENT(in)  ::   phi    ! ice thickness
87   END SUBROUTINE usrdef_sbc_ice_flx
88
89   !!======================================================================
90END MODULE usrdef_sbc
Note: See TracBrowser for help on using the repository browser.