| [5099] | 1 | |
|---|
| [524] | 2 | ! $Header$ |
|---|
| [5099] | 3 | |
|---|
| [5128] | 4 | IF (ok_regdyn) THEN |
|---|
| 5 | IF (is_sequential) THEN |
|---|
| 6 | ndex3d = 0 |
|---|
| 7 | itau_w = itau_phy + itap + start_time * day_step / iphysiq |
|---|
| [5159] | 8 | |
|---|
| [5128] | 9 | CALL histwrite(nid_regdyn,"hw1",itau_w,histoW(:,:,:,1), & |
|---|
| 10 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 11 | |
|---|
| [5128] | 12 | CALL histwrite(nid_regdyn,"nh1",itau_w,nhistoW(:,:,:,1), & |
|---|
| 13 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 14 | |
|---|
| [5128] | 15 | CALL histwrite(nid_regdyn,"nht1",itau_w,nhistoWt(:,:,:,1), & |
|---|
| 16 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 17 | |
|---|
| [5128] | 18 | CALL histwrite(nid_regdyn,"hw2",itau_w,histoW(:,:,:,2), & |
|---|
| 19 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 20 | |
|---|
| [5128] | 21 | CALL histwrite(nid_regdyn,"nh2",itau_w,nhistoW(:,:,:,2), & |
|---|
| 22 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 23 | |
|---|
| [5128] | 24 | CALL histwrite(nid_regdyn,"nht2",itau_w,nhistoWt(:,:,:,2), & |
|---|
| 25 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 26 | |
|---|
| [5128] | 27 | CALL histwrite(nid_regdyn,"hw3",itau_w,histoW(:,:,:,3), & |
|---|
| 28 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 29 | |
|---|
| [5128] | 30 | CALL histwrite(nid_regdyn,"nh3",itau_w,nhistoW(:,:,:,3), & |
|---|
| 31 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 32 | |
|---|
| [5128] | 33 | CALL histwrite(nid_regdyn,"nht3",itau_w,nhistoWt(:,:,:,3), & |
|---|
| 34 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 35 | |
|---|
| [5128] | 36 | CALL histwrite(nid_regdyn,"hw4",itau_w,histoW(:,:,:,4), & |
|---|
| 37 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 38 | |
|---|
| [5128] | 39 | CALL histwrite(nid_regdyn,"nh4",itau_w,nhistoW(:,:,:,4), & |
|---|
| 40 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 41 | |
|---|
| [5128] | 42 | CALL histwrite(nid_regdyn,"nht4",itau_w,nhistoWt(:,:,:,4), & |
|---|
| 43 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 44 | |
|---|
| [5128] | 45 | CALL histwrite(nid_regdyn,"hw5",itau_w,histoW(:,:,:,5), & |
|---|
| 46 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 47 | |
|---|
| [5128] | 48 | CALL histwrite(nid_regdyn,"nh5",itau_w,nhistoW(:,:,:,5), & |
|---|
| 49 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [5159] | 50 | |
|---|
| [5128] | 51 | CALL histwrite(nid_regdyn,"nht5",itau_w,nhistoWt(:,:,:,5), & |
|---|
| 52 | kmaxm1*lmaxm1*iwmax,ndex3d) |
|---|
| [524] | 53 | |
|---|
| [5128] | 54 | IF (ok_sync) THEN |
|---|
| 55 | CALL histsync(nid_regdyn) |
|---|
| 56 | endif |
|---|
| [524] | 57 | |
|---|
| [5128] | 58 | endif ! is_sequential |
|---|
| [766] | 59 | |
|---|
| [5128] | 60 | endif |
|---|
