/[MITgcm]/MITgcm_contrib/shelfice_remeshing/MANUAL/code/shelfice_remeshing.F
ViewVC logotype

Diff of /MITgcm_contrib/shelfice_remeshing/MANUAL/code/shelfice_remeshing.F

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

revision 1.1 by dgoldberg, Thu Sep 10 14:56:37 2015 UTC revision 1.3 by dgoldberg, Tue Oct 13 15:54:41 2015 UTC
# Line 42  C     === Global variables === Line 42  C     === Global variables ===
42       &      .NE. 0.0        ) THEN       &      .NE. 0.0        ) THEN
43    
44    
45         CALL INI_MASKS_ETC_JJ (myThid)           CALL INI_MASKS_ETC_JJ (myThid)
46             CALL SHELFICE_INIT_FIXED_JJ ( myThid)
47         CALL   OBCS_INIT_FIXED( myThid )           CALL OBCS_INIT_FIXED( myThid )
48             CALL INI_LINEAR_PHISURF(myThid)
49         CALL INI_LINEAR_PHISURF(myThid)           CALL INI_CG2D (myThid)
50             CALL CALC_SURF_DR_JJ( etaH, myTime, myIter, myThid )
51         CALL INI_CG2D (myThid)           CALL CALC_SURF_DR_JJ( etaH, myTime, myIter, myThid )
52             CALL UPDATE_SURF_DR(.FALSE., myTime, myIter, myThid)
53         CALL CALC_SURF_DR( etaH, myTime, myIter, myThid )           CALL UPDATE_CG2D(myTime,myIter, myThid)
54         CALL CALC_SURF_DR( etaH, myTime, myIter, myThid )           CALL INTEGR_CONTINUITY (uVel ,vVel , starttime, myIter, myThid)
55            
        CALL UPDATE_SURF_DR(.FALSE., myTime, myIter, myThid)  
       
        CALL UPDATE_CG2D(myTime,myIter, myThid)  
   
        CALL INTEGR_CONTINUITY (uVel ,vVel , starttime, myIter, myThid)  
     
   
   
   
56           ENDIF           ENDIF
57  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
58    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22