511 |
C-- Freeze water |
C-- Freeze water |
512 |
IF (allowFreezing) |
IF (allowFreezing) |
513 |
& CALL FREEZE( bi, bj, iMin, iMax, jMin, jMax, K, myThid ) |
& CALL FREEZE( bi, bj, iMin, iMax, jMin, jMax, K, myThid ) |
514 |
|
|
515 |
|
#ifdef DIVG_IN_DYNAMICS |
516 |
C-- Diagnose barotropic divergence of predicted fields |
C-- Diagnose barotropic divergence of predicted fields |
517 |
CALL CALC_DIV_GHAT( |
CALL CALC_DIV_GHAT( |
518 |
I bi,bj,iMin,iMax,jMin,jMax,K, |
I bi,bj,iMin,iMax,jMin,jMax,K, |
519 |
I xA,yA, |
I xA,yA, |
520 |
I myThid) |
I myThid) |
521 |
|
#endif /* DIVG_IN_DYNAMICS */ |
522 |
|
|
523 |
C-- Cumulative diagnostic calculations (ie. time-averaging) |
C-- Cumulative diagnostic calculations (ie. time-averaging) |
524 |
#ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE |
#ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE |