/[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.23 by dimitri, Fri May 9 09:20:30 2008 UTC revision 1.24 by mlosch, Tue Jun 2 14:58:54 2009 UTC
# Line 294  c     == local variables == Line 294  c     == local variables ==
294  # endif /* ALLOW_PTRACERS */  # endif /* ALLOW_PTRACERS */
295  c     == end of interface ==  c     == end of interface ==
296    
297        if ( obcsperiod .eq. -12 ) then        if ( obcsperiod .eq. -12. _d 0 ) then
298  c     obcsperiod=-12 means input file contains 12 monthly means  c     obcsperiod=-12 means input file contains 12 monthly means
299  c     record numbers are assumed 1 to 12 corresponding to  c     record numbers are assumed 1 to 12 corresponding to
300  c     Jan. through Dec.  c     Jan. through Dec.
# Line 304  c     Jan. through Dec. Line 304  c     Jan. through Dec.
304       I                        mycurrenttime, mycurrentiter, mythid       I                        mycurrenttime, mycurrentiter, mythid
305       &           )       &           )
306    
307        elseif ( obcsperiod .lt. 0 ) then        elseif ( obcsperiod .lt. 0. _d 0 ) then
308         print *, 'obcsperiod is out of range'         print *, 'obcsperiod is out of range'
309         STOP 'ABNORMAL END: S/R OBCS_PRESCIBE_EXF_XZ'         STOP 'ABNORMAL END: S/R OBCS_PRESCIBE_EXF_XZ'
310        else        else
# Line 348  c     get record numbers and interpolati Line 348  c     get record numbers and interpolati
348  # endif /* ALLOW_PTRACERS */  # endif /* ALLOW_PTRACERS */
349  # ifdef ALLOW_SEAICE  # ifdef ALLOW_SEAICE
350        IF (useSEAICE) THEN        IF (useSEAICE) THEN
351         if ( siobperiod .eq. -12 ) then         if ( siobperiod .eq. -12. _d 0 ) then
352  c     siobperiod=-12 means input file contains 12 monthly means  c     siobperiod=-12 means input file contains 12 monthly means
353  c     record numbers are assumed 1 to 12 corresponding to  c     record numbers are assumed 1 to 12 corresponding to
354  c     Jan. through Dec.  c     Jan. through Dec.
# Line 358  c     Jan. through Dec. Line 358  c     Jan. through Dec.
358       I                        mycurrenttime, mycurrentiter, mythid       I                        mycurrenttime, mycurrentiter, mythid
359       &           )       &           )
360    
361         elseif ( siobperiod .lt. 0 ) then         elseif ( siobperiod .lt. 0. _d 0 ) then
362          print *, 'siobperiod is out of range'          print *, 'siobperiod is out of range'
363          STOP 'ABNORMAL END: S/R OBCS_PRESCIBE_EXF_XZ'          STOP 'ABNORMAL END: S/R OBCS_PRESCIBE_EXF_XZ'
364         else         else
# Line 513  c     == local variables == Line 513  c     == local variables ==
513  # endif /* ALLOW_PTRACERS */  # endif /* ALLOW_PTRACERS */
514    
515  c     == end of interface ==  c     == end of interface ==
516        if ( obcsperiod .eq. -12 ) then        if ( obcsperiod .eq. -12. _d 0 ) then
517  c     obcsperiod=-12 means input file contains 12 monthly means  c     obcsperiod=-12 means input file contains 12 monthly means
518  c     record numbers are assumed 1 to 12 corresponding to  c     record numbers are assumed 1 to 12 corresponding to
519  c     Jan. through Dec.  c     Jan. through Dec.
# Line 523  c     Jan. through Dec. Line 523  c     Jan. through Dec.
523       I                        mycurrenttime, mycurrentiter, mythid       I                        mycurrenttime, mycurrentiter, mythid
524       &           )       &           )
525    
526        elseif ( obcsperiod .lt. 0 ) then        elseif ( obcsperiod .lt. 0. _d 0 ) then
527         print *, 'obcsperiod is out of range'         print *, 'obcsperiod is out of range'
528         STOP 'ABNORMAL END: S/R OBCS_PRESCIBE_EXF_YZ'         STOP 'ABNORMAL END: S/R OBCS_PRESCIBE_EXF_YZ'
529        else        else
# Line 567  c     get record numbers and interpolati Line 567  c     get record numbers and interpolati
567  # endif /* ALLOW_PTRACERS */  # endif /* ALLOW_PTRACERS */
568  # ifdef ALLOW_SEAICE  # ifdef ALLOW_SEAICE
569        IF (useSEAICE) THEN        IF (useSEAICE) THEN
570         if ( siobperiod .eq. -12 ) then         if ( siobperiod .eq. -12. _d 0 ) then
571  c     siobperiod=-12 means input file contains 12 monthly means  c     siobperiod=-12 means input file contains 12 monthly means
572  c     record numbers are assumed 1 to 12 corresponding to  c     record numbers are assumed 1 to 12 corresponding to
573  c     Jan. through Dec.  c     Jan. through Dec.
# Line 577  c     Jan. through Dec. Line 577  c     Jan. through Dec.
577       I                        mycurrenttime, mycurrentiter, mythid       I                        mycurrenttime, mycurrentiter, mythid
578       &           )       &           )
579    
580         elseif ( siobperiod .lt. 0 ) then         elseif ( siobperiod .lt. 0. _d 0 ) then
581          print *, 'siobperiod is out of range'          print *, 'siobperiod is out of range'
582          STOP 'ABNORMAL END: S/R OBCS_PRESCIBE_EXF_XZ'          STOP 'ABNORMAL END: S/R OBCS_PRESCIBE_EXF_XZ'
583         else         else
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22