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

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

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

revision 1.8 by dimitri, Fri Jan 25 11:23:06 2008 UTC revision 1.9 by dimitri, Fri Jan 25 11:49:48 2008 UTC
# Line 83  c     check for consistency Line 83  c     check for consistency
83          STOP 'wind-stress position defined by Long/Lat'          STOP 'wind-stress position defined by Long/Lat'
84        ENDIF        ENDIF
85        if ( usingCurvilinearGrid ) then        if ( usingCurvilinearGrid ) then
        if ( uvecfile .NE. ' ' .and. vvecfile .NE. ' ' ) then  
86  c     some restrictions that can be relaxed later on  c     some restrictions that can be relaxed later on
87          if ( uvecstartdate .ne. vvecstartdate .or.         if ( ustressfile .NE. ' ' .and. vstressfile .NE. ' ' ) then
88       &       uvecperiod    .ne. vvecperiod ) then          if ( ustressstartdate .ne. vstressstartdate .or.
89         &       ustressperiod    .ne. vstressperiod ) then
90           print*,'For useCubedSphereExchange, S/R exf_set_uv.F'           print*,'For useCubedSphereExchange, S/R exf_set_uv.F'
91           print*,'assumes that the u and v wind or wind stress'           print*,'assumes that the u and v wind stress files'
92           print*,'files have the same startdate and period.'           print*,'have the same startdate and period.'
93             stop
94            endif
95           endif
96           if ( uwindfile .NE. ' ' .and. vwindfile .NE. ' ' ) then
97            if ( uwindstartdate .ne. vwindstartdate .or.
98         &       uwindperiod    .ne. vwindperiod ) then
99             print*,'For useCubedSphereExchange, S/R exf_set_uv.F'
100             print*,'assumes that the u and v wind files'
101             print*,'have the same startdate and period.'
102           stop           stop
103          endif          endif
104         endif         endif
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22