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 |