ocean_forced_mod Module

1D case

SUBROUTINE read_tsurf1d(knon,sst_out)

This subroutine specifies the surface temperature to be used in 1D simulations

  USE dimphy, ONLY : klon

  INTEGER, INTENT(IN)                  :: knon     ! nomber of points on compressed grid
  REAL, DIMENSION(klon), INTENT(OUT)   :: sst_out  ! tsurf used to force the single-column model

   INTEGER :: i

COMMON defined in lmdz1d.F: real ts_cur common /sst_forcing/ts_cur

   DO i = 1, knon
    sst_out(i) = ts_cur
   ENDDO

  END SUBROUTINE read_tsurf1d

Contents

Subroutines


Subroutines

public subroutine ocean_forced_noice(itime, dtime, jour, knon, knindex, p1lay, cdragh, cdragq, cdragm, precip_rain, precip_snow, temp_air, spechum, AcoefH, AcoefQ, BcoefH, BcoefQ, AcoefU, AcoefV, BcoefU, BcoefV, ps, u1, v1, gustiness, tsurf_in, radsol, snow, agesno, qsurf, evap, fluxsens, fluxlat, flux_u1, flux_v1, tsurf_new, dflux_s, dflux_l, sens_prec_liq, rhoa, dthetadz300, pctsrf, Ampl)

1)
Read sea-surface temperature from file limit.nc

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itime
real, intent(in) :: dtime
integer, intent(in) :: jour
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: knindex
real, intent(in), DIMENSION(klon) :: p1lay
real, intent(in), DIMENSION(klon) :: cdragh
real, intent(in), DIMENSION(klon) :: cdragq
real, intent(in), DIMENSION(klon) :: cdragm
real, intent(in), DIMENSION(klon) :: precip_rain
real, intent(in), DIMENSION(klon) :: precip_snow
real, intent(in), DIMENSION(klon) :: temp_air
real, intent(in), DIMENSION(klon) :: spechum
real, intent(in), DIMENSION(klon) :: AcoefH
real, intent(in), DIMENSION(klon) :: AcoefQ
real, intent(in), DIMENSION(klon) :: BcoefH
real, intent(in), DIMENSION(klon) :: BcoefQ
real, intent(in), DIMENSION(klon) :: AcoefU
real, intent(in), DIMENSION(klon) :: AcoefV
real, intent(in), DIMENSION(klon) :: BcoefU
real, intent(in), DIMENSION(klon) :: BcoefV
real, intent(in), DIMENSION(klon) :: ps
real, intent(in), DIMENSION(klon) :: u1
real, intent(in), DIMENSION(klon) :: v1
real, intent(in), DIMENSION(klon) :: gustiness
real, intent(in), DIMENSION(klon) :: tsurf_in
real, intent(inout), DIMENSION(klon) :: radsol
real, intent(inout), DIMENSION(klon) :: snow
real, intent(inout), DIMENSION(klon) :: agesno Read more…
real, intent(out), DIMENSION(klon) :: qsurf
real, intent(out), DIMENSION(klon) :: evap
real, intent(out), DIMENSION(klon) :: fluxsens
real, intent(out), DIMENSION(klon) :: fluxlat
real, intent(out), DIMENSION(klon) :: flux_u1
real, intent(out), DIMENSION(klon) :: flux_v1
real, intent(out), DIMENSION(klon) :: tsurf_new
real, intent(out), DIMENSION(klon) :: dflux_s
real, intent(out), DIMENSION(klon) :: dflux_l
real, intent(out) :: sens_prec_liq(:)
real, intent(in) :: rhoa(:)
real, intent(in), DIMENSION(klon) :: dthetadz300
real, intent(in), DIMENSION(klon,nbsrf) :: pctsrf Read more…
real, intent(out), DIMENSION(klon) :: Ampl Read more…

public subroutine ocean_forced_ice(itime, dtime, jour, knon, knindex, tsurf_in, p1lay, cdragh, cdragm, precip_rain, precip_snow, temp_air, spechum, AcoefH, AcoefQ, BcoefH, BcoefQ, AcoefU, AcoefV, BcoefU, BcoefV, ps, u1, v1, gustiness, pctsrf, radsol, snow, qsol, agesno, tsoil, qsurf, alb1_new, alb2_new, evap, fluxsens, fluxlat, flux_u1, flux_v1, tsurf_new, dflux_s, dflux_l, rhoa, swnet, hice, tice, bilg_cumul, fcds, fcdi, dh_basal_growth, dh_basal_melt, dh_top_melt, dh_snow2sic, dtice_melt, dtice_snow2sic)

1) Flux calculation : tsurf_new, evap, fluxlat, fluxsens, flux_u1, flux_v1 dflux_s, dflux_l and qsurf

Read more…

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: itime
real, intent(in) :: dtime
integer, intent(in) :: jour
integer, intent(in) :: knon
integer, intent(in), DIMENSION(klon) :: knindex
real, intent(in), DIMENSION(klon) :: tsurf_in
real, intent(in), DIMENSION(klon) :: p1lay
real, intent(in), DIMENSION(klon) :: cdragh
real, intent(in), DIMENSION(klon) :: cdragm
real, intent(in), DIMENSION(klon) :: precip_rain
real, intent(in), DIMENSION(klon) :: precip_snow
real, intent(in), DIMENSION(klon) :: temp_air
real, intent(in), DIMENSION(klon) :: spechum
real, intent(in), DIMENSION(klon) :: AcoefH
real, intent(in), DIMENSION(klon) :: AcoefQ
real, intent(in), DIMENSION(klon) :: BcoefH
real, intent(in), DIMENSION(klon) :: BcoefQ
real, intent(in), DIMENSION(klon) :: AcoefU
real, intent(in), DIMENSION(klon) :: AcoefV
real, intent(in), DIMENSION(klon) :: BcoefU
real, intent(in), DIMENSION(klon) :: BcoefV
real, intent(in), DIMENSION(klon) :: ps
real, intent(in), DIMENSION(klon) :: u1
real, intent(in), DIMENSION(klon) :: v1
real, intent(in), DIMENSION(klon) :: gustiness
real, intent(in), DIMENSION(klon,nbsrf) :: pctsrf Read more…
real, intent(inout), DIMENSION(klon) :: radsol
real, intent(inout), DIMENSION(klon) :: snow
real, intent(inout), DIMENSION(klon) :: qsol
real, intent(inout), DIMENSION(klon) :: agesno
real, intent(inout), DIMENSION(klon, nsoilmx) :: tsoil
real, intent(out), DIMENSION(klon) :: qsurf
real, intent(out), DIMENSION(klon) :: alb1_new
real, intent(out), DIMENSION(klon) :: alb2_new
real, intent(out), DIMENSION(klon) :: evap
real, intent(out), DIMENSION(klon) :: fluxsens
real, intent(out), DIMENSION(klon) :: fluxlat
real, intent(out), DIMENSION(klon) :: flux_u1
real, intent(out), DIMENSION(klon) :: flux_v1
real, intent(out), DIMENSION(klon) :: tsurf_new
real, intent(out), DIMENSION(klon) :: dflux_s Read more…
real, intent(out), DIMENSION(klon) :: dflux_l Read more…
real, intent(in) :: rhoa(:)
real, intent(in), DIMENSION(klon) :: swnet
real, intent(inout), DIMENSION(klon) :: hice
real, intent(inout), DIMENSION(klon) :: tice
real, intent(inout), DIMENSION(klon) :: bilg_cumul
real, intent(inout), DIMENSION(klon) :: fcds
real, intent(inout), DIMENSION(klon) :: fcdi
real, intent(inout), DIMENSION(klon) :: dh_basal_growth
real, intent(inout), DIMENSION(klon) :: dh_basal_melt
real, intent(inout), DIMENSION(klon) :: dh_top_melt
real, intent(inout), DIMENSION(klon) :: dh_snow2sic
real, intent(inout), DIMENSION(klon) :: dtice_melt
real, intent(inout), DIMENSION(klon) :: dtice_snow2sic Read more…