/[MITgcm]/MITgcm/pkg/aim_v23/aim_do_physics.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/aim_do_physics.F

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

revision 1.20 by jmc, Thu Apr 4 02:00:25 2013 UTC revision 1.21 by jmc, Thu Apr 4 16:49:55 2013 UTC
# Line 75  C     prcAtm     :: total precip from th Line 75  C     prcAtm     :: total precip from th
75        _RL     tYear, yearLength        _RL     tYear, yearLength
76        _RL     aim_sWght0, aim_sWght1        _RL     aim_sWght0, aim_sWght1
77        _RL prcAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL prcAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
78    #ifdef ALLOW_THSICE
79          _RL qPrcRn(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
80    #endif
81    
82  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
83    
# Line 174  C       used for diagnostics, thsice pac Line 177  C       used for diagnostics, thsice pac
177  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
178          IF ( useThSIce ) THEN          IF ( useThSIce ) THEN
179  C-    Step forward sea-ice model  C-    Step forward sea-ice model
180              DO j = 1-OLy, sNy+OLy
181               DO i = 1-OLx, sNx+OLx
182                qPrcRn(i,j) = 0.
183               ENDDO
184              ENDDO
185            CALL THSICE_STEP_FWD( bi, bj, 1, sNx, 1, sNy,            CALL THSICE_STEP_FWD( bi, bj, 1, sNx, 1, sNy,
186       I                          prcAtm,       I                          prcAtm, qPrcRn,
187       I                          myTime, myIter, myThid )       I                          myTime, myIter, myThid )
188          ENDIF          ENDIF
189  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22