/[MITgcm]/MITgcm_contrib/jscott/pkg_atm2d/pass_seaice_fluxes.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/pkg_atm2d/pass_seaice_fluxes.F

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

revision 1.2 by jscott, Tue Aug 22 20:21:39 2006 UTC revision 1.3 by jscott, Tue May 1 19:38:47 2007 UTC
# Line 33  C     LOCAL VARIABLES: Line 33  C     LOCAL VARIABLES:
33        DO j=1, sNy        DO j=1, sNy
34          DO i=1, sNx          DO i=1, sNx
35                    
 CJRS ask J-M about next lines  
36            icFlxAtm(i,j,1,1) = -qneti_2D(i,j)            icFlxAtm(i,j,1,1) = -qneti_2D(i,j)
37            icFlxSw(i,j,1,1) = - solarinc_2D(i,j) !at this point, incident SW            icFlxSw(i,j,1,1) = - solarinc_2D(i,j) !at this point, incident SW
38            dFdT(i,j,1,1) = - dFdT_ice_2D(i,j)            dFdT(i,j,1,1) = - dFdT_ice_2D(i,j)
39    
40  C         Note converted to ice model sign convention below  C         Note converion to ice model sign convention below
41            sum_prcIce(i,j) = sum_prcIce(i,j) -  precipi_2D(i,j)*rhofw              sum_prcIce(i,j) = sum_prcIce(i,j) -  precipi_2D(i,j)*rhofw  
42            sum_evapIce(i,j) = sum_evapIce(i,j) -  evapi_2D(i,j)*rhofw              sum_evapIce(i,j) = sum_evapIce(i,j) -  evapi_2D(i,j)*rhofw  
43            IF (Tair_2D(i,j) .LE. 0. _d 0)                IF (Tair_2D(i,j) .LE. 0. _d 0)    
44       &      sum_snowPrc(i,j) = sum_snowPrc(i,j) -  precipi_2D(i,j)*rhofw       &      sum_snowPrc(i,j) = sum_snowPrc(i,j) -  precipi_2D(i,j)*rhofw
45    
46  C          IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN  C          IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
47  C            PRINT *,'Pass seaice fluxes at, T :',i,j,Tair_2D(i,j)  C            PRINT *,'Pass seaice fluxes at, T :',i,j,Tair_2D(i,j)
48  C            PRINT *,precipi_2D(i,j),sum_snowPrc(i,j)  C            PRINT *,precipi_2D(i,j),sum_snowPrc(i,j)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22