Changeset 14790 for NEMO

Timestamp:

2021-05-05T14:43:39+02:00 (3 years ago)

Author:

sparonuz

Message:

Changed name to lowercase of sbcblk_algo_coare3p0_init

File:

• NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/SBC/sbcblk_algo_coare3p0.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/SBC/sbcblk_algo_coare3p0.F90

@@ -44 +44 @@
    PRIVATE
 
-   PUBLIC :: SBCBLK_ALGO_COARE3P0_INIT, TURB_COARE3P0
+   PUBLIC :: sbcblk_algo_coare3p0_init, TURB_COARE3P0
    !! * Substitutions
 #  include "do_loop_substitute.h90"
@@ -195 +195 @@
       CHARACTER(len=40), PARAMETER :: crtnm = 'turb_coare3p0@sbcblk_algo_coare3p0'
       !!----------------------------------------------------------------------------------
-      IF( kt == nit000 ) CALL SBCBLK_ALGO_COARE3P0_INIT(l_use_cs, l_use_wl)
+      IF( kt == nit000 ) CALL sbcblk_algo_coare3p0_init(l_use_cs, l_use_wl)
 
       nbit = nb_iter0