/[MITgcm]/MITgcm/pkg/streamice/streamice_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/streamice/streamice_init_varia.F

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

revision 1.12 by jmc, Tue Sep 9 23:10:22 2014 UTC revision 1.13 by dgoldberg, Sat Feb 21 19:09:53 2015 UTC
# Line 567  C The 0 is the "iteration" argument. The Line 567  C The 0 is the "iteration" argument. The
567    
568         CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )         CALL STREAMICE_UPD_FFRAC_UNCOUPLED ( myThid )
569         CALL STREAMICE_VELMASK_UPD (myThid)         CALL STREAMICE_VELMASK_UPD (myThid)
570    
571    #if (defined (ALLOW_OPENAD) && defined (ALLOW_STREAMICE_OAD_FP))
572    
573           CALL STREAMICE_VEL_SOLVE_OPENAD ( myThid,
574         &                           streamice_max_nl_iter,
575         &                           streamice_max_cg_iter,
576         &                           0 )
577    
578    #else
579    
580         CALL STREAMICE_VEL_SOLVE(         CALL STREAMICE_VEL_SOLVE(
581       &     myThid,       &     myThid,
582       &     streamice_max_nl_iter,       &     streamice_max_nl_iter,
# Line 574  C The 0 is the "iteration" argument. The Line 584  C The 0 is the "iteration" argument. The
584       &     0 )       &     0 )
585    
586  #endif  #endif
587    #endif
588    
589    
 !#endif  
590    
591        CALL WRITE_FLD_XY_RL ( "C_basal_fric", "",        CALL WRITE_FLD_XY_RL ( "C_basal_fric", "",
592       & C_basal_friction, 0, myThid )       & C_basal_friction, 0, myThid )
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22