/[MITgcm]/MITgcm/pkg/seaice/seaice_obcs_output.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_obcs_output.F

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

revision 1.3 by jmc, Tue Oct 11 02:05:25 2011 UTC revision 1.4 by jmc, Fri Mar 24 23:53:17 2017 UTC
# Line 48  c     INTEGER  ILNBLNK Line 48  c     INTEGER  ILNBLNK
48  c     EXTERNAL ILNBLNK  c     EXTERNAL ILNBLNK
49    
50  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
51          CHARACTER*(10) suff
52        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
53        INTEGER prec        INTEGER prec
54    
# Line 60  C--   Write OB aray to binary files (mai Line 61  C--   Write OB aray to binary files (mai
61    
62         _BARRIER         _BARRIER
63          prec = writeBinaryPrec          prec = writeBinaryPrec
64    c       IF ( rwSuffixType.EQ.0 ) THEN
65              WRITE(suff,'(I10.10)') myIter
66    c       ELSE
67    c         CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid )
68    c       ENDIF
69    
70  C     Write Sea-Ice OB arrays  C     Write Sea-Ice OB arrays
71  # ifdef ALLOW_OBCS_NORTH  # ifdef ALLOW_OBCS_NORTH
72          WRITE(fn,'(A,I10.10)') 'seaice_ob_N.', myIter          WRITE(fn,'(2A)') 'seaice_ob_N.', suff
73          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNa,    1,myIter,myThid)          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNa,    1,myIter,myThid)
74          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNh,    2,myIter,myThid)          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNh,    2,myIter,myThid)
75          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNsl,   3,myIter,myThid)          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNsl,   3,myIter,myThid)
# Line 72  C     Write Sea-Ice OB arrays Line 78  C     Write Sea-Ice OB arrays
78          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNvice, 6,myIter,myThid)          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBNvice, 6,myIter,myThid)
79  # endif  # endif
80  # ifdef ALLOW_OBCS_SOUTH  # ifdef ALLOW_OBCS_SOUTH
81          WRITE(fn,'(A,I10.10)') 'seaice_ob_S.', myIter          WRITE(fn,'(2A)') 'seaice_ob_S.', suff
82          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSa,    1,myIter,myThid)          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSa,    1,myIter,myThid)
83          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSh,    2,myIter,myThid)          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSh,    2,myIter,myThid)
84          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSsl,   3,myIter,myThid)          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSsl,   3,myIter,myThid)
# Line 81  C     Write Sea-Ice OB arrays Line 87  C     Write Sea-Ice OB arrays
87          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSvice, 6,myIter,myThid)          CALL WRITE_REC_XZ_RL(fn,prec, 1,OBSvice, 6,myIter,myThid)
88  # endif  # endif
89  # ifdef ALLOW_OBCS_EAST  # ifdef ALLOW_OBCS_EAST
90          WRITE(fn,'(A,I10.10)') 'seaice_ob_E.', myIter          WRITE(fn,'(2A)') 'seaice_ob_E.', suff
91          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEa,    1,myIter,myThid)          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEa,    1,myIter,myThid)
92          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEh,    2,myIter,myThid)          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEh,    2,myIter,myThid)
93          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEsl,   3,myIter,myThid)          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEsl,   3,myIter,myThid)
# Line 90  C     Write Sea-Ice OB arrays Line 96  C     Write Sea-Ice OB arrays
96          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEvice, 6,myIter,myThid)          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBEvice, 6,myIter,myThid)
97  # endif  # endif
98  # ifdef ALLOW_OBCS_WEST  # ifdef ALLOW_OBCS_WEST
99          WRITE(fn,'(A,I10.10)') 'seaice_ob_W.', myIter          WRITE(fn,'(2A)') 'seaice_ob_W.', suff
100          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWa,    1,myIter,myThid)          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWa,    1,myIter,myThid)
101          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWh,    2,myIter,myThid)          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWh,    2,myIter,myThid)
102          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWsl,   3,myIter,myThid)          CALL WRITE_REC_YZ_RL(fn,prec, 1,OBWsl,   3,myIter,myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22