/[MITgcm]/MITgcm_contrib/bling/pkg/bling_write_pickup.F
ViewVC logotype

Diff of /MITgcm_contrib/bling/pkg/bling_write_pickup.F

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

revision 1.2 by mmazloff, Thu Jun 5 21:26:26 2014 UTC revision 1.3 by mmazloff, Sun Feb 28 21:49:24 2016 UTC
# Line 47  C     == Local variables == Line 47  C     == Local variables ==
47        _RL     timList(1)        _RL     timList(1)
48        INTEGER j, nj        INTEGER j, nj
49        INTEGER listDim, nWrFlds        INTEGER listDim, nWrFlds
50        PARAMETER( listDim = 4 )        PARAMETER( listDim = 6 )
51        CHARACTER*(8) wrFldList(listDim)        CHARACTER*(8) wrFldList(listDim)
52        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
53    
# Line 69  C       record number < 0 : a hack not t Line 69  C       record number < 0 : a hack not t
69          IF (j.LE.listDim) wrFldList(j) = 'BLG_irrm'          IF (j.LE.listDim) wrFldList(j) = 'BLG_irrm'
70    
71          j = j + 1          j = j + 1
72            CALL WRITE_REC_3D_RL( fn, prec, Nr, chl, -j, myIter, myThid )
73            IF (j.LE.listDim) wrFldList(j) = 'BLG_chl '
74    
75            j = j + 1
76          CALL WRITE_REC_3D_RL( fn, prec, Nr, P_sm, -j, myIter, myThid )          CALL WRITE_REC_3D_RL( fn, prec, Nr, P_sm, -j, myIter, myThid )
77          IF (j.LE.listDim) wrFldList(j) = 'BLG_Plg '          IF (j.LE.listDim) wrFldList(j) = 'BLG_Plg '
78    
# Line 76  C       record number < 0 : a hack not t Line 80  C       record number < 0 : a hack not t
80          CALL WRITE_REC_3D_RL( fn, prec, Nr, P_lg, -j, myIter, myThid )          CALL WRITE_REC_3D_RL( fn, prec, Nr, P_lg, -j, myIter, myThid )
81          IF (j.LE.listDim) wrFldList(j) = 'BLG_Plg '          IF (j.LE.listDim) wrFldList(j) = 'BLG_Plg '
82    
83            j = j + 1
84            CALL WRITE_REC_3D_RL( fn, prec, Nr, P_diaz, -j, myIter, myThid )
85            IF (j.LE.listDim) wrFldList(j) = 'BLG_Pdia'
86    
87  C--------------------------  C--------------------------
88          nWrFlds = j          nWrFlds = j
89          IF ( nWrFlds.GT.listDim ) THEN          IF ( nWrFlds.GT.listDim ) THEN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22