source: LMDZ4/trunk/libf/phylmd/thermcell_out1d.h @ 996

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

Bascule de la physique du LMD vers la physique avec thermiques
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.