/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_fields_load.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_fields_load.F

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

revision 1.3 by jahn, Thu Sep 22 19:23:31 2011 UTC revision 1.4 by jahn, Wed Dec 7 20:04:00 2011 UTC
# Line 253  C      data for the period ahead and the Line 253  C      data for the period ahead and the
253          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
254       &                      SQUEEZE_RIGHT, myThid )       &                      SQUEEZE_RIGHT, myThid )
255    
256            _END_MASTER(myThid)
257    
258         IF ( darwin_iceFile .NE. ' '  ) THEN         IF ( darwin_iceFile .NE. ' '  ) THEN
259           CALL READ_REC_XY_RS( darwin_iceFile,fice0,intime0,           CALL READ_REC_XY_RS( darwin_iceFile,fice0,intime0,
260       &        myIter,myThid )       &        myIter,myThid )
# Line 401  c       CALL READ_MFLDS_3D_RS( darwin_oa Line 403  c       CALL READ_MFLDS_3D_RS( darwin_oa
403  c    &               nj1, fp, tlam, myIter,myThid )  c    &               nj1, fp, tlam, myIter,myThid )
404        ENDIF        ENDIF
405  #endif  #endif
   
        _END_MASTER(myThid)  
406  C  C
407         _EXCH_XY_RS(fice0, myThid )         _EXCH_XY_RS(fice0, myThid )
408         _EXCH_XY_RS(fice1, myThid )         _EXCH_XY_RS(fice1, myThid )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22