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

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

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

revision 1.1 by jahn, Wed Apr 13 18:56:24 2011 UTC revision 1.2 by jahn, Wed May 15 14:42:54 2013 UTC
# Line 18  C     !USES: Line 18  C     !USES:
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "PARAMS.h"  #include "PARAMS.h"
21    #include "PTRACERS_SIZE.h"
22    #include "PTRACERS_PARAMS.h"
23  #include "DARWIN_SIZE.h"  #include "DARWIN_SIZE.h"
24  #include "DARWIN_IO.h"  #include "DARWIN_IO.h"
25    #ifdef ALLOW_MONOD
26    #include "MONOD_FIELDS.h"
27    #endif
28    
29  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
30  C     myIter            :: time-step number  C     myIter            :: time-step number
# Line 29  C     myThid            :: thread number Line 34  C     myThid            :: thread number
34    
35  #ifdef ALLOW_DARWIN  #ifdef ALLOW_DARWIN
36  C add more ALLOWs here for other fields in pickup  C add more ALLOWs here for other fields in pickup
37  #ifdef ALLOW_PAR_DAY  #if defined(ALLOW_MONOD) && defined(ALLOW_PAR_DAY) || (defined(GEIDER) && !defined(DYNAMIC_CHL))
38    
39  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
40  C     fn          :: character buffer for creating filename  C     fn          :: character buffer for creating filename
# Line 46  C     msgBuf      :: Informational/error Line 51  C     msgBuf      :: Informational/error
51        INTEGER fp        INTEGER fp
52        INTEGER filePrec, nbFields        INTEGER filePrec, nbFields
53        INTEGER missFldDim, nMissing        INTEGER missFldDim, nMissing
54        INTEGER j, nj, ioUnit        INTEGER j, nj, ioUnit, np
55        PARAMETER( missFldDim = 12 )        PARAMETER( missFldDim = 12 )
56        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
57          CHARACTER*(8) fldName
58        CHARACTER*(8) missFldList(missFldDim)        CHARACTER*(8) missFldList(missFldDim)
59        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
60  CEOP  CEOP
# Line 128  C---    read DARWIN 3-D fields for resta Line 134  C---    read DARWIN 3-D fields for resta
134          CALL READ_MFLDS_3D_RL( 'PARday2 ', PARday(1-OLx,1-OLy,1,1,1,2),          CALL READ_MFLDS_3D_RL( 'PARday2 ', PARday(1-OLx,1-OLy,1,1,1,2),
135       &                                 nj, fp, Nr, myIter, myThid )       &                                 nj, fp, Nr, myIter, myThid )
136  #endif /* ALLOW_PAR_DAY */  #endif /* ALLOW_PAR_DAY */
137    #if defined(ALLOW_MONOD) && defined(GEIDER) && !defined(DYNAMIC_CHL)
138            DO np = 1, npmax
139             fldName(1:6) = 'ChlPhy'
140             fldName(7:8) = PTRACERS_ioLabel(np)
141             CALL READ_MFLDS_3D_RL( fldName, Chl_phy(1-OLx,1-OLy,1,1,1,np),
142         &                                  nj, fp, Nr, myIter, myThid )
143            ENDDO
144    #endif
145  C--    end: new way to read pickup file  C--    end: new way to read pickup file
146         ENDIF         ENDIF
147    
# Line 158  C--    Update overlap regions: Line 172  C--    Update overlap regions:
172          CALL EXCH_3D_RL( PARday(1-OLx,1-OLy,1,1,1,1), Nr, myThid )          CALL EXCH_3D_RL( PARday(1-OLx,1-OLy,1,1,1,1), Nr, myThid )
173          CALL EXCH_3D_RL( PARday(1-OLx,1-OLy,1,1,1,2), Nr, myThid )          CALL EXCH_3D_RL( PARday(1-OLx,1-OLy,1,1,1,2), Nr, myThid )
174  #endif /* ALLOW_PAR_DAY */  #endif /* ALLOW_PAR_DAY */
175    #if defined(ALLOW_MONOD) && defined(GEIDER) && !defined(DYNAMIC_CHL)
176            DO np = 1, npmax
177             CALL EXCH_3D_RL( Chl_phy(1-OLx,1-OLy,1,1,1,np), Nr, myThid )
178            ENDDO
179    #endif
180    
181  #endif /* ALLOW_PAR_DAY */  #endif /* ALLOW_PAR_DAY */
182  #endif /* ALLOW_DARWIN */  #endif /* ALLOW_DARWIN */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22