| File |
Line number |
Procedure |
Code |
|
./model/src/external_forcing.F |
291 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./model/src/external_forcing.F |
292 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./model/src/external_forcing.F |
297 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./model/src/external_forcing.F |
298 |
EXTERNAL_FORCING_T |
IF (klev.EQ.Nr) THEN |
|
./model/src/external_forcing.F |
299 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./model/src/external_forcing.F |
304 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
305 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
308 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |