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

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

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

revision 1.18 by gforget, Sun Nov 2 21:21:59 2014 UTC revision 1.19 by jmc, Thu Jan 22 18:21:45 2015 UTC
# Line 89  CEOP Line 89  CEOP
89    
90  C--   Initialise forcing arrays that may receive multiple contributions  C--   Initialise forcing arrays that may receive multiple contributions
91  #ifdef ALLOW_ADDFLUID  #ifdef ALLOW_ADDFLUID
92        IF ( addMassFile .EQ. ' ' ) THEN        IF ( selectAddFluid.NE.0 .AND. addMassFile.EQ.' ' ) THEN
93          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
94           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
95            DO k=1,Nr            DO k=1,Nr
# Line 105  C--   Initialise forcing arrays that may Line 105  C--   Initialise forcing arrays that may
105  #endif /* ALLOW_ADDFLUID */  #endif /* ALLOW_ADDFLUID */
106    
107  #ifdef ALLOW_FRICTION_HEATING  #ifdef ALLOW_FRICTION_HEATING
108        IF ( addFrictionHeating ) THEN        IF ( addFrictionHeating .AND. staggerTimeStep ) THEN
109          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
110           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
111            DO k=1,Nr            DO k=1,Nr
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22