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

Last change on this file since 11334 was 11334, checked in by flemarie, 14 months ago

Follow-on to the ABL implementation (see ticket #2131)

  • Modification of diawri.F90 to output ABL variables with IOIPSL (i.e. without key_iomput)
  • Modification of ice_var_agg in icevar.F90 to allow the use of tm_su in ABL and bulk
  • Error handling in case ln_abl = .true. and ABL sources were not compiled
  • ABL now works with SI3 considering an average over ice categories
  • Update reference namelist to avoid runtime warnings due to nam_tide
  • Sanity checks with ORCA2 for the following configurations :

1 - ABL src + ln_blk = .true.
2 - ABL src + ln_abl = .true.
3 - no ABL src + ln_blk = .true.

All configurations are MPP reproducible and configurations 1 and 3 results are identical

File size: 2.1 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   USE lib_mpp, ONLY :   ctl_stop
11
12   IMPLICIT NONE
13   PRIVATE
14
15   PUBLIC   sbc_abl_init       ! routine called in sbcmod module
16   PUBLIC   sbc_abl            ! routine called in sbcmod module
17
18   !! * Substitutions
19#  include "vectopt_loop_substitute.h90"
20   !!----------------------------------------------------------------------
21   !! NEMO/OPA 3.7 , NEMO-consortium (2014)
22   !! $Id: sbcabl.F90 6416 2016-04-01 12:22:17Z clem $
23   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
24   !!----------------------------------------------------------------------
25CONTAINS
26
27   SUBROUTINE sbc_abl_init
28      !!---------------------------------------------------------------------
29      !!                    ***  ROUTINE sbc_abl_init  ***
30      !!
31      !! ** Purposes :   dummy routine for compilation
32      !!
33      !!----------------------------------------------------------------------
34      CALL ctl_stop( 'STOP', 'ln_abl = .true. but ABL source directory was not included',   &
35        & '(Either switch to ln_abl = .false. or modify your cfg.txt file and recompile)' )
36     !!
37   END SUBROUTINE sbc_abl_init
38
39   
40   SUBROUTINE sbc_abl( kt )
41      !!---------------------------------------------------------------------
42      !!                     ***  ROUTINE sbc_abl  ***
43      !!
44      !! ** Purposes :   dummy routine for compilation
45      !!
46      !!---------------------------------------------------------------------
47      INTEGER ,         INTENT(in) ::   kt   ! ocean time step
48      !!
49   END SUBROUTINE sbc_abl
50
51
52   !!======================================================================
53END MODULE sbcabl
Note: See TracBrowser for help on using the repository browser.