[524] | 1 | ! |
---|
| 2 | ! $Header$ |
---|
| 3 | ! |
---|
| 4 | if (ok_regdyn) then |
---|
[634] | 5 | |
---|
| 6 | if (monocpu) then |
---|
[524] | 7 | |
---|
| 8 | c Comprendre comment marche el i=nint(zout/zsto) |
---|
| 9 | c |
---|
| 10 | ndex2d = 0 |
---|
| 11 | ndex3d = 0 |
---|
| 12 | c |
---|
| 13 | c itap = 0 |
---|
| 14 | c zsto = dtime * REAL(NINT(86400./dtime*ecrit_regdyn)) |
---|
| 15 | c zout = dtime * ecrit_mth |
---|
| 16 | |
---|
| 17 | c zsto = dtime |
---|
| 18 | c zout = dtime * ecrit_mth |
---|
| 19 | c zsto = dtime * REAL(NINT(86400./dtime*ecrit_regdyn)) |
---|
| 20 | itau_w = itau_phy + itap |
---|
| 21 | |
---|
| 22 | CALL histwrite(nid_regdyn,"hw1",itau_w,histoW(:,:,:,1), |
---|
| 23 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 24 | c |
---|
| 25 | CALL histwrite(nid_regdyn,"nh1",itau_w,nhistoW(:,:,:,1), |
---|
| 26 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 27 | c |
---|
| 28 | CALL histwrite(nid_regdyn,"nht1",itau_w,nhistoWt(:,:,:,1), |
---|
| 29 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 30 | c |
---|
| 31 | CALL histwrite(nid_regdyn,"hw2",itau_w,histoW(:,:,:,2), |
---|
| 32 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 33 | c |
---|
| 34 | CALL histwrite(nid_regdyn,"nh2",itau_w,nhistoW(:,:,:,2), |
---|
| 35 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 36 | c |
---|
| 37 | CALL histwrite(nid_regdyn,"nht2",itau_w,nhistoWt(:,:,:,2), |
---|
| 38 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 39 | c |
---|
| 40 | CALL histwrite(nid_regdyn,"hw3",itau_w,histoW(:,:,:,3), |
---|
| 41 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 42 | c |
---|
| 43 | CALL histwrite(nid_regdyn,"nh3",itau_w,nhistoW(:,:,:,3), |
---|
| 44 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 45 | c |
---|
| 46 | CALL histwrite(nid_regdyn,"nht3",itau_w,nhistoWt(:,:,:,3), |
---|
| 47 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 48 | c |
---|
| 49 | CALL histwrite(nid_regdyn,"hw4",itau_w,histoW(:,:,:,4), |
---|
| 50 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 51 | c |
---|
| 52 | CALL histwrite(nid_regdyn,"nh4",itau_w,nhistoW(:,:,:,4), |
---|
| 53 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 54 | c |
---|
| 55 | CALL histwrite(nid_regdyn,"nht4",itau_w,nhistoWt(:,:,:,4), |
---|
| 56 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 57 | c |
---|
| 58 | CALL histwrite(nid_regdyn,"hw5",itau_w,histoW(:,:,:,5), |
---|
| 59 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 60 | c |
---|
| 61 | CALL histwrite(nid_regdyn,"nh5",itau_w,nhistoW(:,:,:,5), |
---|
| 62 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 63 | c |
---|
| 64 | CALL histwrite(nid_regdyn,"nht5",itau_w,nhistoWt(:,:,:,5), |
---|
| 65 | & kmaxm1*lmaxm1*iwmax,ndex3d) |
---|
| 66 | |
---|
| 67 | if (ok_sync) then |
---|
| 68 | call histsync(nid_regdyn) |
---|
| 69 | endif |
---|
[634] | 70 | |
---|
| 71 | endif ! monocpu |
---|
[524] | 72 | |
---|
| 73 | endif |
---|