/[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.34 by jmc, Mon Apr 22 19:35:51 2013 UTC revision 1.35 by jmc, Tue Apr 23 16:34:24 2013 UTC
# Line 150  C Note: will inline this S/R once thSIce Line 150  C Note: will inline this S/R once thSIce
150  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
151          IF ( useBulkforce ) THEN          IF ( useBulkforce ) THEN
152           CALL THSICE_GET_PRECIP(           CALL THSICE_GET_PRECIP(
153       I                  iceMask,       I                  iceMask, tOceMxL,
154       O                  prcAtm(1-OLx,1-OLy,bi,bj),       O                  prcAtm(1-OLx,1-OLy,bi,bj),
155       O                  snowPrc(1-OLx,1-OLy,bi,bj),       O                  snowPrc(1-OLx,1-OLy,bi,bj), qPrcRn,
156       O                  icFlxSW(1-OLx,1-OLy,bi,bj),       O                  icFlxSW(1-OLx,1-OLy,bi,bj),
157       I                  iMin,iMax,jMin,jMax, bi,bj, myThid )       I                  iMin,iMax,jMin,jMax, bi,bj, myThid )
158          ENDIF          ENDIF
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22