%This file reads surface radiation output from a climate model (CESM)
%and makes a worlmap plot of the values.
%
% Available variables; 
% FSR: reflected shortwave
% FSA: absorbed shortwave
% FIRA: net longwave out
% FIRE: emitted long wave out

% navn på filen som skal leses
fil='cesm_june.nc'; % eller: 'cesm_january.nc'
variabel='FSA';        % velg variabel som skal plottes

%programmet les_netcdf.m leser inn data fra netcdf-fila
[data,latlim,lonlim]=les_netcdf(fil,variabel);

% Plot data: velg mellom en av plottefunksjonene under, avh av maskinen du
% sitter ved (kommenter de andre)

figure;

%alternativ 1:
%worldmap(latlim, lonlim);
%contourfm(latlim,lonlim,flipud(rot90(data)),20);shading flat %veldig treig funksjon

%Alternativ 2:
%contourf(flipud(rot90(data)),20);colorbar('SouthOutside');

%Alternativ 3:
pcolor(flipud(rot90(data)));shading flat

% Legg til colorbar og tittel:
colorbar('SouthOutside');
title(['CESM ',variabel,' (W/m²)'],'FontWeight','bold','FontSize',14)

