| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1137 |
TURBIO |
fcctmp(i,1,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1163 |
TURBIO |
& fcctmp(1,1,L),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1170 |
TURBIO |
call CTEI ( tz,qz,fcctmp,qliqtmp,plz,pkz,pkht,im*jm,nlay ) |
|
./pkg/fizhi/fizhi_turb.F |
1176 |
TURBIO |
fccavesw(i,1,L) = fccavesw(i,1,L) + fcctmp(i,1,L) |
|
./pkg/fizhi/fizhi_turb.F |
1177 |
TURBIO |
fccavelw(i,1,L) = fccavelw(i,1,L) + fcctmp(i,1,L) |
|
./pkg/fizhi/fizhi_turb.F |
1183 |
TURBIO |
CALL DIAGNOSTICS_FILL(fcctmp,'TRBFCC ',0,nlay,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_turb.F |
161 |
TURBIO |
_RL fcctmp(im*jm,1,nlay) |