LOGICAL useCAL
& useCAL, useEXF, useBulkForce, useEBM, useCheapAML,
IF ( useCAL ) THEN
useCAL =.FALSE.
IF (useEXF) useCAL = .TRUE.
useCAL = .TRUE.
IF ( useCAL ) CALL CAL_READPARMS( myThid )