Changeset 12039 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ncar.F90

Timestamp:

2019-12-03T15:42:31+01:00 (5 years ago)

Author:

laurent

Message:

Got rid of array "tsk" as it was useless.

File:

• NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ncar.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ncar.F90

@@ -26 +26 @@
    USE dom_oce         ! ocean space and time domain
    USE phycst          ! physical constants
+   USE sbc_oce         ! Surface boundary condition: ocean fields
+   USE sbcwave, ONLY   :  cdn_wave ! wave module
+#if defined key_si3 || defined key_cice
+   USE sbc_ice         ! Surface boundary condition: ice fields
+#endif
+   !
    USE iom             ! I/O manager library
    USE lib_mpp         ! distribued memory computing library
    USE in_out_manager  ! I/O manager
    USE prtctl          ! Print control
-   USE sbcwave, ONLY   :  cdn_wave ! wave module
-#if defined key_si3 || defined key_cice
-   USE sbc_ice         ! Surface boundary condition: ice fields
-#endif
    USE lib_fortran     ! to use key_nosignedzero
 
-   USE sbc_oce         ! Surface boundary condition: ocean fields
    USE sbcblk_phy      ! all thermodynamics functions, rho_air, q_sat, etc... !LB
 
@@ -42 +43 @@
    PRIVATE
 
-   PUBLIC :: TURB_NCAR   ! called by sbcblk.F90
+   PUBLIC ::   TURB_NCAR   ! called by sbcblk.F90
 
    INTEGER , PARAMETER ::   nb_itt = 5        ! number of itterations
@@ -52 +53 @@
       &                  Cd, Ch, Ce, t_zu, q_zu, U_blk,      &
       &                  Cdn, Chn, Cen                       )
-      !!----------------------------------------------------------------------
+      !!----------------------------------------------------------------------------------
       !!                      ***  ROUTINE  turb_ncar  ***
       !!