source: LMDZ5/trunk/libf/phylmd/orbite.F90 @ 2347

Last change on this file since 2347 was 2346, checked in by Ehouarn Millour, 9 years ago

Physics/dynamics separation:

  • remove all references to dimensions.h from physics. nbp_lon (==iim) , nbp_lat (==jjm+1) and nbp_lev (==llm) from mod_grid_phy_lmdz should be used instead.
  • added module regular_lonlat_mod in phy_common to store information about the global (lon-lat) grid cell boundaries and centers.

EM

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 10.3 KB
Line 
1
2! $Header$
3
4! ======================================================================
5SUBROUTINE orbite(xjour, longi, dist)
6  IMPLICIT NONE
7  ! ======================================================================
8  ! Auteur(s): Z.X. Li (LMD/CNRS) (adapte du GCM du LMD) date: 19930818
9  ! Objet: pour un jour donne, calculer la longitude vraie de la terre
10  ! (par rapport au point vernal-21 mars) dans son orbite solaire
11  ! calculer aussi la distance terre-soleil (unite astronomique)
12  ! ======================================================================
13  ! Arguments:
14  ! xjour--INPUT--R- jour de l'annee a compter du 1er janvier
15  ! longi--OUTPUT-R- longitude vraie en degres par rapport au point
16  ! vernal (21 mars) en degres
17  ! dist---OUTPUT-R- distance terre-soleil (par rapport a la moyenne)
18  REAL xjour, longi, dist
19  ! ======================================================================
20  include "YOMCST.h"
21
22  ! -- Variables dynamiques locales
23  REAL pir, xl, xllp, xee, xse, xlam, dlamm, anm, ranm, anv, ranv
24
25  pir = 4.0*atan(1.0)/180.0
26  xl = r_peri + 180.0
27  xllp = xl*pir
28  xee = r_ecc*r_ecc
29  xse = sqrt(1.0-xee)
30  xlam = (r_ecc/2.0+r_ecc*xee/8.0)*(1.0+xse)*sin(xllp) - &
31    xee/4.0*(0.5+xse)*sin(2.0*xllp) + r_ecc*xee/8.0*(1.0/3.0+xse)*sin(3.0* &
32    xllp)
33  xlam = 2.0*xlam/pir
34  dlamm = xlam + (xjour-81.0)
35  anm = dlamm - xl
36  ranm = anm*pir
37  xee = xee*r_ecc
38  ranv = ranm + (2.0*r_ecc-xee/4.0)*sin(ranm) + 5.0/4.0*r_ecc*r_ecc*sin(2.0* &
39    ranm) + 13.0/12.0*xee*sin(3.0*ranm)
40
41  anv = ranv/pir
42  longi = anv + xl
43
44  dist = (1-r_ecc*r_ecc)/(1+r_ecc*cos(pir*(longi-(r_peri+180.0))))
45  RETURN
46END SUBROUTINE orbite
47! ======================================================================
48SUBROUTINE angle(longi, lati, frac, muzero)
49  USE dimphy
50  IMPLICIT NONE
51  ! ======================================================================
52  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
53  ! Objet: Calculer la duree d'ensoleillement pour un jour et la hauteur
54  ! du soleil (cosinus de l'angle zinithal) moyenne sur la journee
55  ! ======================================================================
56  ! Arguments:
57  ! longi----INPUT-R- la longitude vraie de la terre dans son plan
58  ! solaire a partir de l'equinoxe de printemps (degre)
59  ! lati-----INPUT-R- la latitude d'un point sur la terre (degre)
60  ! frac-----OUTPUT-R la duree d'ensoleillement dans la journee divisee
61  ! par 24 heures (unite en fraction de 0 a 1)
62  ! muzero---OUTPUT-R la moyenne du cosinus de l'angle zinithal sur
63  ! la journee (0 a 1)
64  ! ======================================================================
65  REAL longi
66  REAL lati(klon), frac(klon), muzero(klon)
67  include "YOMCST.h"
68  REAL lat, omega, lon_sun, lat_sun
69  REAL pi_local, incl
70  INTEGER i
71
72  pi_local = 4.0*atan(1.0)
73  incl = r_incl*pi_local/180.
74
75  lon_sun = longi*pi_local/180.0
76  lat_sun = asin(sin(lon_sun)*sin(incl))
77
78  DO i = 1, klon
79    lat = lati(i)*pi_local/180.0
80
81    IF (lat>=(pi_local/2.+lat_sun) .OR. lat<=(-pi_local/2.+lat_sun)) THEN
82      omega = 0.0 ! nuit polaire
83    ELSE IF (lat>=(pi_local/2.-lat_sun) .OR. lat<=(-pi_local/2.-lat_sun)) &
84        THEN
85      omega = pi_local ! journee polaire
86    ELSE
87      omega = -tan(lat)*tan(lat_sun)
88      omega = acos(omega)
89    END IF
90
91    frac(i) = omega/pi_local
92
93    IF (omega>0.0) THEN
94      muzero(i) = sin(lat)*sin(lat_sun) + cos(lat)*cos(lat_sun)*sin(omega)/ &
95        omega
96    ELSE
97      muzero(i) = 0.0
98    END IF
99  END DO
100
101  RETURN
102END SUBROUTINE angle
103! ====================================================================
104SUBROUTINE zenang(longi, gmtime, pdtrad, lat, long, pmu0, frac)
105  USE dimphy
106  IMPLICIT NONE
107  ! =============================================================
108  ! Auteur : O. Boucher (LMD/CNRS)
109  ! d'apres les routines zenith et angle de Z.X. Li
110  ! Objet  : calculer les valeurs moyennes du cos de l'angle zenithal
111  ! et l'ensoleillement moyen entre gmtime1 et gmtime2
112  ! connaissant la declinaison, la latitude et la longitude.
113  ! Rque   : Different de la routine angle en ce sens que zenang
114  ! fournit des moyennes de pmu0 et non des valeurs
115  ! instantanees, du coup frac prend toutes les valeurs
116  ! entre 0 et 1.
117  ! Date   : premiere version le 13 decembre 1994
118  ! revu pour  GCM  le 30 septembre 1996
119  ! ===============================================================
120  ! longi : la longitude vraie de la terre dans son plan
121  ! solaire a partir de l'equinoxe de printemps (degre)
122  ! gmtime : temps universel en fraction de jour
123  ! pdtrad : pas de temps du rayonnement (secondes)
124  ! lat------INPUT : latitude en degres
125  ! long-----INPUT : longitude en degres
126  ! pmu0-----OUTPUT: angle zenithal moyen entre gmtime et gmtime+pdtrad
127  ! frac-----OUTPUT: ensoleillement moyen entre gmtime et gmtime+pdtrad
128  ! ================================================================
129  include "YOMCST.h"
130  ! ================================================================
131  REAL, INTENT (IN) :: longi, gmtime, pdtrad
132  REAL lat(klon), long(klon), pmu0(klon), frac(klon)
133  ! ================================================================
134  INTEGER i
135  REAL gmtime1, gmtime2
136  REAL pi_local, deux_pi_local, incl
137  REAL omega1, omega2, omega
138  ! omega1, omega2 : temps 1 et 2 exprime en radian avec 0 a midi.
139  ! omega : heure en radian du coucher de soleil
140  ! -omega est donc l'heure en radian de lever du soleil
141  REAL omegadeb, omegafin
142  REAL zfrac1, zfrac2, z1_mu, z2_mu
143  REAL lat_sun ! declinaison en radian
144  REAL lon_sun ! longitude solaire en radian
145  REAL latr ! latitude du pt de grille en radian
146  ! ================================================================
147
148  pi_local = 4.0*atan(1.0)
149  deux_pi_local = 2.0*pi_local
150  incl = r_incl*pi_local/180.
151
152  lon_sun = longi*pi_local/180.0
153  lat_sun = asin(sin(lon_sun)*sin(incl))
154
155  gmtime1 = gmtime*86400.
156  gmtime2 = gmtime*86400. + pdtrad
157
158  DO i = 1, klon
159
160    latr = lat(i)*pi_local/180.
161
162    ! --pose probleme quand lat=+/-90 degres
163
164    ! omega = -TAN(latr)*TAN(lat_sun)
165    ! omega = ACOS(omega)
166    ! IF (latr.GE.(pi_local/2.+lat_sun)
167    ! .    .OR. latr.LE.(-pi_local/2.+lat_sun)) THEN
168    ! omega = 0.0       ! nuit polaire
169    ! ENDIF
170    ! IF (latr.GE.(pi_local/2.-lat_sun)
171    ! .          .OR. latr.LE.(-pi_local/2.-lat_sun)) THEN
172    ! omega = pi_local  ! journee polaire
173    ! ENDIF
174
175    ! --remplace par cela (le cas par defaut est different)
176
177    omega = 0.0 !--nuit polaire
178    IF (latr>=(pi_local/2.-lat_sun) .OR. latr<=(-pi_local/2.-lat_sun)) THEN
179      omega = pi_local ! journee polaire
180    END IF
181    IF (latr<(pi_local/2.+lat_sun) .AND. latr>(-pi_local/2.+lat_sun) .AND. &
182        latr<(pi_local/2.-lat_sun) .AND. latr>(-pi_local/2.-lat_sun)) THEN
183      omega = -tan(latr)*tan(lat_sun)
184      omega = acos(omega)
185    END IF
186
187    omega1 = gmtime1 + long(i)*86400.0/360.0
188    omega1 = omega1/86400.0*deux_pi_local
189    omega1 = mod(omega1+deux_pi_local, deux_pi_local)
190    omega1 = omega1 - pi_local
191
192    omega2 = gmtime2 + long(i)*86400.0/360.0
193    omega2 = omega2/86400.0*deux_pi_local
194    omega2 = mod(omega2+deux_pi_local, deux_pi_local)
195    omega2 = omega2 - pi_local
196
197    IF (omega1<=omega2) THEN !--on est dans la meme journee locale
198
199      IF (omega2<=-omega .OR. omega1>=omega .OR. omega<1E-5) THEN !--nuit
200        frac(i) = 0.0
201        pmu0(i) = 0.0
202      ELSE !--jour+nuit/jour
203        omegadeb = max(-omega, omega1)
204        omegafin = min(omega, omega2)
205        frac(i) = (omegafin-omegadeb)/(omega2-omega1)
206        pmu0(i) = sin(latr)*sin(lat_sun) + cos(latr)*cos(lat_sun)*(sin( &
207          omegafin)-sin(omegadeb))/(omegafin-omegadeb)
208      END IF
209
210    ELSE !---omega1 GT omega2 -- a cheval sur deux journees
211
212      ! -------------------entre omega1 et pi
213      IF (omega1>=omega) THEN !--nuit
214        zfrac1 = 0.0
215        z1_mu = 0.0
216      ELSE !--jour+nuit
217        omegadeb = max(-omega, omega1)
218        omegafin = omega
219        zfrac1 = omegafin - omegadeb
220        z1_mu = sin(latr)*sin(lat_sun) + cos(latr)*cos(lat_sun)*(sin(omegafin &
221          )-sin(omegadeb))/(omegafin-omegadeb)
222      END IF
223      ! ---------------------entre -pi et omega2
224      IF (omega2<=-omega) THEN !--nuit
225        zfrac2 = 0.0
226        z2_mu = 0.0
227      ELSE !--jour+nuit
228        omegadeb = -omega
229        omegafin = min(omega, omega2)
230        zfrac2 = omegafin - omegadeb
231        z2_mu = sin(latr)*sin(lat_sun) + cos(latr)*cos(lat_sun)*(sin(omegafin &
232          )-sin(omegadeb))/(omegafin-omegadeb)
233
234      END IF
235      ! -----------------------moyenne
236      frac(i) = (zfrac1+zfrac2)/(omega2+deux_pi_local-omega1)
237      pmu0(i) = (zfrac1*z1_mu+zfrac2*z2_mu)/max(zfrac1+zfrac2, 1.E-10)
238
239    END IF !---comparaison omega1 et omega2
240
241  END DO
242
243END SUBROUTINE zenang
244! ===================================================================
245SUBROUTINE zenith(longi, gmtime, lat, long, pmu0, fract)
246  USE dimphy
247  IMPLICIT NONE
248
249  ! Auteur(s): Z.X. Li (LMD/ENS)
250
251  ! Objet: calculer le cosinus de l'angle zenithal du soleil en
252  ! connaissant la declinaison du soleil, la latitude et la
253  ! longitude du point sur la terre, et le temps universel
254
255  ! Arguments d'entree:
256  ! longi  : declinaison du soleil (en degres)
257  ! gmtime : temps universel en second qui varie entre 0 et 86400
258  ! lat    : latitude en degres
259  ! long   : longitude en degres
260  ! Arguments de sortie:
261  ! pmu0   : cosinus de l'angle zenithal
262
263  ! ====================================================================
264  include "YOMCST.h"
265  ! ====================================================================
266  REAL longi, gmtime
267  REAL lat(klon), long(klon), pmu0(klon), fract(klon)
268  ! =====================================================================
269  INTEGER n
270  REAL zpi, zpir, omega, zgmtime
271  REAL incl, lat_sun, lon_sun
272  ! ----------------------------------------------------------------------
273  zpi = 4.0*atan(1.0)
274  zpir = zpi/180.0
275  zgmtime = gmtime*86400.
276
277  incl = r_incl*zpir
278
279  lon_sun = longi*zpir
280  lat_sun = asin(sin(lon_sun)*sin(incl))
281
282  ! --initialisation a la nuit
283
284  DO n = 1, klon
285    pmu0(n) = 0.
286    fract(n) = 0.0
287  END DO
288
289  ! 1 degre en longitude = 240 secondes en temps
290
291  DO n = 1, klon
292    omega = zgmtime + long(n)*86400.0/360.0
293    omega = omega/86400.0*2.0*zpi
294    omega = mod(omega+2.0*zpi, 2.0*zpi)
295    omega = omega - zpi
296    pmu0(n) = sin(lat(n)*zpir)*sin(lat_sun) + cos(lat(n)*zpir)*cos(lat_sun)* &
297      cos(omega)
298    pmu0(n) = max(pmu0(n), 0.0)
299    IF (pmu0(n)>1.E-6) fract(n) = 1.0
300  END DO
301
302  RETURN
303END SUBROUTINE zenith
Note: See TracBrowser for help on using the repository browser.