& useCoriolis, use3dCoriolis,
LOGICAL use3dCoriolis
IF ( use3dCoriolis ) THEN
IF ( use3dCoriolis .AND. k.GT.1 ) THEN
CALL WRITE_0D_L( use3dCoriolis, INDEX_NONE,
IF ( .NOT.anglesAreSet .AND. use3dCoriolis ) THEN
& use3dCoriolis = .FALSE.
& .AND. fPrime.EQ.0. ) use3dCoriolis = .FALSE.
& useConstantF, useBetaPlaneF, useSphereF, use3dCoriolis,
use3dCoriolis = .TRUE.
use3dCoriolis= useCoriolis .AND. use3dCoriolis