/[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.2 by jmc, Wed Apr 7 23:40:34 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 "THSICE_PARAMS.h"  #include "THSICE_PARAMS.h"
27    
28    C     !INPUT/OUTPUT PARAMETERS:
29  C     == Routine Arguments ==  C     == Routine Arguments ==
30        _RL  hi                  ! ice height        _RL  hi                  ! ice height
31        _RL  hs                  ! snow height        _RL  hs                  ! snow height
32        _RL  Tsf                 ! surface temperature        _RL  Tsf                 ! surface temperature
33        _RL  age                 ! snow age        _RL  age                 ! snow age
34        _RL  albedo              ! surface albedo        _RL  albedo              ! surface albedo
35          INTEGER myThid
36    CEOP
37    
38  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
39  C     == Local variables ==  C     == Local variables ==
# Line 27  C     frsnow     :: fractional snow cove Line 41  C     frsnow     :: fractional snow cove
41  C     albsno     :: albedo of snow  C     albsno     :: albedo of snow
42  C     albice     :: albedo of ice  C     albice     :: albedo of ice
43  C     albNewSnow :: albedo of new (fresh) snow  C     albNewSnow :: albedo of new (fresh) snow
44        _RL  frsnow  c     _RL  frsnow
45        _RL albsno, albice        _RL albsno, albice
46        _RL albNewSnow        _RL albNewSnow
47    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22