/[MITgcm]/MITgcm/pkg/streamice/streamice_check.F
ViewVC logotype

Diff of /MITgcm/pkg/streamice/streamice_check.F

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

revision 1.4 by dgoldberg, Sun Oct 12 13:27:31 2014 UTC revision 1.5 by dgoldberg, Sun Oct 12 21:55:02 2014 UTC
# Line 289  C    write init_thickness array to a bin Line 289  C    write init_thickness array to a bin
289  !        CALL WRITE_FLD_XY_RL ( "ssurf_el_streamice", "init",  !        CALL WRITE_FLD_XY_RL ( "ssurf_el_streamice", "init",
290  !      & surf_el_streamice, 0, myThid )  !      & surf_el_streamice, 0, myThid )
291    
292       !  DO m=1,4  !       DO m=1,4
293       !   DO n=1,4  !        DO n=1,4
294       !    DO k=1,2  !         DO k=1,2
295       !     WRITE(fname,'(A,I1,A,I1,A,I1)')  !          WRITE(fname,'(A,I1,A,I1,A,I1)')
296       !&     "Dphi_", m, "_", n, "_", k  !     &     "Dphi_", m, "_", n, "_", k
297       !     CALL WRITE_FLD_XY_RL (fname, "",  !          CALL WRITE_FLD_XY_RL (fname, "",
298       !&     Dphi(:,:,:,:,m,n,k),0,myThid)  !     &     Dphi(:,:,:,:,m,n,k),0,myThid)
299       !    ENDDO  !         ENDDO
300       !   ENDDO  !        ENDDO
301       !  ENDDO  !       ENDDO
302    
303         CALL WRITE_FLD_XY_RL ( "k1AtC_str", "out",         CALL WRITE_FLD_XY_RL ( "k1AtC_str", "out",
304       & k1AtC_str, 0, myThid )       & k1AtC_str, 0, myThid )
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22