| 1 |
guez |
155 |
module lwbv_m |
| 2 |
|
|
|
| 3 |
guez |
81 |
IMPLICIT NONE |
| 4 |
|
|
|
| 5 |
guez |
155 |
contains |
| 6 |
guez |
81 |
|
| 7 |
guez |
155 |
SUBROUTINE lwbv(klim, pdt0, pemis, ppmb, ptl, ptave, pabcu, pfluc, & |
| 8 |
|
|
pbint, pbsui, pcts, pcntrb) |
| 9 |
|
|
USE dimens_m |
| 10 |
|
|
USE dimphy |
| 11 |
|
|
use lwv_m, only: lwv |
| 12 |
|
|
USE suphec_m |
| 13 |
|
|
USE raddim |
| 14 |
|
|
USE raddimlw |
| 15 |
guez |
81 |
|
| 16 |
guez |
155 |
! PURPOSE. |
| 17 |
|
|
! -------- |
| 18 |
|
|
! TO COMPUTE THE PLANCK FUNCTION AND PERFORM THE |
| 19 |
|
|
! VERTICAL INTEGRATION. SPLIT OUT FROM LW FOR MEMORY |
| 20 |
|
|
! SAVING |
| 21 |
guez |
81 |
|
| 22 |
guez |
155 |
! METHOD. |
| 23 |
|
|
! ------- |
| 24 |
guez |
81 |
|
| 25 |
guez |
155 |
! 1. COMPUTES THE PLANCK FUNCTIONS ON THE INTERFACES AND THE |
| 26 |
|
|
! GRADIENT OF PLANCK FUNCTIONS IN THE LAYERS. |
| 27 |
|
|
! 2. PERFORMS THE VERTICAL INTEGRATION DISTINGUISHING THE CON- |
| 28 |
|
|
! TRIBUTIONS OF THE ADJACENT AND DISTANT LAYERS AND THOSE FROM THE |
| 29 |
|
|
! BOUNDARIES. |
| 30 |
|
|
! 3. COMPUTES THE CLEAR-SKY COOLING RATES. |
| 31 |
guez |
81 |
|
| 32 |
guez |
155 |
! REFERENCE. |
| 33 |
|
|
! ---------- |
| 34 |
guez |
81 |
|
| 35 |
guez |
155 |
! SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND |
| 36 |
|
|
! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS |
| 37 |
guez |
81 |
|
| 38 |
guez |
155 |
! AUTHOR. |
| 39 |
|
|
! ------- |
| 40 |
|
|
! JEAN-JACQUES MORCRETTE *ECMWF* |
| 41 |
guez |
81 |
|
| 42 |
guez |
155 |
! MODIFICATIONS. |
| 43 |
|
|
! -------------- |
| 44 |
|
|
! ORIGINAL : 89-07-14 |
| 45 |
|
|
! MODIFICATION : 93-10-15 M.HAMRUD (SPLIT OUT FROM LW TO SAVE |
| 46 |
|
|
! MEMORY) |
| 47 |
|
|
! ----------------------------------------------------------------------- |
| 48 |
|
|
! * ARGUMENTS: |
| 49 |
|
|
INTEGER klim |
| 50 |
guez |
81 |
|
| 51 |
guez |
155 |
DOUBLE PRECISION pdt0(kdlon) |
| 52 |
|
|
DOUBLE PRECISION pemis(kdlon) |
| 53 |
|
|
DOUBLE PRECISION ppmb(kdlon, kflev+1) |
| 54 |
|
|
DOUBLE PRECISION ptl(kdlon, kflev+1) |
| 55 |
|
|
DOUBLE PRECISION ptave(kdlon, kflev) |
| 56 |
guez |
81 |
|
| 57 |
guez |
155 |
DOUBLE PRECISION pfluc(kdlon, 2, kflev+1) |
| 58 |
guez |
81 |
|
| 59 |
guez |
155 |
DOUBLE PRECISION pabcu(kdlon, nua, 3*kflev+1) |
| 60 |
|
|
DOUBLE PRECISION pbint(kdlon, kflev+1) |
| 61 |
|
|
DOUBLE PRECISION pbsui(kdlon) |
| 62 |
|
|
DOUBLE PRECISION pcts(kdlon, kflev) |
| 63 |
|
|
DOUBLE PRECISION pcntrb(kdlon, kflev+1, kflev+1) |
| 64 |
guez |
81 |
|
| 65 |
guez |
155 |
! ------------------------------------------------------------------------- |
| 66 |
|
|
|
| 67 |
|
|
! * LOCAL VARIABLES: |
| 68 |
|
|
DOUBLE PRECISION zb(kdlon, ninter, kflev+1) |
| 69 |
|
|
DOUBLE PRECISION zbsur(kdlon, ninter) |
| 70 |
|
|
DOUBLE PRECISION zbtop(kdlon, ninter) |
| 71 |
|
|
DOUBLE PRECISION zdbsl(kdlon, ninter, kflev*2) |
| 72 |
|
|
DOUBLE PRECISION zga(kdlon, 8, 2, kflev) |
| 73 |
|
|
DOUBLE PRECISION zgb(kdlon, 8, 2, kflev) |
| 74 |
|
|
DOUBLE PRECISION zgasur(kdlon, 8, 2) |
| 75 |
|
|
DOUBLE PRECISION zgbsur(kdlon, 8, 2) |
| 76 |
|
|
DOUBLE PRECISION zgatop(kdlon, 8, 2) |
| 77 |
|
|
DOUBLE PRECISION zgbtop(kdlon, 8, 2) |
| 78 |
|
|
|
| 79 |
|
|
INTEGER nuaer, ntraer |
| 80 |
|
|
! ------------------------------------------------------------------ |
| 81 |
|
|
! * COMPUTES PLANCK FUNCTIONS: |
| 82 |
|
|
CALL lwb(pdt0, ptave, ptl, zb, pbint, pbsui, zbsur, zbtop, zdbsl, zga, zgb, & |
| 83 |
|
|
zgasur, zgbsur, zgatop, zgbtop) |
| 84 |
|
|
! ------------------------------------------------------------------ |
| 85 |
|
|
! * PERFORMS THE VERTICAL INTEGRATION: |
| 86 |
|
|
nuaer = nua |
| 87 |
|
|
ntraer = ntra |
| 88 |
|
|
CALL lwv(nuaer, ntraer, klim, pabcu, zb, pbint, pbsui, zbsur, zbtop, & |
| 89 |
|
|
zdbsl, pemis, ppmb, zga, zgb, zgasur, zgbsur, zgatop, zgbtop, pcntrb, & |
| 90 |
|
|
pcts, pfluc) |
| 91 |
|
|
|
| 92 |
|
|
END SUBROUTINE lwbv |
| 93 |
|
|
|
| 94 |
|
|
end module lwbv_m |
Parent Directory
| 
Revision Log