source: LMDZ4/trunk/libf/phytherm/thermcell_out1d.h @ 1080

Last change on this file since 1080 was 814, checked in by Laurent Fairhead, 17 years ago

Rajout de la physique utilisant les thermiques FH
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.2 KB
Line 
1      CALL writeg1d(1,nlay,fraca,'fraca      ','fraca      ')
2      CALL writeg1d(1,nlay,pt,'pt      ','pt      ')
3      CALL writeg1d(1,nlay,zh,'zh      ','zh      ')
4      CALL writeg1d(1,nlay,zha,'zha      ','zha      ')
5      CALL writeg1d(1,nlay,zu,'zu      ','zu      ')
6      CALL writeg1d(1,nlay,zv,'zv      ','zv      ')
7      CALL writeg1d(1,nlay,zo,'zo      ','zo      ')
8      CALL writeg1d(1,nlay,zdhadj,'zdhadj      ','zdhadj      ')
9      CALL writeg1d(1,nlay,pduadj,'pduadj      ','pduadj      ')
10      CALL writeg1d(1,nlay,pdvadj,'pdvadj      ','pdvadj      ')
11      CALL writeg1d(1,nlay,pdoadj,'pdoadj      ','pdoadj      ')
12      CALL writeg1d(1,nlay,entr  ,'entr        ','entr        ')
13      CALL writeg1d(1,nlay,detr  ,'detr        ','detr        ')
14      CALL writeg1d(1,nlay,fm    ,'fm          ','fm          ')
15
16      CALL writeg1d(1,nlay,pdtadj,'pdtadj    ','pdtadj    ')
17      CALL writeg1d(1,nlay,pplay,'pplay     ','pplay     ')
18      CALL writeg1d(1,nlay,pplev,'pplev     ','pplev     ')
19
20!   recalcul des flux en diagnostique...
21!     print*,'PAS DE TEMPS ',ptimestep
22!       call dt2F(pplev,pplay,pt,pdtadj,wh)
23!      CALL writeg1d(1,nlay,wh,'wh2     ','wh2     ')
Note: See TracBrowser for help on using the repository browser.