269 |
|
|
270 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
271 |
call diagnostics_fill(uphy,'UAVE ',0,Nrphys,0,1,1,myThid) |
call diagnostics_fill(uphy,'UAVE ',0,Nrphys,0,1,1,myThid) |
272 |
call diagnostics_fill(vphy,'UAVE ',0,Nrphys,0,1,1,myThid) |
call diagnostics_fill(vphy,'VAVE ',0,Nrphys,0,1,1,myThid) |
273 |
call diagnostics_fill(thphy,'TAVE ',0,Nrphys,0,1,1,myThid) |
call diagnostics_fill(thphy,'TAVE ',0,Nrphys,0,1,1,myThid) |
274 |
call diagnostics_fill(sphy,'QAVE ',0,Nrphys,0,1,1,myThid) |
call diagnostics_fill(sphy,'QAVE ',0,Nrphys,0,1,1,myThid) |
275 |
#endif |
#endif |