| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_init.F |
26 |
MNC_INIT |
integer i,j, g, v |
|
./pkg/mnc/mnc_init.F |
50 |
MNC_INIT |
DO g = 1,MNC_MAX_ID |
|
./pkg/mnc/mnc_init.F |
51 |
MNC_INIT |
mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
52 |
MNC_INIT |
mnc_cw_vname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
53 |
MNC_INIT |
mnc_cw_vgind(g) = 0 |
|
./pkg/mnc/mnc_init.F |
54 |
MNC_INIT |
mnc_cw_ndim(g) = 0 |
|
./pkg/mnc/mnc_init.F |
55 |
MNC_INIT |
mnc_cw_fgnm(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
56 |
MNC_INIT |
mnc_cw_fgud(g) = 0 |
|
./pkg/mnc/mnc_init.F |
57 |
MNC_INIT |
mnc_cw_fgis(g) = 0 |
|
./pkg/mnc/mnc_init.F |
60 |
MNC_INIT |
mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
61 |
MNC_INIT |
mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
62 |
MNC_INIT |
mnc_cw_vinm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
63 |
MNC_INIT |
mnc_cw_vdnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
64 |
MNC_INIT |
mnc_cw_vtat(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
./pkg/mnc/mnc_init.F |
65 |
MNC_INIT |
mnc_cw_dims(i,g) = 0 |
|
./pkg/mnc/mnc_init.F |
66 |
MNC_INIT |
mnc_cw_is(i,g) = 0 |
|
./pkg/mnc/mnc_init.F |
67 |
MNC_INIT |
mnc_cw_ie(i,g) = 0 |
|
./pkg/mnc/mnc_init.F |
68 |
MNC_INIT |
mnc_cw_viat(i,g) = 0 |
|
./pkg/mnc/mnc_init.F |
69 |
MNC_INIT |
mnc_cw_vdat(i,g) = 0.0D0 |
|
./pkg/mnc/mnc_init.F |
72 |
MNC_INIT |
mnc_cw_vnat(i,g) = 0 |
|
./pkg/mnc/mnc_init.F |
75 |
MNC_INIT |
mnc_cw_vbij(i,g) = 0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
368 |
GWDD |
_RL a,g,agrav,akwnmb |
|
./pkg/fizhi/fizhi_gwdrag.F |
376 |
GWDD |
g = 1.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
460 |
GWDD |
gstar = g*frsf*frsf/(frsf*frsf+a*a) |