/[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.1 by mmazloff, Fri May 23 17:33:43 2014 UTC revision 1.2 by mmazloff, Thu Jun 5 21:26:26 2014 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 = 2 )        PARAMETER( listDim = 4 )
51        CHARACTER*(8) wrFldList(listDim)        CHARACTER*(8) wrFldList(listDim)
52        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
53    
54          prec = precFloat64          prec = precFloat64
55    
56          WRITE(fn,'(A,A)') 'pickup_BLING.',suff          WRITE(fn,'(A,A)') 'pickup_bling.',suff
57          j = 0          j = 0
58    
59  C     Firstly, write 3-D fields as consecutive records,  C     Firstly, write 3-D fields as consecutive records,
60    
 C-    switch to 2-D fields:  
         nj = -j*Nr  
   
61  C       record number < 0 : a hack not to write meta files now:  C       record number < 0 : a hack not to write meta files now:
62          j = j + 1          j = j + 1
63          nj = nj-1          CALL WRITE_REC_3D_RL( fn, prec, Nr, pH, -j, myIter, myThid )
64          CALL WRITE_REC_3D_RL( fn, prec, 1, pH, nj, myIter, myThid )          IF (j.LE.listDim) wrFldList(j) = 'BLG_pH3d'
65          IF (j.LE.listDim) wrFldList(j) = 'BLING_pH2d'  
66            j = j + 1
67            CALL WRITE_REC_3D_RL( fn, prec, Nr, irr_mem,
68         &                        -j, myIter, myThid )
69            IF (j.LE.listDim) wrFldList(j) = 'BLG_irrm'
70    
71            j = j + 1
72            CALL WRITE_REC_3D_RL( fn, prec, Nr, P_sm, -j, myIter, myThid )
73            IF (j.LE.listDim) wrFldList(j) = 'BLG_Plg '
74    
75            j = j + 1
76            CALL WRITE_REC_3D_RL( fn, prec, Nr, P_lg, -j, myIter, myThid )
77            IF (j.LE.listDim) wrFldList(j) = 'BLG_Plg '
78    
79  C--------------------------  C--------------------------
80          nWrFlds = j          nWrFlds = j
# Line 83  C-------------------------- Line 92  C--------------------------
92  C     uses this specific S/R to write (with more informations) only meta  C     uses this specific S/R to write (with more informations) only meta
93  C     files  C     files
94          j  = 1          j  = 1
         nj = ABS(nj)  
         IF ( nWrFlds*Nr .EQ. nj ) THEN  
           j  = Nr  
           nj = nWrFlds  
         ENDIF  
95          glf  = globalFiles          glf  = globalFiles
96          timList(1) = myTime          timList(1) = myTime
97          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,
98       &                         0, 0, j, ' ',       &                         0, 0, Nr, ' ',
99       &                         nWrFlds, wrFldList,       &                         nWrFlds, wrFldList,
100       &                         1, timList,       &                         1, timList, oneRL,
101       &                         nj, myIter, myThid )       &                         j, myIter, myThid )
102  #endif /* ALLOW_MDSIO */  #endif /* ALLOW_MDSIO */
103  C--------------------------  C--------------------------
104    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22