/[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.13 by adcroft, Wed Dec 9 16:11:52 1998 UTC revision 1.14 by adcroft, Thu Dec 10 00:16:16 1998 UTC
# Line 50  C         Inverse of depth Line 50  C         Inverse of depth
50         ENDDO         ENDDO
51        ENDDO        ENDDO
52        _EXCH_XY_R4(   recip_H, myThid )        _EXCH_XY_R4(   recip_H, myThid )
       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 100  C Impose minimum size (dimensional) Line 99  C Impose minimum size (dimensional)
99          ENDDO          ENDDO
100         ENDDO         ENDDO
101        ENDDO        ENDDO
       IF ( myThid .EQ. 1 ) WRITE(0,*) 'BBBB'  
102        _EXCH_XYZ_R4(hFacC , myThid )        _EXCH_XYZ_R4(hFacC , myThid )
       IF ( myThid .EQ. 1 ) WRITE(0,*) 'CCCC'  
103        _EXCH_XY_R4( depthInK, myThid )        _EXCH_XY_R4( depthInK, myThid )
104    
       IF ( myThid .EQ. 1 ) WRITE(0,*) 'DDDD'  
105        CALL PLOT_FIELD_XYRS( depthInK,        CALL PLOT_FIELD_XYRS( depthInK,
106       & 'Model Depths K Index' , 1, myThid )       & 'Model Depths K Index' , 1, myThid )
107    
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22