3 |
|
|
4 |
#include "THSICE_OPTIONS.h" |
#include "THSICE_OPTIONS.h" |
5 |
|
|
6 |
SUBROUTINE THSICE_ALBEDO(hi,hs,Tsf,age,albedo) |
CBOP |
7 |
|
C !ROUTINE: THSICE_READPARMS |
8 |
|
C !INTERFACE: |
9 |
|
SUBROUTINE THSICE_ALBEDO( |
10 |
|
I hi, hs, Tsf, age, |
11 |
|
O albedo, |
12 |
|
I myThid ) |
13 |
|
|
14 |
|
C !DESCRIPTION: \bv |
15 |
C *==========================================================* |
C *==========================================================* |
16 |
C | S/R THSICE_ALBEDO |
C | S/R THSICE_ALBEDO |
17 |
C *==========================================================* |
C *==========================================================* |
18 |
C | Compute surface albedo |
C | Compute surface albedo |
19 |
C *==========================================================* |
C *==========================================================* |
20 |
|
C \ev |
21 |
|
|
22 |
|
C !USES: |
23 |
IMPLICIT NONE |
IMPLICIT NONE |
24 |
|
|
25 |
C == Global data == |
C == Global data == |
26 |
|
#include "EEPARAMS.h" |
27 |
#include "THSICE_PARAMS.h" |
#include "THSICE_PARAMS.h" |
28 |
|
|
29 |
|
C !INPUT/OUTPUT PARAMETERS: |
30 |
C == Routine Arguments == |
C == Routine Arguments == |
31 |
_RL hi ! ice height |
_RL hi ! ice height |
32 |
_RL hs ! snow height |
_RL hs ! snow height |
33 |
_RL Tsf ! surface temperature |
_RL Tsf ! surface temperature |
34 |
_RL age ! snow age |
_RL age ! snow age |
35 |
_RL albedo ! surface albedo |
_RL albedo ! surface albedo |
36 |
|
INTEGER myThid |
37 |
|
CEOP |
38 |
|
|
39 |
#ifdef ALLOW_THSICE |
#ifdef ALLOW_THSICE |
40 |
C == Local variables == |
C == Local variables == |
42 |
C albsno :: albedo of snow |
C albsno :: albedo of snow |
43 |
C albice :: albedo of ice |
C albice :: albedo of ice |
44 |
C albNewSnow :: albedo of new (fresh) snow |
C albNewSnow :: albedo of new (fresh) snow |
45 |
_RL frsnow |
c _RL frsnow |
46 |
_RL albsno, albice |
_RL albsno, albice |
47 |
_RL albNewSnow |
_RL albNewSnow |
48 |
|
|