/[MITgcm]/MITgcm/pkg/thsice/thsice_albedo.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_albedo.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Wed Dec 31 17:44:32 2003 UTC revision 1.3 by jmc, Fri Dec 17 03:44:52 2004 UTC
# Line 3  C $Name$ Line 3  C $Name$
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 ==
# Line 27  C     frsnow     :: fractional snow cove Line 42  C     frsnow     :: fractional snow cove
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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22