source: trunk/WRF.COMMON/WRFV2/mars_lmd/libf/phymars/fill_save_2d.F90 @ 3428

Last change on this file since 3428 was 11, checked in by aslmd, 14 years ago

spiga@svn-planeto:ajoute le modele meso-echelle martien
File size: 606 bytes
Line 
1SUBROUTINE fill_save_2d( &
2tsurf,&
3fluxsurf_sw_tot,&
4fluxsurf_lw,&
5ust,&
6hfx,&
7ngrid,&
8output_tab2d)
9   
10IMPLICIT NONE
11   
12include "wrf_output_2d.h"
13   
14INTEGER :: ngrid
15REAL, DIMENSION(ngrid) :: tsurf
16REAL, DIMENSION(ngrid) :: fluxsurf_sw_tot
17REAL, DIMENSION(ngrid) :: fluxsurf_lw
18REAL, DIMENSION(ngrid) :: ust
19REAL, DIMENSION(ngrid) :: hfx
20REAL, DIMENSION(ngrid,n2d) :: output_tab2d
21   
22output_tab2d(:,ind_TSURF)=tsurf(:)
23output_tab2d(:,ind_SWDOWN)=fluxsurf_sw_tot(:)
24output_tab2d(:,ind_LWDOWN)=fluxsurf_lw(:)
25output_tab2d(:,ind_UST)=ust(:)
26output_tab2d(:,ind_HFX)=hfx(:)
27   
28END SUBROUTINE fill_save_2d
Note: See TracBrowser for help on using the repository browser.