Changeset 12039


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

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

Location:
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC
Files:
3 edited

Legend:

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

    r12020 r12039  
    149149   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   e3t_m     !: mean (nn_fsbc time-step) sea surface layer thickness       [m] 
    150150   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   frq_m     !: mean (nn_fsbc time-step) fraction of solar net radiation absorbed in the 1st T level [-] 
    151  
    152    !!---------------------------------------------------------------------- 
    153    !!                     Cool-skin/Warm-layer 
    154    !!---------------------------------------------------------------------- 
    155    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tsk !: sea-surface skin temperature [K] (ln_skin_cs==T or ln_skin_wl==T)  
    156  
    157151    
    158152   !! * Substitutions 
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90

    r12038 r12039  
    142142      !!------------------------------------------------------------------- 
    143143      ALLOCATE( Cd_atm (jpi,jpj), Ch_atm (jpi,jpj), Ce_atm (jpi,jpj), t_zu(jpi,jpj), q_zu(jpi,jpj), & 
    144          &      cdn_oce(jpi,jpj), chn_oce(jpi,jpj), cen_oce(jpi,jpj), tsk (jpi,jpj), STAT=sbc_blk_alloc ) 
     144         &      cdn_oce(jpi,jpj), chn_oce(jpi,jpj), cen_oce(jpi,jpj), STAT=sbc_blk_alloc ) 
    145145      ! 
    146146      CALL mpp_sum ( 'sbcblk', sbc_blk_alloc ) 
     
    364364      CALL fld_read( kt, nn_fsbc, sf )             ! input fields provided at the current time-step 
    365365      ! 
    366       IF( kt == nit000 ) tsk(:,:) = sst_m(:,:)*tmask(:,:,1)  ! no previous estimate of skin temperature => using bulk SST (use restart?) 
    367       !                                                      ! compute the surface ocean fluxes using bulk formulea 
     366      !                                            ! compute the surface ocean fluxes using bulk formulea 
    368367      IF( MOD( kt - 1, nn_fsbc ) == 0 )   CALL blk_oce( kt, sf, sst_m, ssu_m, ssv_m ) 
    369368 
  • 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.