/[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.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 = 2 )        PARAMETER( listDim = 6 )
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, 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 )
77            IF (j.LE.listDim) wrFldList(j) = 'BLG_Plg '
78    
79            j = j + 1
80            CALL WRITE_REC_3D_RL( fn, prec, Nr, P_lg, -j, myIter, myThid )
81            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
# Line 83  C-------------------------- Line 100  C--------------------------
100  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
101  C     files  C     files
102          j  = 1          j  = 1
         nj = ABS(nj)  
         IF ( nWrFlds*Nr .EQ. nj ) THEN  
           j  = Nr  
           nj = nWrFlds  
         ENDIF  
103          glf  = globalFiles          glf  = globalFiles
104          timList(1) = myTime          timList(1) = myTime
105          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,
106       &                         0, 0, j, ' ',       &                         0, 0, Nr, ' ',
107       &                         nWrFlds, wrFldList,       &                         nWrFlds, wrFldList,
108       &                         1, timList,       &                         1, timList, oneRL,
109       &                         nj, myIter, myThid )       &                         j, myIter, myThid )
110  #endif /* ALLOW_MDSIO */  #endif /* ALLOW_MDSIO */
111  C--------------------------  C--------------------------
112    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22