Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
lksourc | Module: LAKES | File: LAKES.f |
Author : Gary Russell/Gavin Schmidt
Version:
Declaration:
subroutine lksourc (i0, j0, roice, mlake, elake, run0, fodt, fidt, srox, fsr2, evapo, enrgfo, acefo, acefi, enrgfi)
- qcheck : used from model_com
- write_parallel : used from domain_decomp_atm
- elake :
real*8, intent(inout), dimension(2)
- mass and energy in lake layers (kg,J /m^2)
- mlake :
real*8, intent(inout), dimension(2)
- mass and energy in lake layers (kg,J /m^2)
- i0 :
integer, intent(in)
- j0 :
integer, intent(in)
- roice :
real*8, intent(in)
- evapo :
real*8, intent(in)
- run0 :
real*8, intent(in)
- fodt :
real*8, intent(in)
- fidt :
real*8, intent(in)
- srox :
real*8, intent(in), dimension(2)
- emin :
real*8, parameter
- min energy deficit required before ice forms (J/m^2)
Initial Value= -1d-10
- enrgfo :
real*8, intent(out)
- acefo :
real*8, intent(out)
- enrgfi :
real*8, intent(out)
- acefi :
real*8, intent(out)
- enrgf1 :
real*8
- acef1 :
real*8
- enrgf2 :
real*8
- acef2 :
real*8
- fho :
real*8
- fhi :
real*8
- fh0 :
real*8
- fh1 :
real*8
- fh2 :
real*8
- fsr2 :
real*8
- enrgi :
real*8
- enrgi2 :
real*8
- enrgo :
real*8
- enrgo2 :
real*8
- runo :
real*8
- runi :
real*8
- tlk2 :
real*8
- dm2 :
real*8
- dh2 :
real*8
- out_line :
character(len=300)
- local variable to hold mixed-type output for parallel I/O
- frato :
real*8
- frati :
real*8
- e2o :
real*8
- e2i :
real*8