| 1 |
module screenc_m |
| 2 |
|
| 3 |
IMPLICIT NONE |
| 4 |
|
| 5 |
contains |
| 6 |
|
| 7 |
SUBROUTINE screenc(klon, knon, nsrf, zxli, speed, temp, q_zref, zref, ts, & |
| 8 |
qsurf, rugos, psol, ustar, testar, qstar, okri, ri1, pref, delu, & |
| 9 |
delte, delq) |
| 10 |
|
| 11 |
use coefcdrag_m, only: coefcdrag |
| 12 |
use SUPHEC_M |
| 13 |
|
| 14 |
! From LMDZ4/libf/phylmd/screenc.F90, version 1.1.1.1 2004/05/19 12:53:09 |
| 15 |
|
| 16 |
! Objet : calcul "correcteur" des anomalies du vent, de la |
| 17 |
! temp\'erature potentielle et de l'humidit\'e relative au niveau |
| 18 |
! de r\'ef\'erence zref et par rapport au 1er niveau (pour u) ou |
| 19 |
! \`a la surface (pour theta et q) \`a partir des equations de |
| 20 |
! Louis. |
| 21 |
|
| 22 |
! Reference: Hess, Colman et McAvaney (1995) |
| 23 |
|
| 24 |
! I. Musat, 01.07.2002 |
| 25 |
|
| 26 |
INTEGER, intent(in):: klon |
| 27 |
! klon----input-I- dimension de la grille physique (= |
| 28 |
! nb_pts_latitude X nb_pts_longitude) |
| 29 |
INTEGER, intent(in):: knon |
| 30 |
! knon----input-I- nombre de points pour un type de surface |
| 31 |
INTEGER, intent(in):: nsrf |
| 32 |
! nsrf----input-I- indice pour le type de surface; voir indicesol.inc |
| 33 |
LOGICAL, intent(in):: zxli |
| 34 |
! zxli----input-L- TRUE si calcul des cdrags selon Laurent Li |
| 35 |
REAL, dimension(klon), intent(in):: speed, temp, q_zref |
| 36 |
! speed---input-R- module du vent au 1er niveau du modele |
| 37 |
! temp----input-R- temperature de l'air au 1er niveau du modele |
| 38 |
! q_zref--input-R- humidite relative au 1er niveau du modele |
| 39 |
REAL, intent(in):: zref |
| 40 |
! zref----input-R- altitude de reference |
| 41 |
REAL, dimension(klon), intent(in):: ts, qsurf, rugos, psol |
| 42 |
! ts------input-R- temperature de l'air a la surface |
| 43 |
! qsurf---input-R- humidite relative a la surface |
| 44 |
! rugos---input-R- rugosite |
| 45 |
! psol----input-R- pression au sol |
| 46 |
REAL, dimension(klon), intent(in):: ustar, testar, qstar |
| 47 |
! ustar---input-R- facteur d'echelle pour le vent |
| 48 |
! testar--input-R- facteur d'echelle pour la temperature potentielle |
| 49 |
! qstar---input-R- facteur d'echelle pour l'humidite relative |
| 50 |
LOGICAL, intent(in):: okri |
| 51 |
! okri----input-L- TRUE si on veut tester le nb. Richardson entre la sfce |
| 52 |
! et zref par rapport au Ri entre la sfce et la 1ere couche |
| 53 |
REAL, dimension(klon), intent(in):: ri1 |
| 54 |
! ri1-----input-R- nb. Richardson entre la surface et la 1ere couche |
| 55 |
|
| 56 |
REAL, dimension(klon), intent(out):: pref |
| 57 |
! pref----input-R- pression au niveau de reference |
| 58 |
REAL, dimension(klon), intent(out):: delu |
| 59 |
! delu----input-R- anomalie du vent par rapport au 1er niveau |
| 60 |
REAL, dimension(klon), intent(out):: delte |
| 61 |
! delte---input-R- anomalie de la temperature potentielle par |
| 62 |
! rapport a la surface |
| 63 |
REAL, dimension(klon), intent(out):: delq |
| 64 |
! delq----input-R- anomalie de l'humidite relative par rapport a la surface |
| 65 |
|
| 66 |
! Local: |
| 67 |
INTEGER i |
| 68 |
REAL, dimension(klon):: cdram, cdrah, cdran, zri1, gref |
| 69 |
|
| 70 |
!------------------------------------------------------------------------- |
| 71 |
|
| 72 |
DO i=1, knon |
| 73 |
gref(i) = zref*RG |
| 74 |
ENDDO |
| 75 |
|
| 76 |
! Richardson at reference level |
| 77 |
|
| 78 |
CALL coefcdrag (klon, knon, nsrf, zxli, speed, temp, q_zref, gref, psol, & |
| 79 |
ts, qsurf, rugos, okri, ri1, cdram, cdrah, cdran, zri1, pref) |
| 80 |
|
| 81 |
DO i = 1, knon |
| 82 |
delu(i) = ustar(i)/sqrt(cdram(i)) |
| 83 |
delte(i)= (testar(i)* sqrt(cdram(i)))/ cdrah(i) |
| 84 |
delq(i)= (qstar(i)* sqrt(cdram(i)))/ cdrah(i) |
| 85 |
ENDDO |
| 86 |
|
| 87 |
END SUBROUTINE screenc |
| 88 |
|
| 89 |
end module screenc_m |
Parent Directory
| 
Revision Log