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

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

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

revision 1.26 by jmc, Wed Apr 6 18:46:34 2005 UTC revision 1.27 by jmc, Sun May 15 03:04:57 2005 UTC
# Line 58  C !LOCAL VARIABLES: ==================== Line 58  C !LOCAL VARIABLES: ====================
58  C     === Local variables ===  C     === Local variables ===
59  C     i,j,bi,bj - Loop counters  C     i,j,bi,bj - Loop counters
60        INTEGER i, j, bi, bj        INTEGER i, j, bi, bj
61        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
62        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
63  CEOP  CEOP
64    
65  #ifdef SEAICE_EXTERNAL_FORCING  #ifdef SEAICE_EXTERNAL_FORCING
# Line 109  CADJ STORE area  = comlev1, key = ikey_d Line 109  CADJ STORE area  = comlev1, key = ikey_d
109  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
110    
111  C solve ice momentum equations and calculate ocean surface stress  C solve ice momentum equations and calculate ocean surface stress
112        IF ( DIFF_BASE_MULTIPLE(        IF (
113       &     baseTime,SEAICE_deltaTdyn,myTime,SEAICE_deltaTtherm) ) THEN       &  DIFFERENT_MULTIPLE(SEAICE_deltaTdyn,myTime,SEAICE_deltaTtherm)
114         &   ) THEN
115           CALL TIMER_START('DYNSOLVER          [SEAICE_MODEL]',myThid)           CALL TIMER_START('DYNSOLVER          [SEAICE_MODEL]',myThid)
116           CALL DYNSOLVER ( myTime, myIter, myThid )           CALL DYNSOLVER ( myTime, myIter, myThid )
117           CALL TIMER_STOP ('DYNSOLVER          [SEAICE_MODEL]',myThid)           CALL TIMER_STOP ('DYNSOLVER          [SEAICE_MODEL]',myThid)
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22