Changeset 12039 for NEMO/branches
- Timestamp:
- 2019-12-03T15:42:31+01:00 (4 years ago)
- 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 149 149 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: e3t_m !: mean (nn_fsbc time-step) sea surface layer thickness [m] 150 150 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-layer154 !!----------------------------------------------------------------------155 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tsk !: sea-surface skin temperature [K] (ln_skin_cs==T or ln_skin_wl==T)156 157 151 158 152 !! * Substitutions -
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk.F90
r12038 r12039 142 142 !!------------------------------------------------------------------- 143 143 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 ) 145 145 ! 146 146 CALL mpp_sum ( 'sbcblk', sbc_blk_alloc ) … … 364 364 CALL fld_read( kt, nn_fsbc, sf ) ! input fields provided at the current time-step 365 365 ! 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 368 367 IF( MOD( kt - 1, nn_fsbc ) == 0 ) CALL blk_oce( kt, sf, sst_m, ssu_m, ssv_m ) 369 368 -
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_ncar.F90
r11963 r12039 26 26 USE dom_oce ! ocean space and time domain 27 27 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 ! 28 34 USE iom ! I/O manager library 29 35 USE lib_mpp ! distribued memory computing library 30 36 USE in_out_manager ! I/O manager 31 37 USE prtctl ! Print control 32 USE sbcwave, ONLY : cdn_wave ! wave module33 #if defined key_si3 || defined key_cice34 USE sbc_ice ! Surface boundary condition: ice fields35 #endif36 38 USE lib_fortran ! to use key_nosignedzero 37 39 38 USE sbc_oce ! Surface boundary condition: ocean fields39 40 USE sbcblk_phy ! all thermodynamics functions, rho_air, q_sat, etc... !LB 40 41 … … 42 43 PRIVATE 43 44 44 PUBLIC :: TURB_NCAR ! called by sbcblk.F9045 PUBLIC :: TURB_NCAR ! called by sbcblk.F90 45 46 46 47 INTEGER , PARAMETER :: nb_itt = 5 ! number of itterations … … 52 53 & Cd, Ch, Ce, t_zu, q_zu, U_blk, & 53 54 & Cdn, Chn, Cen ) 54 !!---------------------------------------------------------------------- 55 !!---------------------------------------------------------------------------------- 55 56 !! *** ROUTINE turb_ncar *** 56 57 !!
Note: See TracChangeset
for help on using the changeset viewer.