| 1 | MODULE lmdz_spla_ini |
|---|
| 2 | |
|---|
| 3 | IMPLICIT NONE |
|---|
| 4 | |
|---|
| 5 | SAVE |
|---|
| 6 | |
|---|
| 7 | ! from indice_sol_mod.f90 |
|---|
| 8 | INTEGER, PROTECTED :: is_oce |
|---|
| 9 | !$OMP THREADPRIVATE(is_oce) |
|---|
| 10 | |
|---|
| 11 | ! from yomcst_mod_h.f90 |
|---|
| 12 | REAL, PROTECTED :: RNAVO,RG,RD,RCPD,RLVTT,RLSTT,RETV,RTT |
|---|
| 13 | !$OMP THREADPRIVATE(RNAVO,RG,RD,RCPD,RLVTT,RLSTT,RETV,RTT) |
|---|
| 14 | |
|---|
| 15 | ! from yoethf_mod_h.f90 |
|---|
| 16 | ! COMMON *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS |
|---|
| 17 | REAL :: R2ES,R3IES,R3LES,R4IES,R4LES,R5IES,R5LES,RVTMP2 |
|---|
| 18 | !$OMP THREADPRIVATE(R2ES,R3LES,R3IES,R4LES,R4IES,R5LES,R5IES,RVTMP2) |
|---|
| 19 | |
|---|
| 20 | ! from chem_mod_h.f90 |
|---|
| 21 | REAL, PARAMETER :: masse_s=32.0 !--g mol-1 ; molar mass sulfur-32 isotope (stable) |
|---|
| 22 | |
|---|
| 23 | ! from chem_spla_mod_h.f90 |
|---|
| 24 | REAL, PARAMETER :: masse_ammsulfate = 132.0 !--g mol-1 |
|---|
| 25 | |
|---|
| 26 | CONTAINS |
|---|
| 27 | |
|---|
| 28 | SUBROUTINE spla_ini(is_oce_in, & |
|---|
| 29 | RNAVO_in,RG_in,RD_in,RCPD_in,RLVTT_in,RLSTT_in,RETV_in,RTT_in, & |
|---|
| 30 | R2ES_in,R3LES_in,R3IES_in,R4LES_in,R4IES_in,R5LES_in,R5IES_in,RVTMP2_in & |
|---|
| 31 | ) |
|---|
| 32 | |
|---|
| 33 | IMPLICIT NONE |
|---|
| 34 | |
|---|
| 35 | integer, intent(in) :: is_oce_in |
|---|
| 36 | real, intent(in) :: RNAVO_in,RG_in,RD_in,RCPD_in,RLVTT_in,RLSTT_in,RETV_in,RTT_in |
|---|
| 37 | real, intent(in) :: R2ES_in,R3LES_in,R3IES_in,R4LES_in,R4IES_in,R5LES_in,R5IES_in,RVTMP2_in |
|---|
| 38 | |
|---|
| 39 | is_oce=is_oce_in |
|---|
| 40 | |
|---|
| 41 | RNAVO=RNAVO_in |
|---|
| 42 | RG=RG_in |
|---|
| 43 | RD=RD_in |
|---|
| 44 | RCPD=RCPD_in |
|---|
| 45 | RLVTT=RLVTT_in |
|---|
| 46 | RLSTT=RLSTT_in |
|---|
| 47 | RETV=RETV_in |
|---|
| 48 | RTT=RTT_in |
|---|
| 49 | |
|---|
| 50 | R2ES=R2ES_in |
|---|
| 51 | R3LES=R3LES_in |
|---|
| 52 | R3IES=R3IES_in |
|---|
| 53 | R4LES=R4LES_in |
|---|
| 54 | R4IES=R4IES_in |
|---|
| 55 | R5LES=R5LES_in |
|---|
| 56 | R5IES=R5IES_in |
|---|
| 57 | RVTMP2=RVTMP2_in |
|---|
| 58 | |
|---|
| 59 | END SUBROUTINE spla_ini |
|---|
| 60 | |
|---|
| 61 | END MODULE lmdz_spla_ini |
|---|
