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

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

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

revision 1.39 by heimbach, Fri Jul 13 14:26:57 2001 UTC revision 1.40 by heimbach, Mon Jul 30 20:39:18 2001 UTC
# Line 67  C--   Set model configuration (fixed arr Line 67  C--   Set model configuration (fixed arr
67        myCurrentTime = startTime        myCurrentTime = startTime
68        myCurrentIter = nIter0        myCurrentIter = nIter0
69    
70  #ifdef ALLOW_ADJOINT_RUN  #if ( defined (ALLOW_ADJOINT_RUN) || \
71          defined (ALLOW_GRADIENT_CHECK) || \
72          defined (ALLOW_ECCO_OPTIMIZATION) )
73    
74        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
75        IF (myProcId .eq. 0) THEN        IF (myProcId .eq. 0) THEN
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40
  ViewVC Help
Powered by ViewVC 1.1.22