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.
sbcabl.F90 in NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/SBC – NEMO

source: NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/SBC/sbcabl.F90 @ 11275

Last change on this file since 11275 was 11275, checked in by smasson, 5 years ago

dev_r11265_ABL : add ABL interface, see #2131

File size: 1.9 KB
Line 
1MODULE sbcabl
2   !!======================================================================
3   !!                       ***  MODULE  sbcabl  ***
4   !! Ocean forcing:  momentum, heat and freshwater flux formulation
5   !!                 derived from an ABL model
6   !!=====================================================================
7   !! History :  4.0  !  2019-03  (F. Lemarié & G. Samson)  Original code
8   !!----------------------------------------------------------------------
9   USE sbc_oce, ONLY :   ght_abl, ghw_abl, e3t_abl, e3w_abl
10
11   IMPLICIT NONE
12   PRIVATE
13
14   PUBLIC   sbc_abl_init       ! routine called in sbcmod module
15   PUBLIC   sbc_abl            ! routine called in sbcmod module
16
17   !! * Substitutions
18#  include "vectopt_loop_substitute.h90"
19   !!----------------------------------------------------------------------
20   !! NEMO/OPA 3.7 , NEMO-consortium (2014)
21   !! $Id: sbcabl.F90 6416 2016-04-01 12:22:17Z clem $
22   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
23   !!----------------------------------------------------------------------
24CONTAINS
25
26   SUBROUTINE sbc_abl_init
27      !!---------------------------------------------------------------------
28      !!                    ***  ROUTINE sbc_abl_init  ***
29      !!
30      !! ** Purposes :   dummy routine for compilation
31      !!
32      !!----------------------------------------------------------------------
33     
34   END SUBROUTINE sbc_abl_init
35
36   
37   SUBROUTINE sbc_abl( kt )
38      !!---------------------------------------------------------------------
39      !!                     ***  ROUTINE sbc_abl  ***
40      !!
41      !! ** Purposes :   dummy routine for compilation
42      !!
43      !!---------------------------------------------------------------------
44      INTEGER ,         INTENT(in) ::   kt   ! ocean time step
45      !!
46   END SUBROUTINE sbc_abl
47
48
49   !!======================================================================
50END MODULE sbcabl
Note: See TracBrowser for help on using the repository browser.