& , Npower(2)
& , Npower
COMMON /SALT_PLUME_PARAMS_I/ CriterionType, PlumeMethod, Npower
Npowerloc = Npower(2)
& .AND. lon(imax) .LT. -90.0) Npowerloc = Npower(1)
Npowerloc = Npower(1)
Npowerloc = Npower
& CriterionType, PlumeMethod, Npower,
Npower(1) = 0
Npower(2) = 0
Npower = 0