| File |
Line number |
Procedure |
Code |
|
./verification/flt_example/extra/cvprofiles.F |
180 |
NO PROCEDURE |
allocate (Dep_w(Nr+1)) |
|
./verification/flt_example/extra/cvprofiles.F |
223 |
NO PROCEDURE |
Dep_w(1)=0. |
|
./verification/flt_example/extra/cvprofiles.F |
226 |
NO PROCEDURE |
Dep_w(k)=Dep_w(k-1)+delZ(k-1) |
|
./verification/flt_example/extra/cvprofiles.F |
227 |
NO PROCEDURE |
if (k .ne. Nr+1) Dep_wm1(k) = Dep_w(k) |
|
./verification/flt_example/extra/cvprofiles.F |
231 |
NO PROCEDURE |
Dep_t(k)=(Dep_w(k)+Dep_w(k+1))*0.5 |
|
./verification/flt_example/extra/cvprofiles.F |
512 |
NO PROCEDURE |
call NCVPT(ncid, Dep_wid, corner, edges, Dep_w, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
64 |
NO PROCEDURE |
real, dimension(:), allocatable :: Dep_t, Dep_w, Dep_wm1 |