source: trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_save_restart.F @ 706

Last change on this file since 706 was 675, checked in by acolaitis, 13 years ago

Seems like I forgot an include in the previous commit, sorry
File size: 312 bytes
Line 
1! Save soil temperatures
2       IF (callsoil) THEN
3           wtsoil(:,:)=tsoil(:,:)
4       ENDIF
5! Save fluxrad
6       wfluxrad(:)=fluxrad(:)
7! Save co2ice if changed
8       wco2ice(:)=co2ice(:)
9! Save q2
10       wq2(:,:)=q2(:,:)
11! Save qsurf
12       wqsurf(:,:)=qsurf(:,:)
13! Save wstar
14       wwstar(:)=wstar(:)
Note: See TracBrowser for help on using the repository browser.