/[MITgcm]/MITgcm/pkg/obcs/obcs_prescribe_read.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_prescribe_read.F

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

revision 1.24 by mlosch, Tue Jun 2 14:58:54 2009 UTC revision 1.25 by mlosch, Tue Aug 11 15:46:27 2009 UTC
# Line 54  c     == end of interface == Line 54  c     == end of interface ==
54       U     OBNv,   OBNv0,   OBNv1,   OBNvfile,       U     OBNv,   OBNv0,   OBNv1,   OBNvfile,
55       U     OBNt,   OBNt0,   OBNt1,   OBNtfile,       U     OBNt,   OBNt0,   OBNt1,   OBNtfile,
56       U     OBNs,   OBNs0,   OBNs1,   OBNsfile,       U     OBNs,   OBNs0,   OBNs1,   OBNsfile,
57    #   ifdef NONLIN_FRSURF
58         U     OBNeta, OBNeta0, OBNeta1, OBNetafile,
59    #   endif
60  #   ifdef ALLOW_SEAICE  #   ifdef ALLOW_SEAICE
61       I     siobNstartdate, siobNperiod,       I     siobNstartdate, siobNperiod,
62       U     OBNa,   OBNa0,   OBNa1,   OBNafile,       U     OBNa,   OBNa0,   OBNa1,   OBNafile,
# Line 78  c     == end of interface == Line 81  c     == end of interface ==
81       U     OBSv,   OBSv0,   OBSv1,   OBSvfile,       U     OBSv,   OBSv0,   OBSv1,   OBSvfile,
82       U     OBSt,   OBSt0,   OBSt1,   OBStfile,       U     OBSt,   OBSt0,   OBSt1,   OBStfile,
83       U     OBSs,   OBSs0,   OBSs1,   OBSsfile,       U     OBSs,   OBSs0,   OBSs1,   OBSsfile,
84    #   ifdef NONLIN_FRSURF
85         U     OBSeta, OBSeta0, OBSeta1, OBSetafile,
86    #   endif
87  #   ifdef ALLOW_SEAICE  #   ifdef ALLOW_SEAICE
88       I     siobSstartdate, siobSperiod,       I     siobSstartdate, siobSperiod,
89       U     OBSa,   OBSa0,   OBSa1,   OBSafile,       U     OBSa,   OBSa0,   OBSa1,   OBSafile,
# Line 102  c     == end of interface == Line 108  c     == end of interface ==
108       U     OBEv,   OBEv0,   OBEv1,   OBEvfile,       U     OBEv,   OBEv0,   OBEv1,   OBEvfile,
109       U     OBEt,   OBEt0,   OBEt1,   OBEtfile,       U     OBEt,   OBEt0,   OBEt1,   OBEtfile,
110       U     OBEs,   OBEs0,   OBEs1,   OBEsfile,       U     OBEs,   OBEs0,   OBEs1,   OBEsfile,
111    #   ifdef NONLIN_FRSURF
112         U     OBEeta, OBEeta0, OBEeta1, OBEetafile,
113    #   endif
114  #   ifdef ALLOW_SEAICE  #   ifdef ALLOW_SEAICE
115       I     siobEstartdate, siobEperiod,       I     siobEstartdate, siobEperiod,
116       U     OBEa,   OBEa0,   OBEa1,   OBEafile,       U     OBEa,   OBEa0,   OBEa1,   OBEafile,
# Line 126  c     == end of interface == Line 135  c     == end of interface ==
135       U     OBWv,   OBWv0,   OBWv1,   OBWvfile,       U     OBWv,   OBWv0,   OBWv1,   OBWvfile,
136       U     OBWt,   OBWt0,   OBWt1,   OBWtfile,       U     OBWt,   OBWt0,   OBWt1,   OBWtfile,
137       U     OBWs,   OBWs0,   OBWs1,   OBWsfile,       U     OBWs,   OBWs0,   OBWs1,   OBWsfile,
138    #   ifdef NONLIN_FRSURF
139         U     OBWeta, OBWeta0, OBWeta1, OBWetafile,
140    #   endif
141  #   ifdef ALLOW_SEAICE  #   ifdef ALLOW_SEAICE
142       I     siobWstartdate, siobWperiod,       I     siobWstartdate, siobWperiod,
143       U     OBWa,   OBWa0,   OBWa1,   OBWafile,       U     OBWa,   OBWa0,   OBWa1,   OBWafile,
# Line 192  C======================================= Line 204  C=======================================
204       U     OBv,   OBv0,   OBv1,   OBvfile,       U     OBv,   OBv0,   OBv1,   OBvfile,
205       U     OBt,   OBt0,   OBt1,   OBtfile,       U     OBt,   OBt0,   OBt1,   OBtfile,
206       U     OBs,   OBs0,   OBs1,   OBsfile,       U     OBs,   OBs0,   OBs1,   OBsfile,
207    #ifdef NONLIN_FRSURF
208         U     OBeta, OBeta0, OBeta1, OBetafile,
209    #endif
210  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
211       I     siobstartdate, siobperiod,       I     siobstartdate, siobperiod,
212       U     OBa,   OBa0,   OBa1,   OBafile,       U     OBa,   OBa0,   OBa1,   OBafile,
# Line 247  c     == routine arguments == Line 262  c     == routine arguments ==
262        _RL OBt1    (1-Olx:sNx+Olx,Nr,nSx,nSy)        _RL OBt1    (1-Olx:sNx+Olx,Nr,nSx,nSy)
263        _RL OBs1    (1-Olx:sNx+Olx,Nr,nSx,nSy)        _RL OBs1    (1-Olx:sNx+Olx,Nr,nSx,nSy)
264        CHARACTER*(MAX_LEN_FNAM) OBuFile,OBvFile,OBtFile,OBsFile        CHARACTER*(MAX_LEN_FNAM) OBuFile,OBvFile,OBtFile,OBsFile
265    #ifdef NONLIN_FRSURF
266          _RL OBeta   (1-Olx:sNx+Olx,nSx,nSy)
267          _RL OBeta0  (1-Olx:sNx+Olx,nSx,nSy)
268          _RL OBeta1  (1-Olx:sNx+Olx,nSx,nSy)
269          CHARACTER*(MAX_LEN_FNAM) OBetaFile
270    #endif
271  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
272        _RL     siobstartdate        _RL     siobstartdate
273        _RL     siobperiod        _RL     siobperiod
# Line 333  c     get record numbers and interpolati Line 354  c     get record numbers and interpolati
354       I                     , fac, first, changed, useYearlyFields       I                     , fac, first, changed, useYearlyFields
355       I                     , obcsperiod, count0, count1, year0, year1       I                     , obcsperiod, count0, count1, year0, year1
356       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
357    # ifdef NONLIN_FRSURF
358           call exf_set_obcs_x ( OBeta, OBeta0, OBeta1, OBetaFile, 's'
359         I                     , fac, first, changed, useYearlyFields
360         I                     , obcsperiod, count0, count1, year0, year1
361         I                     , mycurrenttime, mycurrentiter, mythid )
362    # endif /* NONLIN_FRSURF */
363  # ifdef ALLOW_PTRACERS  # ifdef ALLOW_PTRACERS
364        if ( usePTRACERS ) then        if ( usePTRACERS ) then
365         do iTracer = 1, PTRACERS_numInUse         do iTracer = 1, PTRACERS_numInUse
# Line 411  C======================================= Line 438  C=======================================
438       U     OBv,   OBv0,   OBv1,   OBvfile,       U     OBv,   OBv0,   OBv1,   OBvfile,
439       U     OBt,   OBt0,   OBt1,   OBtfile,       U     OBt,   OBt0,   OBt1,   OBtfile,
440       U     OBs,   OBs0,   OBs1,   OBsfile,       U     OBs,   OBs0,   OBs1,   OBsfile,
441    #ifdef NONLIN_FRSURF
442         U     OBeta, OBeta0, OBeta1, OBetafile,
443    #endif
444  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
445       I     siobstartdate, siobperiod,       I     siobstartdate, siobperiod,
446       U     OBa,   OBa0,   OBa1,   OBafile,       U     OBa,   OBa0,   OBa1,   OBafile,
# Line 466  c     == routine arguments == Line 496  c     == routine arguments ==
496        _RL OBt1    (1-Oly:sNy+Oly,Nr,nSx,nSy)        _RL OBt1    (1-Oly:sNy+Oly,Nr,nSx,nSy)
497        _RL OBs1    (1-Oly:sNy+Oly,Nr,nSx,nSy)        _RL OBs1    (1-Oly:sNy+Oly,Nr,nSx,nSy)
498        CHARACTER*(MAX_LEN_FNAM) OBuFile,OBvFile,OBtFile,OBsFile        CHARACTER*(MAX_LEN_FNAM) OBuFile,OBvFile,OBtFile,OBsFile
499    #ifdef NONLIN_FRSURF
500          _RL OBeta   (1-Olx:sNx+Olx,nSx,nSy)
501          _RL OBeta0  (1-Olx:sNx+Olx,nSx,nSy)
502          _RL OBeta1  (1-Olx:sNx+Olx,nSx,nSy)
503          CHARACTER*(MAX_LEN_FNAM) OBetaFile
504    #endif
505  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
506        _RL     siobstartdate        _RL     siobstartdate
507        _RL     siobperiod        _RL     siobperiod
# Line 552  c     get record numbers and interpolati Line 588  c     get record numbers and interpolati
588       I                     , fac, first, changed, useYearlyFields       I                     , fac, first, changed, useYearlyFields
589       I                     , obcsperiod, count0, count1, year0, year1       I                     , obcsperiod, count0, count1, year0, year1
590       I                     , mycurrenttime, mycurrentiter, mythid )       I                     , mycurrenttime, mycurrentiter, mythid )
591    # ifdef NONLIN_FRSURF
592           call exf_set_obcs_y ( OBeta, OBeta0, OBeta1, OBetaFile, 's'
593         I                     , fac, first, changed, useYearlyFields
594         I                     , obcsperiod, count0, count1, year0, year1
595         I                     , mycurrenttime, mycurrentiter, mythid )
596    # endif /* NONLIN_FRSURF */
597  # ifdef ALLOW_PTRACERS  # ifdef ALLOW_PTRACERS
598        if ( usePTRACERS ) then        if ( usePTRACERS ) then
599         do iTracer = 1, PTRACERS_numInUse         do iTracer = 1, PTRACERS_numInUse
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22