328 |
ENDIF |
ENDIF |
329 |
#endif /* ALLOW_ICEFRONT */ |
#endif /* ALLOW_ICEFRONT */ |
330 |
|
|
331 |
|
#ifdef ALLOW_SALT_PLUME |
332 |
|
IF ( useSALT_PLUME ) THEN |
333 |
|
CALL SALT_PLUME_DO_EXCH( myTime, myIter, myThid ) |
334 |
|
ENDIF |
335 |
|
#endif /* ALLOW_SALT_PLUME */ |
336 |
|
|
337 |
C-- Freeze water in the ocean interior and let it rise to the surface |
C-- Freeze water in the ocean interior and let it rise to the surface |
338 |
C temporarily exclude from adjoint computations until |
C temporarily exclude from adjoint computations until |
339 |
C impact has been vetted in forward integrations |
C impact has been vetted in forward integrations |