/[MITgcm]/MITgcm/model/src/do_oceanic_phys.F
ViewVC logotype

Diff of /MITgcm/model/src/do_oceanic_phys.F

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

revision 1.42 by heimbach, Tue Apr 24 18:45:11 2007 UTC revision 1.45 by jmc, Fri May 4 18:27:14 2007 UTC
# Line 151  CADJ STORE evap                = comlev1 Line 151  CADJ STORE evap                = comlev1
151  cph# endif  cph# endif
152  cph# ifdef SEAICE_ALLOW_DYNAMICS  cph# ifdef SEAICE_ALLOW_DYNAMICS
153  CADJ STORE uvel,vvel           = comlev1, key = ikey_dynamics  CADJ STORE uvel,vvel           = comlev1, key = ikey_dynamics
154    CADJ STORE uice,vice           = comlev1, key = ikey_dynamics
155    CADJ STORE zeta, eta           = comlev1, key = ikey_dynamics
156  cph# endif  cph# endif
157  # ifdef SEAICE_CGRID  # ifdef SEAICE_CGRID
158  CADJ STORE fu, fv              = comlev1, key = ikey_dynamics  CADJ STORE fu, fv              = comlev1, key = ikey_dynamics
# Line 517  C--     Compute KPP mixing coefficients Line 519  C--     Compute KPP mixing coefficients
519       &     CALL DEBUG_CALL('KPP_CALC',myThid)       &     CALL DEBUG_CALL('KPP_CALC',myThid)
520  #endif  #endif
521            CALL KPP_CALC(            CALL KPP_CALC(
522       I                  bi, bj, myTime, myThid )       I                  bi, bj, myTime, myIter, myThid )
523  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
524          ELSE          ELSE
525            CALL KPP_CALC_DUMMY(            CALL KPP_CALC_DUMMY(
526       I                  bi, bj, myTime, myThid )       I                  bi, bj, myTime, myIter, myThid )
527  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
528          ENDIF          ENDIF
529    
# Line 595  C--   end bi,bj loops. Line 597  C--   end bi,bj loops.
597         ENDDO         ENDDO
598        ENDDO        ENDDO
599    
600    #ifdef  ALLOW_KPP
601          IF (useKPP) THEN
602            CALL KPP_DO_EXCH( myThid )
603          ENDIF
604    #endif  /* ALLOW_KPP */
605    
606  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
607        IF ( fluidIsWater .AND. useDiagnostics ) THEN        IF ( fluidIsWater .AND. useDiagnostics ) THEN
608          CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid )          CALL DIAGS_OCEANIC_SURF_FLUX( myTime, myIter, myThid )
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.22