106 |
c Typical range: ???? < apressure < ???? |
c Typical range: ???? < apressure < ???? |
107 |
c Input field |
c Input field |
108 |
c |
c |
109 |
|
c hs :: sensible heat flux into ocean in W/m^2 |
110 |
|
c > 0 for increase in theta (ocean warming) |
111 |
|
c |
112 |
|
c hl :: latent heat flux into ocean in W/m^2 |
113 |
|
c > 0 for increase in theta (ocean warming) |
114 |
|
c |
115 |
c |
c |
116 |
c NOTES: |
c NOTES: |
117 |
c ====== |
c ====== |
185 |
common /exfl_precip_r/ precip0, precip1 |
common /exfl_precip_r/ precip0, precip1 |
186 |
_RL precip0 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL precip0 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
187 |
_RL precip1 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL precip1 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
188 |
|
common /exfl_turb_r/ hs, hl |
189 |
|
_RL hs (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
190 |
|
_RL hl (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
191 |
#endif |
#endif |
192 |
|
|
193 |
#if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING) |
#if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING) |