264 |
CALL CALC_EP_FORCING(myThid) |
CALL CALC_EP_FORCING(myThid) |
265 |
#endif |
#endif |
266 |
|
|
267 |
|
#ifdef ALLOW_AUTODIFF_MONITOR_DIAG |
268 |
|
CALL DUMMY_IN_DYNAMICS( mytime, myiter, myThid ) |
269 |
|
#endif |
270 |
|
|
271 |
#ifdef ALLOW_AUTODIFF_TAMC |
#ifdef ALLOW_AUTODIFF_TAMC |
272 |
C-- HPF directive to help TAMC |
C-- HPF directive to help TAMC |
273 |
CHPF$ INDEPENDENT |
CHPF$ INDEPENDENT |
664 |
|
|
665 |
#ifdef ALLOW_OBCS |
#ifdef ALLOW_OBCS |
666 |
IF (useOBCS) THEN |
IF (useOBCS) THEN |
667 |
CALL OBCS_PRESCRIBE_EXCHANGES(myThid) |
CALL OBCS_EXCHANGES( myThid ) |
668 |
ENDIF |
ENDIF |
669 |
#endif |
#endif |
670 |
|
|