/[MITgcm]/MITgcm/pkg/shelfice/shelfice_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/shelfice/shelfice_init_varia.F

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

revision 1.2 by mlosch, Fri Sep 12 07:21:55 2008 UTC revision 1.3 by jmc, Tue Apr 28 18:21:18 2009 UTC
# Line 51  C-    must wait for initialisation to be Line 51  C-    must wait for initialisation to be
51         CALL READ_FLD_XY_RS( SHELFICEloadAnomalyFile, ' ',         CALL READ_FLD_XY_RS( SHELFICEloadAnomalyFile, ' ',
52       &      shelficeLoadAnomaly, 0, myThid )       &      shelficeLoadAnomaly, 0, myThid )
53  C-    EXCH call implicitly contains Barrier: no need for an other one.  C-    EXCH call implicitly contains Barrier: no need for an other one.
54         _EXCH_XY_R4( shelficeLoadAnomaly, myThid )         _EXCH_XY_RS( shelficeLoadAnomaly, myThid )
55        ENDIF        ENDIF
56    
57  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22