/[MITgcm]/MITgcm_contrib/natl_12/code/ini_depths.F
ViewVC logotype

Diff of /MITgcm_contrib/natl_12/code/ini_depths.F

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

revision 1.1 by cnh, Tue Aug 5 21:22:43 2003 UTC revision 1.2 by cnh, Thu Aug 7 13:03:31 2003 UTC
# Line 114  C- end setup R_low in the interior Line 114  C- end setup R_low in the interior
114  C- fill in the overlap :  C- fill in the overlap :
115        _EXCH_XY_R4(R_low, myThid )        _EXCH_XY_R4(R_low, myThid )
116    
117  c     CALL PLOT_FIELD_XYRS(R_low,'Bottom depths (ini_depths)',1,myThid)        CALL PLOT_FIELD_XYRS(R_low,'Bottom depths (ini_depths)',1,myThid)
118  c     _BEGIN_MASTER( myThid )  c     _BEGIN_MASTER( myThid )
119  c     CALL WRITE_FLD_XY_RS( 'R_low' ,' ', R_low, 0,myThid)  c     CALL WRITE_FLD_XY_RS( 'R_low' ,' ', R_low, 0,myThid)
120  c     _END_MASTER(myThid)  c     _END_MASTER(myThid)
# Line 226  C         Test for northern or southern Line 226  C         Test for northern or southern
226         ENDDO         ENDDO
227        ENDDO        ENDDO
228  Ccnh  End custom code for natl_12  Ccnh  End custom code for natl_12
229          CALL PLOT_FIELD_XYRS(R_low,'Bottom depths (ini_depths after custom)',1,myThid)
230    
231  c---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  c---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
232    
# Line 268  c          IF ( jG .EQ. Ny )  R_low(i,j, Line 269  c          IF ( jG .EQ. Ny )  R_low(i,j,
269         ENDDO         ENDDO
270        ENDIF        ENDIF
271    
272          CALL PLOT_FIELD_XYRS(R_low,'Bottom depths (ini_depths routine end)',1,myThid)
273    
274  c     _BEGIN_MASTER( myThid )  c     _BEGIN_MASTER( myThid )
275  c     CALL WRITE_FLD_XY_RS('Ro_surf',' ',Ro_surf,0,myThid)  c     CALL WRITE_FLD_XY_RS('Ro_surf',' ',Ro_surf,0,myThid)
276  c     _END_MASTER(myThid)  c     _END_MASTER(myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22