| 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 ') |
|---|
