/[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.6 by mlosch, Thu Sep 2 09:13:49 2004 UTC revision 1.7 by edhill, Tue Sep 7 17:29:14 2004 UTC
# Line 129  CADJ STORE theta = comlev1, key = ikey_d Line 129  CADJ STORE theta = comlev1, key = ikey_d
129  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
130  # ifndef ALLOW_AIM  # ifndef ALLOW_AIM
131  C--    Apply imported data (from coupled interface) to forcing fields  C--    Apply imported data (from coupled interface) to forcing fields
132  C jmc: don't know precisely where to put this call (bf or af thSIce ?)  C jmc: do not know precisely where to put this call (bf or af thSIce ?)
133         IF ( useCoupler ) THEN         IF ( useCoupler ) THEN
134           CALL OCN_APPLY_IMPORT( .TRUE., myTime, myIter, myThid )           CALL OCN_APPLY_IMPORT( .TRUE., myTime, myIter, myThid )
135         ENDIF         ENDIF
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22