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

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

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

revision 1.9 by jmc, Mon Jan 31 19:37:06 2005 UTC revision 1.10 by jmc, Sun Jul 10 01:24:25 2005 UTC
# Line 89  C     TFrzOce   :: sea-water freezing te Line 89  C     TFrzOce   :: sea-water freezing te
89        _RL compact, hIce, hSnow, Tsf, Tice(nlyr), qicen(nlyr)        _RL compact, hIce, hSnow, Tsf, Tice(nlyr), qicen(nlyr)
90        _RL tmpflx(0:2), tmpdTs        _RL tmpflx(0:2), tmpdTs
91  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
92        _RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL tmpFac
       LOGICAL  DIAGNOSTICS_IS_ON  
       EXTERNAL DIAGNOSTICS_IS_ON        
93  #endif  #endif
94    
95        LOGICAL dBug        LOGICAL dBug
# Line 168  C--    Update Sea-Ice state : Line 166  C--    Update Sea-Ice state :
166    
167  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
168        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
169            tmpFac = 1. _d 0
170         IF ( DIAGNOSTICS_IS_ON('SIsnwPrc',myThid) ) THEN          CALL DIAGNOSTICS_FRACT_FILL(
171          DO j=1,sNy       I                   snowPrc,   iceMask,tmpFac,'SIsnwPrc',
172           DO i=1,sNx       I                   0,1,1,bi,bj,myThid)
           tmpFld(i,j) = iceMask(i,j,bi,bj)*snowPrc(i,j,bi,bj)  
          ENDDO  
         ENDDO  
         CALL DIAGNOSTICS_FILL(tmpFld,'SIsnwPrc',0,1,2,bi,bj,myThid)  
        ENDIF  
   
173        ENDIF        ENDIF
174  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
175    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22