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/2019/dev_r11943_MERGE_2019/tests/VORTEX/MY_SRC – NEMO

source: NEMO/branches/2019/dev_r11943_MERGE_2019/tests/VORTEX/MY_SRC/usrdef_sbc.F90 @ 12353

Last change on this file since 12353 was 12353, checked in by acc, 4 years ago

Branch 2019/dev_r11943_MERGE_2019. Additions to the do loop macro implementation: converted a few loops previously missed because they used jpi-1 instead of jpim1 etc.; changed internal macro names in do_loop_substitute.h90 to strings that are much more unlikely to appear in any future code elsewhere and removed the key_vectopt_loop option (and all related code) since the do loop macros have suppressed this option. These changes have been fully SETTE-tested and this branch should now be ready to go back to the trunk.

  • Property svn:keywords set to Id
File size: 3.7 KB
Line 
1MODULE usrdef_sbc
2   !!======================================================================
3   !!                       ***  MODULE  usrdef_sbc  ***
4   !!
5   !!                      ===  VORTEX configuration  ===
6   !!
7   !! User defined :   surface forcing of a user configuration
8   !!======================================================================
9   !! History :  4.0   ! 2017-11  (J.Chanut)  user defined interface
10   !!----------------------------------------------------------------------
11
12   !!----------------------------------------------------------------------
13   !!   usr_def_sbc    : user defined surface bounday conditions in OVERFLOW 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   !!----------------------------------------------------------------------
33   !! NEMO/OCE 4.0 , NEMO Consortium (2018)
34   !! $Id$
35   !! Software governed by the CeCILL license (see ./LICENSE)
36   !!----------------------------------------------------------------------
37CONTAINS
38
39   SUBROUTINE usrdef_sbc_oce( kt, Kbb )
40      !!---------------------------------------------------------------------
41      !!                    ***  ROUTINE usr_def_sbc  ***
42      !!             
43      !! ** Purpose :   provide at each time-step the surface boundary
44      !!              condition, i.e. the momentum, heat and freshwater fluxes.
45      !!
46      !! ** Method  :   all 0 fields, for VORTEX case
47      !!                CAUTION : never mask the surface stress field !
48      !!
49      !! ** Action  : - set to ZERO all the ocean surface boundary condition, i.e.   
50      !!                   utau, vtau, taum, wndm, qns, qsr, emp, sfx
51      !!
52      !!----------------------------------------------------------------------
53      INTEGER, INTENT(in) ::   kt   ! ocean time step
54      INTEGER, INTENT(in) ::   Kbb  ! ocean time index
55      !!---------------------------------------------------------------------
56      !
57      IF( kt == nit000 ) THEN
58         !
59         IF(lwp) WRITE(numout,*)' usr_sbc : VORTEX case: NO surface forcing'
60         IF(lwp) WRITE(numout,*)' ~~~~~~~~~~~   utau = vtau = taum = wndm = qns = qsr = emp = sfx = 0'
61         !
62         utau(:,:) = 0._wp
63         vtau(:,:) = 0._wp
64         taum(:,:) = 0._wp
65         wndm(:,:) = 0._wp
66         !
67         emp (:,:) = 0._wp
68         sfx (:,:) = 0._wp
69         qns (:,:) = 0._wp
70         qsr (:,:) = 0._wp
71         !         
72      ENDIF
73      !
74   END SUBROUTINE usrdef_sbc_oce
75
76   SUBROUTINE usrdef_sbc_ice_tau( kt )
77      INTEGER, INTENT(in) ::   kt   ! ocean time step
78   END SUBROUTINE usrdef_sbc_ice_tau
79
80
81   SUBROUTINE usrdef_sbc_ice_flx( kt, phs, phi )
82      INTEGER, INTENT(in) ::   kt   ! ocean time step
83      REAL(wp), DIMENSION(:,:,:), INTENT(in)  ::   phs    ! snow thickness
84      REAL(wp), DIMENSION(:,:,:), INTENT(in)  ::   phi    ! ice thickness
85   END SUBROUTINE usrdef_sbc_ice_flx
86
87   !!======================================================================
88END MODULE usrdef_sbc
Note: See TracBrowser for help on using the repository browser.