Ignore:
Timestamp:
2019-12-03T15:42:31+01:00 (10 months ago)
Author:
laurent
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ncar.F90

    r11963 r12039  
    2626   USE dom_oce         ! ocean space and time domain 
    2727   USE phycst          ! physical constants 
     28   USE sbc_oce         ! Surface boundary condition: ocean fields 
     29   USE sbcwave, ONLY   :  cdn_wave ! wave module 
     30#if defined key_si3 || defined key_cice 
     31   USE sbc_ice         ! Surface boundary condition: ice fields 
     32#endif 
     33   ! 
    2834   USE iom             ! I/O manager library 
    2935   USE lib_mpp         ! distribued memory computing library 
    3036   USE in_out_manager  ! I/O manager 
    3137   USE prtctl          ! Print control 
    32    USE sbcwave, ONLY   :  cdn_wave ! wave module 
    33 #if defined key_si3 || defined key_cice 
    34    USE sbc_ice         ! Surface boundary condition: ice fields 
    35 #endif 
    3638   USE lib_fortran     ! to use key_nosignedzero 
    3739 
    38    USE sbc_oce         ! Surface boundary condition: ocean fields 
    3940   USE sbcblk_phy      ! all thermodynamics functions, rho_air, q_sat, etc... !LB 
    4041 
     
    4243   PRIVATE 
    4344 
    44    PUBLIC :: TURB_NCAR   ! called by sbcblk.F90 
     45   PUBLIC ::   TURB_NCAR   ! called by sbcblk.F90 
    4546 
    4647   INTEGER , PARAMETER ::   nb_itt = 5        ! number of itterations 
     
    5253      &                  Cd, Ch, Ce, t_zu, q_zu, U_blk,      & 
    5354      &                  Cdn, Chn, Cen                       ) 
    54       !!---------------------------------------------------------------------- 
     55      !!---------------------------------------------------------------------------------- 
    5556      !!                      ***  ROUTINE  turb_ncar  *** 
    5657      !! 
Note: See TracChangeset for help on using the changeset viewer.