/[MITgcm]/MITgcm/pkg/seaice/seaice_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_init_varia.F

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

revision 1.79 by gforget, Thu Dec 27 23:05:47 2012 UTC revision 1.80 by jmc, Thu Jan 3 20:51:10 2013 UTC
# Line 464  c     ENDIF Line 464  c     ENDIF
464  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
465    
466  #ifdef SEAICE_ALLOW_JFNK  #ifdef SEAICE_ALLOW_JFNK
467  C     Computing this metric cannot be done in S/R SEAICE_INIT_FIXED  C     Computing this metric cannot be done in S/R SEAICE_INIT_FIXED
468  C     where it belongs, because globalArea is only defined later after  C     where it belongs, because globalArea is only defined later after
469  C     S/R PACKAGES_INIT_FIXED, so we move this computation here.  C     S/R PACKAGES_INIT_FIXED, so we move this computation here.
470        CALL SEAICE_MAP2VEC( nVec, rAw, rAs,        CALL SEAICE_MAP_RS2VEC( nVec, rAw, rAs,
471       &     scalarProductMetric, .TRUE., myThid )       &     scalarProductMetric, .TRUE., myThid )
472        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
473         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80
  ViewVC Help
Powered by ViewVC 1.1.22