/[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.1 by jmc, Sun Oct 4 22:30:38 2009 UTC revision 1.4 by jmc, Fri Mar 24 23:53:17 2017 UTC
# Line 7  C $Name$ Line 7  C $Name$
7  #endif  #endif
8    
9  CBOP  CBOP
10  C     !ROUTINE: OBCS_OUTPUT  C     !ROUTINE: SEAICE_OBCS_OUTPUT
11    
12  C     !INTERFACE:  C     !INTERFACE:
13        SUBROUTINE SEAICE_OBCS_OUTPUT( myTime, myIter, myThid )        SUBROUTINE SEAICE_OBCS_OUTPUT( myTime, myIter, myThid )
# Line 26  C     == Global variables === Line 26  C     == Global variables ===
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "PARAMS.h"  #include "PARAMS.h"
28  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
29  #include "OBCS.h"  # include "OBCS_PARAMS.h"
30    # include "OBCS_SEAICE.h"
31  #endif  #endif
32    
33  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
# Line 47  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 59  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 71  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 80  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 89  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.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22