/[MITgcm]/MITgcm/pkg/exf/exf_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_readparms.F

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

revision 1.66 by mlosch, Wed Jul 27 15:00:15 2011 UTC revision 1.67 by jmc, Wed Oct 12 02:58:34 2011 UTC
# Line 817  c     Next, read the forcing data file. Line 817  c     Next, read the forcing data file.
817         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
818       &      SQUEEZE_RIGHT , 1)       &      SQUEEZE_RIGHT , 1)
819         READ(  iUnit, nml = EXF_NML_OBCS )         READ(  iUnit, nml = EXF_NML_OBCS )
820          ENDIF
821         IF(siobNstartdate1.EQ.UNSET_I ) siobNstartdate1=obcsNstartdate1         IF(siobNstartdate1.EQ.UNSET_I ) siobNstartdate1=obcsNstartdate1
822         IF(siobNstartdate2.EQ.UNSET_I ) siobNstartdate2=obcsNstartdate2         IF(siobNstartdate2.EQ.UNSET_I ) siobNstartdate2=obcsNstartdate2
823         IF(siobNperiod    .EQ.UNSET_RL) siobNperiod    =obcsNperiod         IF(siobNperiod    .EQ.UNSET_RL) siobNperiod    =obcsNperiod
# Line 831  c     Next, read the forcing data file. Line 832  c     Next, read the forcing data file.
832         IF(siobWperiod    .EQ.UNSET_RL) siobWperiod    =obcsWperiod         IF(siobWperiod    .EQ.UNSET_RL) siobWperiod    =obcsWperiod
833    
834         IF(exf_iprec_obcs .EQ. UNSET_I) exf_iprec_obcs =exf_iprec         IF(exf_iprec_obcs .EQ. UNSET_I) exf_iprec_obcs =exf_iprec
       ENDIF  
835  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
836    
837        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67
  ViewVC Help
Powered by ViewVC 1.1.22