/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_write_pickup.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_write_pickup.F

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

revision 1.2 by jmc, Mon Jan 14 16:50:46 2013 UTC revision 1.3 by jahn, Wed May 15 14:42:54 2013 UTC
# Line 19  C     === Global variables === Line 19  C     === Global variables ===
19  #include "SIZE.h"  #include "SIZE.h"
20  #include "EEPARAMS.h"  #include "EEPARAMS.h"
21  #include "PARAMS.h"  #include "PARAMS.h"
22    #include "PTRACERS_SIZE.h"
23    #include "PTRACERS_PARAMS.h"
24  #include "DARWIN_SIZE.h"  #include "DARWIN_SIZE.h"
25  #include "DARWIN_IO.h"  #include "DARWIN_IO.h"
26    #ifdef ALLOW_MONOD
27    #include "MONOD_FIELDS.h"
28    #endif
29    
30  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
31  C     permPickup :: write a permanent pickup  C     permPickup :: write a permanent pickup
# Line 37  CEOP Line 42  CEOP
42    
43  #ifdef ALLOW_DARWIN  #ifdef ALLOW_DARWIN
44  C add more ALLOWs here for other fields in pickup  C add more ALLOWs here for other fields in pickup
45  #ifdef ALLOW_PAR_DAY  #if defined(ALLOW_PAR_DAY) || (defined(ALLOW_MONOD) && defined(GEIDER) && !defined(DYNAMIC_CHL))
46    
47  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
48  C     == Local variables ==  C     == Local variables ==
49        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
50        LOGICAL glf        LOGICAL glf
51        _RL     timList(1)        _RL     timList(1)
52        INTEGER prec, irec, ifld        INTEGER prec, irec, ifld, np
53        INTEGER listDim, nWrFlds        INTEGER listDim, nWrFlds
54        PARAMETER( listDim = 2 )        PARAMETER( listDim = 2+npmax )
55        CHARACTER*(8) wrFldList(listDim)        CHARACTER*(8) wrFldList(listDim)
56        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
57    
# Line 73  C     record number < 0 : a hack not to Line 78  C     record number < 0 : a hack not to
78          IF (ifld.LE.listDim) wrFldList(ifld) = 'PARday2 '          IF (ifld.LE.listDim) wrFldList(ifld) = 'PARday2 '
79  #endif  #endif
80    
81    #if defined(ALLOW_MONOD) && defined(GEIDER) && !defined(DYNAMIC_CHL)
82            DO np = 1, npmax
83            ifld = ifld + 1
84            irec = irec - 1
85            print*,'prec',np,prec
86            CALL WRITE_REC_3D_RL( fn, prec, nR,
87         &                        Chl_phy(1-OLx,1-OLy,1,1,1,np),
88         &                        irec, myIter, myThid )
89            IF (ifld.LE.listDim) THEN
90             wrFldList(ifld)(1:6) = 'ChlPhy'
91             wrFldList(ifld)(7:8) = PTRACERS_ioLabel(np)
92            ENDIF
93            ENDDO
94    #endif
95    
96  C--------------------------  C--------------------------
97          nWrFlds = ifld          nWrFlds = ifld
98          IF ( nWrFlds.GT.listDim ) THEN          IF ( nWrFlds.GT.listDim ) THEN
# Line 91  C     files Line 111  C     files
111          glf  = globalFiles          glf  = globalFiles
112          timList(1) = myTime          timList(1) = myTime
113          irec = ABS(irec)          irec = ABS(irec)
114            print*,'prec',irec,prec
115          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,
116       &                         0, 0, nR, ' ',       &                         0, 0, nR, ' ',
117       &                         nWrFlds, wrFldList,       &                         nWrFlds, wrFldList,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22