/[MITgcm]/MITgcm/model/src/ini_masks_etc.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_masks_etc.F

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

revision 1.7 by cnh, Tue Sep 8 01:37:49 1998 UTC revision 1.8 by cnh, Tue Sep 29 18:50:57 1998 UTC
# Line 49  C         Inverse of depth Line 49  C         Inverse of depth
49         ENDDO         ENDDO
50        ENDDO        ENDDO
51        _EXCH_XY_R4(   recip_H, myThid )        _EXCH_XY_R4(   recip_H, myThid )
52          IF ( myThid .EQ. 1 ) WRITE(0,*) 'AAAA'
53    
54  C     Calculate lopping factor hFacC  C     Calculate lopping factor hFacC
55        DO bj=myByLo(myThid), myByHi(myThid)        DO bj=myByLo(myThid), myByHi(myThid)
# Line 99  C Impose minimum size (dimensional) Line 100  C Impose minimum size (dimensional)
100          ENDDO          ENDDO
101         ENDDO         ENDDO
102        ENDDO        ENDDO
103          IF ( myThid .EQ. 1 ) WRITE(0,*) 'BBBB'
104        _EXCH_XYZ_R4(hFacC , myThid )        _EXCH_XYZ_R4(hFacC , myThid )
105          IF ( myThid .EQ. 1 ) WRITE(0,*) 'CCCC'
106        _EXCH_XY_R4( depthInK, myThid )        _EXCH_XY_R4( depthInK, myThid )
107    
108          IF ( myThid .EQ. 1 ) WRITE(0,*) 'DDDD'
109        CALL PLOT_FIELD_XYRS( depthInK, 'Model Depths K Index' , 1, myThid )        CALL PLOT_FIELD_XYRS( depthInK, 'Model Depths K Index' , 1, myThid )
110    
111  C     hFacW and hFacS (at U and V points)  C     hFacW and hFacS (at U and V points)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22