jscott/pkg_atm2d/sum_seaice_out.F

#include "ctrparam.h"
#include "ATM2D_OPTIONS.h"

C     !INTERFACE:
      SUBROUTINE SUM_SEAICE_OUT( myThid )
C     *==========================================================*
C     | Sum output from temp seaice step for passing to ocean.   |
C     *==========================================================*
        IMPLICIT NONE

#include "ATMSIZE.h"
#include "SIZE.h"
#include "GRID.h"
#include "EEPARAMS.h"

C     === Global SeaIce Variables ===
#include "THSICE_VARS.h"

C     === Atmos/Ocean/Seaice Interface Variables ===
#include "ATM2D_VARS.h"


C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
C     myThid - Thread no. that called this routine.
      INTEGER myThid

C     LOCAL VARIABLES:
      INTEGER i,j

      DO j=1, sNy
        DO i=1,sNx
        
          IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN
            sum_sHeat(i,j) = sum_sHeat(i,j) + sHeating(i,j,1,1)
            sum_flxCnB(i,j)= sum_flxCnB(i,j) + flxCndBt(i,j,1,1)

C Add contribution of SW passing through ice
C note sign convention of sum_solarnet is +=up, opposite of ice model
            sum_solarnet(i,j)= sum_solarnet(i,j)
     &                  - icFlxSW(i,j,1,1)*iceMask(i,j,1,1)
          ENDIF
          
        ENDDO
      ENDDO  


      RETURN
      END
1	jscott	1.1	#include "ctrparam.h"
2			#include "ATM2D_OPTIONS.h"
3
4			C !INTERFACE:
5			SUBROUTINE SUM_SEAICE_OUT( myThid )
6			C ==========================================================
7	jscott	1.3	C \| Sum output from temp seaice step for passing to ocean. \|
8	jscott	1.1	C ==========================================================
9			IMPLICIT NONE
10
11			#include "ATMSIZE.h"
12			#include "SIZE.h"
13			#include "GRID.h"
14			#include "EEPARAMS.h"
15
16			C === Global SeaIce Variables ===
17			#include "THSICE_VARS.h"
18
19			C === Atmos/Ocean/Seaice Interface Variables ===
20			#include "ATM2D_VARS.h"
21
22
23			C !INPUT/OUTPUT PARAMETERS:
24			C === Routine arguments ===
25			C myThid - Thread no. that called this routine.
26			INTEGER myThid
27
28			C LOCAL VARIABLES:
29			INTEGER i,j
30
31			DO j=1, sNy
32			DO i=1,sNx
33
34	jscott	1.2	IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN
35	jscott	1.1	sum_sHeat(i,j) = sum_sHeat(i,j) + sHeating(i,j,1,1)
36			sum_flxCnB(i,j)= sum_flxCnB(i,j) + flxCndBt(i,j,1,1)
37
38			C Add contribution of SW passing through ice
39			C note sign convention of sum_solarnet is +=up, opposite of ice model
40			sum_solarnet(i,j)= sum_solarnet(i,j)
41			& - icFlxSW(i,j,1,1)*iceMask(i,j,1,1)
42			ENDIF
43
44			ENDDO
45			ENDDO
46
47
48			RETURN
49			END