66 |
logical, intent(in):: lafin ! dernier passage |
logical, intent(in):: lafin ! dernier passage |
67 |
|
|
68 |
REAL, intent(in):: rdayvrai |
REAL, intent(in):: rdayvrai |
69 |
! (elapsed time since January 1st 0h of the starting year, in days) |
! elapsed time since January 1st 0h of the starting year, in days |
70 |
|
|
71 |
REAL, intent(in):: time ! heure de la journ\'ee en fraction de jour |
REAL, intent(in):: time ! heure de la journ\'ee en fraction de jour |
72 |
REAL, intent(in):: dtphys ! pas d'integration pour la physique (seconde) |
REAL, intent(in):: dtphys ! pas d'integration pour la physique (seconde) |
223 |
! Variables propres a la physique |
! Variables propres a la physique |
224 |
|
|
225 |
INTEGER, save:: radpas |
INTEGER, save:: radpas |
226 |
! (Radiative transfer computations are made every "radpas" call to |
! Radiative transfer computations are made every "radpas" call to |
227 |
! "physiq".) |
! "physiq". |
228 |
|
|
229 |
REAL radsol(klon) |
REAL radsol(klon) |
230 |
SAVE radsol ! bilan radiatif au sol calcule par code radiatif |
SAVE radsol ! bilan radiatif au sol calcule par code radiatif |
649 |
|
|
650 |
CALL printflag(radpas, ok_journe, ok_instan, ok_region) |
CALL printflag(radpas, ok_journe, ok_instan, ok_region) |
651 |
|
|
652 |
IF (dtphys * REAL(radpas) > 21600. .AND. cycle_diurne) THEN |
IF (dtphys * radpas > 21600. .AND. cycle_diurne) THEN |
653 |
print *, "Au minimum 4 appels par jour si cycle diurne" |
print *, "Au minimum 4 appels par jour si cycle diurne" |
654 |
call abort_gcm('physiq', & |
call abort_gcm('physiq', & |
655 |
"Nombre d'appels au rayonnement insuffisant", 1) |
"Nombre d'appels au rayonnement insuffisant", 1) |
775 |
|
|
776 |
CALL orbite(REAL(julien), longi, dist) |
CALL orbite(REAL(julien), longi, dist) |
777 |
IF (cycle_diurne) THEN |
IF (cycle_diurne) THEN |
778 |
CALL zenang(longi, time, dtphys * REAL(radpas), mu0, fract) |
CALL zenang(longi, time, dtphys * radpas, mu0, fract) |
779 |
ELSE |
ELSE |
780 |
mu0 = -999.999 |
mu0 = -999.999 |
781 |
ENDIF |
ENDIF |