Changeset 120


Ignore:
Timestamp:
06/22/17 17:08:18 (7 years ago)
Author:
aquiquet
Message:

Water budget outputs for the Hemin40 geometry

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/SOURCES/Hemin40_files/output_hemin40_mod.f90

    r65 r120  
    22 
    33       USE module3D_phy 
     4       use bilan_eau_mod 
    45 
    56implicit none 
     
    375376  isvol(11),inp(11),isvolf(11),inf(11),isacc(11),isabl(11),isablbord(11),ablatot(11),iscalv(11),isbm(11),itjjamean_(11),hmean_(11),hmax_(11), & ! 13 
    376377  isvol(12),inp(12),isvolf(12),inf(12),isacc(12),isabl(12),isablbord(12),ablatot(12),iscalv(12),isbm(12),itjjamean_(12),hmean_(12),hmax_(12), & ! 13 
    377   isvol(13),inp(13),isvolf(13),inf(13),isacc(13),isabl(13),isablbord(13),ablatot(13),iscalv(13),isbm(13),itjjamean_(13),hmean_(13),hmax_(13) ! 13 
     378  isvol(13),inp(13),isvolf(13),inf(13),isacc(13),isabl(13),isablbord(13),ablatot(13),iscalv(13),isbm(13),itjjamean_(13),hmean_(13),hmax_(13), & ! 13 
     379  diff_H, water_bilan, sum(calv_dtt(:,:))/dtt, sum(ablbord_dtt(:,:))/dtt, sum(Bm_dtt(:,:))/dtt, sum(bmelt_dtt(:,:))/dtt !6 
    378380 
    379381  
     
    381383 
    382384905 format(f9.1,1x, e11.4,1x,e11.5, 1x,i5, 1x,e10.4,1x,i5 , 6(1x,e12.5), & 
    383          12(2(1x,e10.4,1x,i5), 9(1x,e11.4) ) )  
     385         12(2(1x,e10.4,1x,i5), 9(1x,e11.4) ) , 6(1x,e15.8))  
    384386  
    385387     
Note: See TracChangeset for help on using the changeset viewer.