58 |
_RL dEvdT |
_RL dEvdT |
59 |
CEOP |
CEOP |
60 |
|
|
|
#ifdef ALLOW_THSICE |
|
61 |
#ifdef ALLOW_EXF |
#ifdef ALLOW_EXF |
62 |
|
#ifdef ALLOW_ATM_TEMP |
63 |
|
|
64 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
65 |
C === Local variables === |
C === Local variables === |
287 |
C-- Total derivative with respect to surface temperature |
C-- Total derivative with respect to surface temperature |
288 |
df0dT = -dflwupdT+dfshdT+dflhdT |
df0dT = -dflwupdT+dfshdT+dflhdT |
289 |
|
|
290 |
|
#ifdef ALLOW_DOWNWARD_RADIATION |
291 |
flwNet_dwn = lwdown(i,j,bi,bj) - flwup |
flwNet_dwn = lwdown(i,j,bi,bj) - flwup |
292 |
|
#else |
293 |
|
STOP 'ABNORMAL END: S/R THSICE_GET_EXF: DOWNWARD_RADIATION undef' |
294 |
|
#endif |
295 |
flxExceptSw = flwNet_dwn + hsLocal + hlLocal |
flxExceptSw = flwNet_dwn + hsLocal + hlLocal |
296 |
|
|
297 |
endif |
endif |
298 |
|
|
299 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
300 |
|
|
301 |
|
#else /* ALLOW_ATM_TEMP */ |
302 |
|
STOP 'ABNORMAL END: S/R THSICE_GET_EXF: ATM_TEMP undef' |
303 |
|
#endif /* ALLOW_ATM_TEMP */ |
304 |
#endif /* ALLOW_EXF */ |
#endif /* ALLOW_EXF */ |
|
#endif /* ALLOW_THSICE */ |
|
305 |
|
|
306 |
RETURN |
RETURN |
307 |
END |
END |