Changeset 6105 for LMDZ6/trunk/libf
- Timestamp:
- Mar 13, 2026, 11:02:03 PM (3 weeks ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 4 edited
-
dynphy_lonlat/phylmd/etat0phys_netcdf.f90 (modified) (2 diffs)
-
phylmd/conf_phys_m.f90 (modified) (4 diffs)
-
phylmd/physiq_mod.F90 (modified) (4 diffs)
-
phylmdiso/physiq_mod.F90 (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90
r6099 r6105 117 117 118 118 !--- Arguments for conf_phys 119 LOGICAL :: ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES, callstats120 119 REAL :: solarlong0, fact_cldcon, facttemps 121 120 LOGICAL :: ok_newmicro … … 139 138 ! Physics configuration 140 139 !******************************************************************************* 141 CALL conf_phys( ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES, & 142 callstats, & 143 solarlong0, & 140 CALL conf_phys( solarlong0, & 144 141 fact_cldcon, facttemps,ok_newmicro,iflag_radia, & 145 142 iflag_cldcon, & -
LMDZ6/trunk/libf/phylmd/conf_phys_m.f90
r6104 r6105 6 6 MODULE conf_phys_m 7 7 8 USE clesphys_mod_h8 USE clesphys_mod_h 9 9 IMPLICIT NONE 10 10 11 LOGICAL, SAVE, PROTECTED :: ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES 12 !$OMP THREADPRIVATE(ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES) 13 11 14 CONTAINS 12 15 13 SUBROUTINE conf_phys(ok_journe, ok_mensuel, ok_instan, ok_hf, & 14 ok_LES,& 15 callstats,& 16 solarlong0, & 16 SUBROUTINE conf_phys( solarlong0, & 17 17 fact_cldcon,facttemps,ok_newmicro,iflag_radia,& 18 18 iflag_cld_th, & … … 71 71 72 72 ! Sortie: 73 73 74 LOGICAL :: ok_newmicro 74 75 INTEGER :: iflag_radia 75 76 LOGICAL :: ok_journe, ok_mensuel, ok_instan, ok_hf 76 77 LOGICAL :: ok_LES 77 LOGICAL :: callstats78 78 LOGICAL :: ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan 79 79 LOGICAL :: aerosol_couple, chemistry_couple … … 90 90 91 91 92 92 93 REAL :: ratio_z0hz0m_land, ratio_z0hz0m_ocean, ratio_z0hz0m_landice, ratio_z0hz0m_seaice 93 94 … … 1125 1126 CALL getin_p('OK_LES', ok_LES) 1126 1127 1127 ! stats1128 !1129 callstats = .FALSE.1130 CALL getin_p('callstats', callstats)1131 !1132 1128 ! par defaut 1., i.e. 1 jour 1133 !1134 1129 ! 1135 1130 adjust_tropopause = .FALSE. -
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r6099 r6105 56 56 USE assert_m, only: assert 57 57 USE change_srf_frac_mod 58 USE conf_phys_m, only: conf_phys 58 59 USE conf_phys_m, ONLY : conf_phys 60 ! TBD 2026/03/13 : les variables ci dessous ont été passées en module. 61 ! elles foivent disparaitre de physiq_mod.F90 62 USE conf_phys_m, ONLY : ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES 63 59 64 USE carbon_cycle_mod, ONLY : infocfields_init, RCO2_glo, carbon_cycle_rad ! PC 60 65 … … 524 529 !cc PARAMETER (soil_model=.FALSE.) 525 530 !====================================================================== 526 LOGICAL ok_journe ! sortir le fichier journalier 527 SAVE ok_journe 528 !$OMP THREADPRIVATE(ok_journe) 529 ! 530 LOGICAL ok_mensuel ! sortir le fichier mensuel 531 SAVE ok_mensuel 532 !$OMP THREADPRIVATE(ok_mensuel) 533 ! 534 LOGICAL ok_instan ! sortir le fichier instantane 535 SAVE ok_instan 536 !$OMP THREADPRIVATE(ok_instan) 537 ! 538 LOGICAL ok_LES ! sortir le fichier LES 539 SAVE ok_LES 540 !$OMP THREADPRIVATE(ok_LES) 541 ! 542 LOGICAL callstats ! sortir le fichier stats 543 SAVE callstats 544 !$OMP THREADPRIVATE(callstats) 531 ! 532 ! 545 533 ! 546 534 LOGICAL ok_region ! sortir le fichier regional … … 618 606 CHARACTER*3 region 619 607 PARAMETER(region='3d') 620 LOGICAL ok_hf621 !622 SAVE ok_hf623 !$OMP THREADPRIVATE(ok_hf)624 608 625 609 INTEGER, PARAMETER :: longcles=20 … … 1300 1284 ! 1301 1285 ! appel a la lecture du run.def physique 1302 CALL conf_phys(ok_journe, ok_mensuel, & 1303 ok_instan, ok_hf, & 1304 ok_LES, & 1305 callstats, & 1306 solarlong0, & 1286 CALL conf_phys( solarlong0, & 1307 1287 fact_cldcon,facttemps,ok_newmicro,iflag_radia, & 1308 1288 iflag_cld_th, & -
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r6099 r6105 29 29 USE assert_m, ONLY: assert 30 30 USE change_srf_frac_mod 31 31 32 USE conf_phys_m, ONLY: conf_phys 33 ! TBD 2026/03/13 : les variables ci dessous ont été passées en module. 34 ! elles foivent disparaitre de physiq_mod.F90 35 USE conf_phys_m, ONLY : ok_journe, ok_mensuel, ok_instan, ok_hf, ok_LES 36 32 37 USE carbon_cycle_mod, ONLY : infocfields_init, RCO2_glo, carbon_cycle_rad ! PC 33 38 … … 563 568 !cc PARAMETER (soil_model=.FALSE.) 564 569 !====================================================================== 565 LOGICAL ok_journe ! sortir le fichier journalier566 SAVE ok_journe567 !$OMP THREADPRIVATE(ok_journe)568 !569 LOGICAL ok_mensuel ! sortir le fichier mensuel570 SAVE ok_mensuel571 !$OMP THREADPRIVATE(ok_mensuel)572 !573 LOGICAL ok_instan ! sortir le fichier instantane574 SAVE ok_instan575 !$OMP THREADPRIVATE(ok_instan)576 !577 LOGICAL ok_LES ! sortir le fichier LES578 SAVE ok_LES579 !$OMP THREADPRIVATE(ok_LES)580 !581 LOGICAL callstats ! sortir le fichier stats582 SAVE callstats583 !$OMP THREADPRIVATE(callstats)584 570 ! 585 571 LOGICAL ok_region ! sortir le fichier regional … … 657 643 CHARACTER*3 region 658 644 PARAMETER(region='3d') 659 LOGICAL ok_hf660 !661 SAVE ok_hf662 !$OMP THREADPRIVATE(ok_hf)663 645 664 646 INTEGER, PARAMETER :: longcles=20 … … 1397 1379 ! 1398 1380 ! appel a la lecture du run.def physique 1399 CALL conf_phys(ok_journe, ok_mensuel, & 1400 ok_instan, ok_hf, & 1401 ok_LES, & 1402 callstats, & 1403 solarlong0, & 1381 CALL conf_phys( solarlong0, & 1404 1382 fact_cldcon,facttemps,ok_newmicro,iflag_radia, & 1405 1383 iflag_cld_th, &
Note: See TracChangeset
for help on using the changeset viewer.
