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

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

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

revision 1.5 by jmc, Fri Feb 11 19:33:59 2005 UTC revision 1.6 by jmc, Sun Jan 22 15:58:39 2006 UTC
# Line 29  C     === Global variables === Line 29  C     === Global variables ===
29  #include "FFIELDS.h"  #include "FFIELDS.h"
30  #include "THSICE_PARAMS.h"  #include "THSICE_PARAMS.h"
31  #include "THSICE_VARS.h"  #include "THSICE_VARS.h"
 #ifdef ALLOW_BULK_FORCE  
 #include "BULKF.h"  
 #endif  
32    
33  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
34  C     === Routine arguments ===  C     === Routine arguments ===
# Line 130  C--     Mixed layer thickness: take the Line 127  C--     Mixed layer thickness: take the
127             flxSW (i,j) = 0.             flxSW (i,j) = 0.
128             snowPrc(i,j,bi,bj) = 0. _d 0             snowPrc(i,j,bi,bj) = 0. _d 0
129             siceAlb(i,j,bi,bj) = 0. _d 0             siceAlb(i,j,bi,bj) = 0. _d 0
 #ifdef ALLOW_BULK_FORCE  
            prcAtm(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw  
            flxSW (i,j) = solar(i,j,bi,bj)  
            IF ( iceMask(i,j,bi,bj).GT.0. _d 0  
      &       .AND. Tair(i,j,bi,bj).LE.Tf0kel )  THEN  
              snowPrc(i,j,bi,bj) = rain(i,j,bi,bj)*rhofw  
            ENDIF  
 #endif  
130            ENDDO            ENDDO
131           ENDDO           ENDDO
132    #ifdef ALLOW_BULK_FORCE
133             IF ( useBulkforce ) THEN
134               CALL THSICE_GET_PRECIP(
135         I                  iceMask,
136         O                  prcAtm, snowPrc(1-Olx,1-Oly,bi,bj), flxSW,
137         I                  iMin,iMax,jMin,jMax, bi,bj, myThid )
138             ENDIF
139    #endif
140    
141           CALL THSICE_STEP_FWD(           CALL THSICE_STEP_FWD(
142       I                     bi, bj, iMin, iMax, jMin, jMax,       I                     bi, bj, iMin, iMax, jMin, jMax,
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22