The last line of 'trunk/ROMS/Functionals/ana_m2clima.h', before CLIMA(ng) %vbarclm), should be an '&' instead of a '%'. I got it fixed after the change.
Code: Select all
#ifdef DISTRIBUTE
CALL mp_exchange2d (ng, tile, model, 2, &
& LBi, UBi, LBj, UBj, &
& NghostPoints, &
& EWperiodic(ng), NSperiodic(ng), &
& CLIMA(ng) % ubarclm, &
% CLIMA(ng) % vbarclm)
#endif
Code: Select all
#ifdef DISTRIBUTE
CALL mp_exchange2d (ng, tile, model, 2, &
& LBi, UBi, LBj, UBj, &
& NghostPoints, &
& EWperiodic(ng), NSperiodic(ng), &
& CLIMA(ng) % ubarclm, &
& CLIMA(ng) % vbarclm)
#endif
Arthur Ramos