| 1 | ! define time axis |
|---|
| 2 | it= kt-nit000+1 |
|---|
| 3 | IF( lwp .AND. MOD( kt, ntrd ) == 0 ) THEN |
|---|
| 4 | |
|---|
| 5 | WRITE(numout,*) ' diavor : write NetCDF fields' |
|---|
| 6 | ENDIF |
|---|
| 7 | |
|---|
| 8 | |
|---|
| 9 | CALL histwrite( nidvor,"sovortPh",it,vortrd(:,:,1),ndimvor1,ndexvor1) ! grad Ph |
|---|
| 10 | CALL histwrite( nidvor,"sovortEk",it,vortrd(:,:,2),ndimvor1,ndexvor1) ! Energy |
|---|
| 11 | CALL histwrite( nidvor,"sovozeta",it,vortrd(:,:,3),ndimvor1,ndexvor1) ! rel vorticity |
|---|
| 12 | CALL histwrite( nidvor,"sovortif",it,vortrd(:,:,4),ndimvor1,ndexvor1) ! coriolis |
|---|
| 13 | CALL histwrite( nidvor,"sovodifl",it,vortrd(:,:,5),ndimvor1,ndexvor1) ! lat diff |
|---|
| 14 | CALL histwrite( nidvor,"sovoadvv",it,vortrd(:,:,6),ndimvor1,ndexvor1) ! vert adv |
|---|
| 15 | CALL histwrite( nidvor,"sovodifv",it,vortrd(:,:,7),ndimvor1,ndexvor1) ! vert diff |
|---|
| 16 | CALL histwrite( nidvor,"sovortPs",it,vortrd(:,:,8),ndimvor1,ndexvor1) ! grad Ps |
|---|
| 17 | CALL histwrite( nidvor,"sovortbv",it,vortrd(:,:,9),ndimvor1,ndexvor1) ! beta.V |
|---|
| 18 | CALL histwrite( nidvor,"sovowind",it,vortrd(:,:,10),ndimvor1,ndexvor1) ! wind stress |
|---|
| 19 | CALL histwrite( nidvor,"sovobfri",it,vortrd(:,:,11),ndimvor1,ndexvor1) ! bottom friction |
|---|
| 20 | CALL histwrite( nidvor,"1st_mbre",it,vor_avrtot ,ndimvor1,ndexvor1) ! First membre |
|---|
| 21 | CALL histwrite( nidvor,"sovorgap",it,vor_avrres ,ndimvor1,ndexvor1) ! gap between 1st and 2 nd mbre |
|---|
