Changeset 6727 for branches/2016/dev_r6711_SIMPLIF_6_aerobulk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_algo_ncar.F90

Timestamp:

2016-06-21T16:25:51+02:00 (8 years ago)

Author:

gm

Message:

#1751 - branch SIMPLIF_6_aerobulk: minor correction

File:

• branches/2016/dev_r6711_SIMPLIF_6_aerobulk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_algo_ncar.F90 (modified) (2 diffs)

branches/2016/dev_r6711_SIMPLIF_6_aerobulk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_algo_ncar.F90

@@ -15 +15 @@
    !!                         L. Brodeau, 2015
    !!=====================================================================
-   !! History :  3.6  !  2016-02  (L.Brodeau) successor of old turb_ncar
-   !!                                         of old sbcblk_core.F90
+   !! History :  3.6  !  2016-02  (L.Brodeau) successor of old turb_ncar of former sbcblk_core.F90
    !!----------------------------------------------------------------------
 
@@ -45 +44 @@
    PRIVATE
 
-   PUBLIC :: TURB_NCAR
-
-   !! NCAR own values for given constants:
+   PUBLIC ::   TURB_NCAR   ! called by sbcblk.F90
+
+   !                              ! NCAR own values for given constants:
    REAL(wp), PARAMETER ::   rctv0 = 0.608   ! constant to obtain virtual temperature...