- Timestamp:
- Nov 21, 2023, 2:51:40 PM (13 months ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/chemistry_cycle_mod.F90
r4640 r4754 15 15 16 16 ! Variables read from parmeter file physiq.def 17 LOGICAL, SAVE, PUBLIC :: dms_cycle_cpl ! Coupling of CO2fluxes between LMDZ/ORCHIDEE and LMDZ/OCEAN(PISCES)17 LOGICAL, SAVE, PUBLIC :: dms_cycle_cpl ! Coupling of DMS fluxes between LMDZ/ORCHIDEE and LMDZ/OCEAN(PISCES) 18 18 !$OMP THREADPRIVATE(dms_cycle_cpl) 19 20 LOGICAL, SAVE, PUBLIC :: n2o_cycle_cpl ! Coupling of N2O fluxes between LMDZ/ORCHIDEE and LMDZ/OCEAN(PISCES) 21 !$OMP THREADPRIVATE(n2o_cycle_cpl) 19 22 20 23 -
LMDZ6/trunk/libf/phylmd/conf_phys_m.F90
r4722 r4754 29 29 USE carbon_cycle_mod, ONLY: read_fco2_ocean_cor,var_fco2_ocean_cor 30 30 USE carbon_cycle_mod, ONLY: read_fco2_land_cor,var_fco2_land_cor 31 USE chemistry_cycle_mod, ONLY: dms_cycle_cpl 31 USE chemistry_cycle_mod, ONLY: dms_cycle_cpl, n2o_cycle_cpl 32 32 USE mod_grid_phy_lmdz, ONLY: klon_glo 33 33 USE print_control_mod, ONLY: lunout … … 233 233 LOGICAL, SAVE :: carbon_cycle_cpl_omp 234 234 LOGICAL, SAVE :: carbon_cycle_rad_omp 235 LOGICAL, SAVE :: dms_cycle_cpl_omp 235 LOGICAL, SAVE :: dms_cycle_cpl_omp, n2o_cycle_cpl_omp 236 236 INTEGER, SAVE :: level_coupling_esm_omp 237 237 LOGICAL, SAVE :: read_fco2_ocean_cor_omp … … 2254 2254 !Config Help = can be activated only if lmdz use inca for the atmospheric chemistry 2255 2255 2256 n2o_cycle_cpl_omp=.FALSE. 2257 CALL getin('transm_n2o_oa',n2o_cycle_cpl_omp) 2258 ! 2259 !Config Key = n2o_cycle_cpl 2260 !Config Desc = receive n2o from pisces via oasis 2261 !Config Def = .FALSE. 2262 !Config Help = can be activated only if lmdz use inca for the atmospheric chemistry 2263 2256 2264 2257 2265 !$OMP END MASTER … … 2527 2535 var_fco2_land_cor = var_fco2_land_cor_omp 2528 2536 dms_cycle_cpl = dms_cycle_cpl_omp 2537 n2o_cycle_cpl = n2o_cycle_cpl_omp 2529 2538 !rajout Olivier Torres 2530 2539 kz0=kz0_omp … … 2652 2661 2653 2662 ! Test on chemistry cycle 2654 IF ((type_trac .ne. "inca" .AND. type_trac .ne. "inco") .AND. dms_cycle_cpl) THEN2655 CALL abort_physic('conf_phys', 'dms_cycle_cpl has to be TRUE only with INCA coupling model',1)2663 IF ((type_trac .ne. "inca" .AND. type_trac .ne. "inco") .AND. ( dms_cycle_cpl .OR. n2o_cycle_cpl) ) THEN 2664 CALL abort_physic('conf_phys', 'dms_cycle_cpl or n2o_cycle_cpl has to be TRUE only with INCA coupling model',1) 2656 2665 ENDIF 2657 2666 … … 2865 2874 WRITE(lunout,*) ' var_fco2_land_cor = ', var_fco2_land_cor 2866 2875 WRITE(lunout,*) ' dms_cycle_cpl = ', dms_cycle_cpl 2876 WRITE(lunout,*) ' n2o_cycle_cpl = ', n2o_cycle_cpl 2867 2877 WRITE(lunout,*) ' iflag_tsurf_inlandsis = ', iflag_tsurf_inlandsis 2868 2878 WRITE(lunout,*) ' iflag_temp_inlandsis = ', iflag_temp_inlandsis -
LMDZ6/trunk/libf/phylmd/oasis.F90
r4642 r4754 77 77 INTEGER, PARAMETER :: idr_sss = 9 78 78 INTEGER, PARAMETER :: idr_ocedms = 10 79 80 INTEGER, PARAMETER :: maxrecv = 10 ! Maximum number of fields to receive 79 INTEGER, PARAMETER :: idr_ocen2o = 11 80 81 INTEGER, PARAMETER :: maxrecv = 11 ! Maximum number of fields to receive 81 82 INTEGER, PARAMETER :: maxrecv_phys = 9 ! Maximum number of fields to receive in physiq (without fields received in INCA model ) 82 83 ! will be changed in next version - INCA fields will be received in LMDZ (like for ORCHIDEE fields) … … 114 115 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl 115 116 USE wxios, ONLY : wxios_context_init 116 USE chemistry_cycle_mod, ONLY : dms_cycle_cpl 117 USE chemistry_cycle_mod, ONLY : dms_cycle_cpl, n2o_cycle_cpl 117 118 USE lmdz_xios 118 119 USE print_control_mod, ONLY: lunout … … 265 266 inforecv(idr_ocedms)%action = .TRUE. ; inforecv(idr_ocedms)%name = 'SIDMSFLX' 266 267 ENDIF 268 IF (n2o_cycle_cpl) THEN 269 inforecv(idr_ocen2o)%action = .TRUE. ; inforecv(idr_ocen2o)%name = 'SIN2OFLX' 270 ENDIF 267 271 268 272 … … 353 357 354 358 #ifdef INCA 355 IF (dms_cycle_cpl ) THEN356 CALL init_inca_oasis(inforecv(idr_ocedms ))359 IF (dms_cycle_cpl .OR. n2o_cycle_cpl) THEN 360 CALL init_inca_oasis(inforecv(idr_ocedms:idr_ocen2o)) 357 361 ENDIF 358 362 #endif
Note: See TracChangeset
for help on using the changeset viewer.