/[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.3 by dgoldberg, Thu Jul 10 15:09:40 2014 UTC revision 1.4 by dgoldberg, Sun Oct 12 13:27:31 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.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22