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

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

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

revision 1.6 by mlosch, Wed Dec 14 16:42:08 2005 UTC revision 1.7 by jmc, Tue Aug 8 23:28:38 2006 UTC
# Line 101  C Now calculate whether it is time to up Line 101  C Now calculate whether it is time to up
101       &  .OR. myIter .EQ. nIter0       &  .OR. myIter .EQ. nIter0
102       & ) THEN       & ) THEN
103    
104           _BARRIER
105         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
106    
107  C      If the above condition is met then we need to read in  C      If the above condition is met then we need to read in
# Line 279  C     However, we do not have exchange r Line 280  C     However, we do not have exchange r
280  C     slices and they are not planned, either, so the approriate fields  C     slices and they are not planned, either, so the approriate fields
281  C     are exchanged after the open boundary conditions have been  C     are exchanged after the open boundary conditions have been
282  C     applied. (in DYNAMICS and DO_FIELDS_BLOCKING_EXCHANGES)  C     applied. (in DYNAMICS and DO_FIELDS_BLOCKING_EXCHANGES)
283  C         _BARRIER
284  C     time to read new data?  
285    C     end if time to read new data
286        ENDIF        ENDIF
287    
288  C     if not periodicForcing  C     if not periodicForcing
# Line 289  C     if not periodicForcing Line 291  C     if not periodicForcing
291         bWght = 1. _d 0         bWght = 1. _d 0
292  C     read boundary values once and for all  C     read boundary values once and for all
293         IF ( myIter .EQ. nIter0 ) THEN         IF ( myIter .EQ. nIter0 ) THEN
294            _BARRIER
295          _BEGIN_MASTER(myThid)          _BEGIN_MASTER(myThid)
296  C      Read constant boundary conditions only for myIter = nIter0  C      Read constant boundary conditions only for myIter = nIter0
297          WRITE(msgBuf,'(1X,A,I10,1P1E20.12)')          WRITE(msgBuf,'(1X,A,I10,1P1E20.12)')
298       &       'OBCS_EXTERNAL_FIELDS_LOAD: Reading new data:',       &       'OBCS_EXTERNAL_FIELDS_LOAD: Reading initial data:',
299       &       myIter, myTime       &       myIter, myTime
300          CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,          CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
301       &       SQUEEZE_RIGHT,myThid)       &       SQUEEZE_RIGHT,myThid)
# Line 415  C     end if (usePTRACERS) Line 418  C     end if (usePTRACERS)
418          ENDIF          ENDIF
419  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
420          _END_MASTER(myThid)          _END_MASTER(myThid)
421            _BARRIER
422  C     endif myIter .EQ. nIter0  C     endif myIter .EQ. nIter0
423         ENDIF         ENDIF
424  C     endif for periodicForcing  C     endif for periodicForcing
# Line 551  CEOP Line 555  CEOP
555            ENDDO            ENDDO
556           ENDDO           ENDDO
557          ENDDO          ENDDO
558         ENDDO             ENDDO
559    
560        RETURN        RETURN
561        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22