| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1975 |
DELEDD |
_RL zero,one,two,three,four,fourth,seven,tumin |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1978 |
DELEDD |
parameter (four=4., fourth=.25) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2013 |
DELEDD |
gm1 = (seven - sscp*(four+xx))*fourth |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2014 |
DELEDD |
gm2 = -(one - sscp*(four-xx))*fourth |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2099 |
SAGPOL |
_RL one,three,four |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2100 |
SAGPOL |
parameter (one=1., three=3., four=4.) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2123 |
SAGPOL |
tll = uuu*four*emt *st1 |
|
./pkg/fizhi/fizhi_swrad.F |
1974 |
DELEDD |
_RL zero,one,two,three,four,fourth,seven,tumin |
|
./pkg/fizhi/fizhi_swrad.F |
1977 |
DELEDD |
parameter (four=4., fourth=.25) |
|
./pkg/fizhi/fizhi_swrad.F |
2012 |
DELEDD |
gm1 = (seven - sscp*(four+xx))*fourth |
|
./pkg/fizhi/fizhi_swrad.F |
2013 |
DELEDD |
gm2 = -(one - sscp*(four-xx))*fourth |
|
./pkg/fizhi/fizhi_swrad.F |
2098 |
SAGPOL |
_RL one,three,four |
|
./pkg/fizhi/fizhi_swrad.F |
2099 |
SAGPOL |
parameter (one=1., three=3., four=4.) |
|
./pkg/fizhi/fizhi_swrad.F |
2122 |
SAGPOL |
tll = uuu*four*emt *st1 |
|
./pkg/seaice/seaice_get_forcing.F |
50 |
SEAICE_GET_FORCING |
_RL year, seconds, YearTime, four |
|
./pkg/seaice/seaice_get_forcing.F |
56 |
SEAICE_GET_FORCING |
four = 4.0 |
|
./pkg/seaice/seaice_get_forcing.F |
61 |
SEAICE_GET_FORCING |
if( mod(year,four) .eq. 0. ) then |