Changeset 14788 for NEMO

Timestamp:

2021-05-05T13:17:17+02:00 (3 years ago)

Author:

sparonuz

Message:

Changed name to lowercase of sbcblk_algo_ecmwf_init and sbcblk_algo_coare3p6_init

Location:

NEMO/branches/2021/dev_r14116_HPC-10_mcastril_Mixed_Precision_implementation/src/OCE/SBC

Files:

• sbcblk_algo_coare3p6.F90 (modified) (2 diffs)
• sbcblk_algo_ecmwf.F90 (modified) (2 diffs)

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

@@ -34 +34 @@
    PRIVATE
 
-   PUBLIC :: SBCBLK_ALGO_COARE3P6_INIT, TURB_COARE3P6
+   PUBLIC :: sbcblk_algo_coare3p6_init, TURB_COARE3P6
    !! * Substitutions
 #  include "do_loop_substitute.h90"
@@ -185 +185 @@
       CHARACTER(len=40), PARAMETER :: crtnm = 'turb_coare3p6@sbcblk_algo_coare3p6'
       !!----------------------------------------------------------------------------------
-      IF( kt == nit000 ) CALL SBCBLK_ALGO_COARE3P6_INIT(l_use_cs, l_use_wl)
+      IF( kt == nit000 ) CALL sbcblk_algo_coare3p6_init(l_use_cs, l_use_wl)
 
       nbit = nb_iter0

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

@@ -35 +35 @@
    PRIVATE
 
-   PUBLIC :: SBCBLK_ALGO_ECMWF_INIT, TURB_ECMWF
+   PUBLIC :: sbcblk_algo_ecmwf_init, TURB_ECMWF
 
    !! ECMWF own values for given constants, taken form IFS documentation...
@@ -189 +189 @@
       CHARACTER(len=40), PARAMETER :: crtnm = 'turb_ecmwf@sbcblk_algo_ecmwf.F90'
       !!----------------------------------------------------------------------------------
-      IF( kt == nit000 ) CALL SBCBLK_ALGO_ECMWF_INIT(l_use_cs, l_use_wl)
+      IF( kt == nit000 ) CALL sbcblk_algo_ecmwf_init(l_use_cs, l_use_wl)
 
       nbit = nb_iter0