/[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.96 by jmc, Thu Nov 18 00:57:24 2010 UTC revision 1.97 by heimbach, Tue Jan 18 21:04:35 2011 UTC
# Line 613  CADJ &     kind = isbyte Line 613  CADJ &     kind = isbyte
613  CADJ STORE recip_hFacC(:,:,:,bi,bj)  CADJ STORE recip_hFacC(:,:,:,bi,bj)
614  CADJ &     = comlev1_bibj, key=itdkey,  CADJ &     = comlev1_bibj, key=itdkey,
615  CADJ &     kind = isbyte  CADJ &     kind = isbyte
616  # endif  #  if (defined (ALLOW_PTRACERS))
617    CADJ STORE surfaceForcingS(:,:,bi,bj)   = comlev1_bibj, key=itdkey,
618    CADJ &     kind = isbyte
619    CADJ STORE surfaceForcingT(:,:,bi,bj)   = comlev1_bibj, key=itdkey,
620    CADJ &     kind = isbyte
621    #  endif /* ALLOW_PTRACERS */
622    # endif /* NONLIN_FRSURF */
623  #endif  #endif
624          CALL EXTERNAL_FORCING_SURF(          CALL EXTERNAL_FORCING_SURF(
625       I             bi, bj, iMin, iMax, jMin, jMax,       I             bi, bj, iMin, iMax, jMin, jMax,
Legend:
Removed from v.1.96  
changed lines
  Added in v.1.97
  ViewVC Help
Powered by ViewVC 1.1.22