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

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

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

revision 1.4 by jmc, Fri May 18 02:45:43 2007 UTC revision 1.5 by jmc, Thu May 31 15:19:49 2007 UTC
# Line 16  C     !INTERFACE: Line 16  C     !INTERFACE:
16  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
17  C     *==========================================================*  C     *==========================================================*
18  C     | S/R  THSICE_MAP_EXF  C     | S/R  THSICE_MAP_EXF
19  C     | Interface S/R : map Precip, Snow and shortwave fluxes  C     | Interface S/R : map Precip, Snow and shortwave fluxes
20  C     |                 from pkg EXF to thsice variables  C     |                 from pkg EXF to thsice variables
21  C     *==========================================================*  C     *==========================================================*
22  C     \ev  C     \ev
# Line 40  C     === Routine arguments === Line 40  C     === Routine arguments ===
40  C     iceMsk    :: sea-ice fraction: no ice=0, grid all ice 1  []  C     iceMsk    :: sea-ice fraction: no ice=0, grid all ice 1  []
41  C     totPrc    :: Total Precipitation (including run-off) [kg/m2/s]  C     totPrc    :: Total Precipitation (including run-off) [kg/m2/s]
42  C     snowPrc   :: Snow Precipitation [kg/m2/s]  C     snowPrc   :: Snow Precipitation [kg/m2/s]
43  C     flxSW     :: Net short-wave surface flux (+=down) [W/m2]  C     flxSW     :: Downward short-wave surface flux (+=down) [W/m2]
44  C     iMin,iMax :: range of indices of computation domain  C     iMin,iMax :: range of indices of computation domain
45  C     jMin,jMax :: range of indices of computation domain  C     jMin,jMax :: range of indices of computation domain
46  C     bi,bj     :: current tile indices  C     bi,bj     :: current tile indices
# Line 72  C     i,j   :: current grid point indice Line 72  C     i,j   :: current grid point indice
72  #else  #else
73          STOP 'ABNORMAL END: S/R THSICE_MAP_EXF: ALLOW_RUNOFF undef'          STOP 'ABNORMAL END: S/R THSICE_MAP_EXF: ALLOW_RUNOFF undef'
74  #endif  #endif
 CML           flxSW (i,j) = -Qsw(i,j,bi,bj)  
75  #ifdef ALLOW_DOWNWARD_RADIATION  #ifdef ALLOW_DOWNWARD_RADIATION
76          flxSW (i,j) = swdown(i,j,bi,bj)          flxSW (i,j) = swdown(i,j,bi,bj)
77  #else  #else
78        STOP 'ABNORMAL END: S/R THSICE_MAP_EXF: DOWNWARD_RADIATION undef'        STOP 'ABNORMAL END: S/R THSICE_MAP_EXF: DOWNWARD_RADIATION undef'
79  #endif  #endif
80         ENDDO         ENDDO
81        ENDDO        ENDDO
82          
83  #ifdef ALLOW_ATM_TEMP  #ifdef ALLOW_ATM_TEMP
84        IF ( snowPrecipFile .NE. ' ' ) THEN        IF ( snowPrecipFile .NE. ' ' ) THEN
85         DO j = jMin, jMax         DO j = jMin, jMax
# Line 89  CML           flxSW (i,j) = -Qsw(i,j,bi, Line 88  CML           flxSW (i,j) = -Qsw(i,j,bi,
88          ENDDO          ENDDO
89         ENDDO         ENDDO
90        ELSE        ELSE
91  C     If specific snow precipitiation is now available, use  C     If specific snow precipitiation is now available, use
92  C     precipitation when ever the air temperature is below 0 degC  C     precipitation when ever the air temperature is below 0 degC
93         DO j = jMin, jMax         DO j = jMin, jMax
94          DO i = iMin, iMax          DO i = iMin, iMax
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22