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

Diff of /MITgcm_contrib/shelfice_remeshing/AUTO/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:35 2015 UTC revision 1.2 by dgoldberg, Fri Sep 25 10:27:16 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.2
  ViewVC Help
Powered by ViewVC 1.1.22