/[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.3 by jmc, Wed Apr 7 23:40:34 2004 UTC revision 1.4 by jmc, Thu Apr 8 18:54:26 2004 UTC
# Line 91  C     TFrzOce   :: sea-water freezing te Line 91  C     TFrzOce   :: sea-water freezing te
91    
92        LOGICAL dBug        LOGICAL dBug
93    
       dBug = .FALSE.  
94   1010 FORMAT(A,1P4E11.3)   1010 FORMAT(A,1P4E11.3)
95          dBug = .FALSE.
96    C-    Initialise flxAtm
97           DO j = 1-Oly, sNy+Oly
98            DO i = 1-Olx, sNx+Olx
99              flxAtm(i,j) = 0.
100            ENDDO
101           ENDDO
102    
103        IF ( buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN        IF ( buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN
104         DO j = jMin, jMax         DO j = jMin, jMax
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22