Code: Select all
CASE ('Ubar') ! 2D U-momentum
CALL ROMS_export2d (ng, tile, &
& id, gtype, scale, add_offset, &
& LBi, UBi, LBj, UBj, &
#ifdef SOLVE3D
& OCEAN(ng)%u(:,:,N(ng),NOUT), &
#else
& OCEAN(ng)%ubar(:,:,KOUT), &
#endif
& Fields(id)%ExpMin, Fields(id)%ExpMax, &
& Asize, A, &
& status)
-J