Changeset 4143 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- May 9, 2022, 12:35:40 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r4140 r4143 444 444 !====================================================================== 445 445 ! 446 INTEGER ivap ! indice de traceurs pour vapeur d'eau 447 PARAMETER (ivap=1) 448 INTEGER iliq ! indice de traceurs pour eau liquide 449 PARAMETER (iliq=2) 450 INTEGER isol ! indice de traceurs pour eau glace 451 PARAMETER (isol=3) 452 INTEGER irneb ! indice de traceurs pour fraction nuageuse LS (optional) 453 PARAMETER (irneb=4) 446 ! indices de traceurs eau vapeur, liquide, glace, fraction nuageuse LS (optional) 447 INTEGER,SAVE :: ivap, iliq, isol, irneb 448 !$OMP THREADPRIVATE(ivap, iliq, isol, irneb) 454 449 ! 455 450 ! … … 1255 1250 1256 1251 IF (first) THEN 1252 ivap = strIdx(tracers(:)%name, addPhase('H2O', 'g')) 1253 iliq = strIdx(tracers(:)%name, addPhase('H2O', 'l')) 1254 isol = strIdx(tracers(:)%name, addPhase('H2O', 's')) 1255 irneb= strIdx(tracers(:)%name, addPhase('H2O', 'r')) 1257 1256 CALL init_etat0_limit_unstruct 1258 1257 IF (.NOT. create_etat0_limit) CALL init_limit_read(days_elapsed)
Note: See TracChangeset
for help on using the changeset viewer.