/[MITgcm]/MITgcm_contrib/bling/pkg/bling_fields_load.F
ViewVC logotype

Diff of /MITgcm_contrib/bling/pkg/bling_fields_load.F

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

revision 1.1 by mmazloff, Fri May 23 17:33:42 2014 UTC revision 1.2 by mmazloff, Sun Feb 28 21:49:24 2016 UTC
# Line 68  C--   Now calculate whether it is time t Line 68  C--   Now calculate whether it is time t
68         ENDIF         ENDIF
69  #endif /* ALLOW_DEBUG */  #endif /* ALLOW_DEBUG */
70    
71  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF
72  C-    assuming that we call S/R BLING_FIELDS_LOAD at each time-step and  C-    assuming that we call S/R BLING_FIELDS_LOAD at each time-step and
73  C     with increasing time, this will catch when we need to load new records;  C     with increasing time, this will catch when we need to load new records;
74  C     But with Adjoint run, this is not always the case => might end-up using  C     But with Adjoint run, this is not always the case => might end-up using
75  C     the wrong time-records  C     the wrong time-records
76         IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN         IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN
77  #else /* ALLOW_AUTODIFF_TAMC */  #else /* ALLOW_AUTODIFF */
78  C-    Make no assumption on sequence of calls to BLING_FIELDS_LOAD ;  C-    Make no assumption on sequence of calls to BLING_FIELDS_LOAD ;
79  C     This is the correct formulation (works in Adjoint run).  C     This is the correct formulation (works in Adjoint run).
80  C     Unfortunatly, produces many recomputations <== not used until it is fixed  C     Unfortunatly, produces many recomputations <== not used until it is fixed
81         IF ( intime1.NE.BLING_ldRec(bi,bj) ) THEN         IF ( intime1.NE.BLING_ldRec(bi,bj) ) THEN
82  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF */
83    
84  C--   If the above condition is met then we need to read in  C--   If the above condition is met then we need to read in
85  C     data for the period ahead and the period behind myTime.  C     data for the period ahead and the period behind myTime.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22