!||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| module forcing_fields 11,3 !BOP ! !MODULE: forcing_fields ! !DESCRIPTION: ! Contains the forcing fields necessary for supporting high-level coupling. ! These fields originally resided in modules forcing and forcing_coupled. ! !REVISION HISTORY: ! SVN:$Id$ ! ! !USES: use kinds_mod use blocks, only: nx_block, ny_block use constants, only: c0 use domain_size, only: max_blocks_clinic,nt implicit none save !EOP !BOC ! !PUBLIC DATA MEMBERS: real (r8), dimension(nx_block,ny_block,max_blocks_clinic),public :: & EVAP_F = c0, &! evaporation flux from cpl (kg/m2/s) PREC_F = c0, &! precipitation flux from cpl (kg/m2/s) ! (rain + snow) SNOW_F = c0, &! snow flux from cpl (kg/m2/s) MELT_F = c0, &! melt flux from cpl (kg/m2/s) ROFF_F = c0, &! river runoff flux from cpl (kg/m2/s) IOFF_F = c0, &! ice runoff flux from cpl (kg/m2/s) SALT_F = c0, &! salt flux from cpl (kg(salt)/m2/s) SENH_F = c0, &! sensible heat flux from cpl (W/m2 ) LWUP_F = c0, &! longwave heat flux up from cpl (W/m2 ) LWDN_F = c0, &! longwave heat flux dn from cpl (W/m2 ) MELTH_F= c0 ! melt heat flux from cpl (W/m2 ) integer(kind=int_kind), public :: & ATM_CO2_PROG_nf_ind = 0, & ! bottom atm level prognostic co2 ATM_CO2_DIAG_nf_ind = 0 ! bottom atm level diagnostic co2 real (r8), dimension(nx_block,ny_block,2,max_blocks_clinic), & public, target :: & SMF, &! surface momentum fluxes (wind stress) SMFT ! surface momentum fluxes on T points if avail real (r8), dimension(nx_block,ny_block,nt,max_blocks_clinic), & public, target :: & STF, &! surface tracer fluxes TFW ! tracer content in freshwater flux logical (log_kind), public :: & lsmft_avail ! true if SMFT is an available field real (r8), dimension(nx_block,ny_block,max_blocks_clinic), & public, target :: & IFRAC, &! ice fraction; not initialized in this routine U10_SQR, &! 10m wind speed squared; not initialized in this routine ATM_PRESS, &! atmospheric pressure forcing FW,FW_OLD ! freshwater flux at T points (cm/s) ! FW_OLD is at time n-1 !*********************************************************************** end module forcing_fields !|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||