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

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

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

revision 1.8 by jmc, Fri Jul 11 18:43:41 2014 UTC revision 1.9 by jmc, Mon Jul 14 22:47:39 2014 UTC
# Line 390  C-    end of vertical index (k) loop (Nr Line 390  C-    end of vertical index (k) loop (Nr
390          IF ( usingPCoords ) THEN          IF ( usingPCoords ) THEN
391            CALL DWNSLP_APPLY(            CALL DWNSLP_APPLY(
392       I                  GAD_TEMPERATURE, bi, bj, kSurfC,       I                  GAD_TEMPERATURE, bi, bj, kSurfC,
393       I                  recip_drF, recip_hFacC, recip_rA,       I                  recip_drF, recip_hFac, recip_rA,
394       I                  dTtracerLev,       I                  dTtracerLev,
395       I                  theta,       I                  theta,
396       U                  gT,       U                  gT,
# Line 398  C-    end of vertical index (k) loop (Nr Line 398  C-    end of vertical index (k) loop (Nr
398          ELSE          ELSE
399            CALL DWNSLP_APPLY(            CALL DWNSLP_APPLY(
400       I                  GAD_TEMPERATURE, bi, bj, kLowC,       I                  GAD_TEMPERATURE, bi, bj, kLowC,
401       I                  recip_drF, recip_hFacC, recip_rA,       I                  recip_drF, recip_hFac, recip_rA,
402       I                  dTtracerLev,       I                  dTtracerLev,
403       I                  theta,       I                  theta,
404       U                  gT,       U                  gT,
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22