472 |
|
|
473 |
!---------------------------------------------------------------- |
!---------------------------------------------------------------- |
474 |
|
|
|
IF (if_ebil >= 1) zero_v = 0. |
|
475 |
IF (nqmx < 2) CALL abort_gcm('physiq', & |
IF (nqmx < 2) CALL abort_gcm('physiq', & |
476 |
'eaux vapeur et liquide sont indispensables') |
'eaux vapeur et liquide sont indispensables') |
477 |
|
|
511 |
trmb2 =0. ! inhibition |
trmb2 =0. ! inhibition |
512 |
trmb3 =0. ! Point Omega |
trmb3 =0. ! Point Omega |
513 |
|
|
|
IF (if_ebil >= 1) d_h_vcol_phy = 0. |
|
|
|
|
514 |
iflag_thermals = 0 |
iflag_thermals = 0 |
515 |
nsplit_thermals = 1 |
nsplit_thermals = 1 |
516 |
print *, "Enter namelist 'physiq_nml'." |
print *, "Enter namelist 'physiq_nml'." |
517 |
read(unit=*, nml=physiq_nml) |
read(unit=*, nml=physiq_nml) |
518 |
write(unit_nml, nml=physiq_nml) |
write(unit_nml, nml=physiq_nml) |
519 |
|
|
520 |
|
IF (if_ebil >= 1) d_h_vcol_phy = 0. |
521 |
call conf_phys |
call conf_phys |
522 |
|
|
523 |
! Initialiser les compteurs: |
! Initialiser les compteurs: |
559 |
CALL phyredem0 |
CALL phyredem0 |
560 |
ENDIF test_firstcal |
ENDIF test_firstcal |
561 |
|
|
562 |
|
IF (if_ebil >= 1) zero_v = 0. |
563 |
|
|
564 |
! We will modify variables *_seri and we will not touch variables |
! We will modify variables *_seri and we will not touch variables |
565 |
! u, v, t, qx: |
! u, v, t, qx: |
566 |
t_seri = t |
t_seri = t |