/[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.3 by jmc, Tue Jul 13 16:48:48 2004 UTC revision 1.4 by jmc, Sun Jul 18 01:04:23 2004 UTC
# Line 315  C       relaxation terms, etc. Line 315  C       relaxation terms, etc.
315    
316  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
317  cph needed for KPP  cph needed for KPP
318  CADJ STORE surfacetendencyU(:,:,bi,bj)  CADJ STORE surfaceForcingU(:,:,bi,bj)
319  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte
320  CADJ STORE surfacetendencyV(:,:,bi,bj)  CADJ STORE surfaceForcingV(:,:,bi,bj)
321  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte
322  CADJ STORE surfacetendencyS(:,:,bi,bj)  CADJ STORE surfaceForcingS(:,:,bi,bj)
323  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte
324  CADJ STORE surfacetendencyT(:,:,bi,bj)  CADJ STORE surfaceForcingT(:,:,bi,bj)
325  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte
326  # ifdef ALLOW_SEAICE  # ifdef ALLOW_SEAICE
327  CADJ STORE surfacetendencyTice(:,:,bi,bj)  CADJ STORE surfaceForcingTice(:,:,bi,bj)
328  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte  CADJ &     = comlev1_bibj, key=itdkey, byte=isbyte
329  # endif  # endif
330  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22