Changeset 3798 for LMDZ6/branches/Ocean_skin/libf/phylmd/tracco2i_mod.F90
- Timestamp:
- Jan 11, 2021, 11:24:08 PM (4 years ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
-
LMDZ6/branches/Ocean_skin/libf/phylmd/tracco2i_mod.F90
r3605 r3798 14 14 CONTAINS 15 15 16 SUBROUTINE tracco2i_init() 17 ! This subroutine calls carbon_cycle_init needed to be done before first call to phys_output_write in physiq. 18 USE carbon_cycle_mod, ONLY: carbon_cycle_init, carbon_cycle_cpl 19 20 ! Initialize carbon_cycle_mod 21 IF (carbon_cycle_cpl) THEN 22 CALL carbon_cycle_init() 23 ENDIF 24 25 END SUBROUTINE tracco2i_init 26 16 27 SUBROUTINE tracco2i(pdtphys, debutphy, & 17 28 xlat, xlon, pphis, pphi, & … … 21 32 USE infotrac_phy 22 33 USE geometry_mod, ONLY: cell_area 23 USE carbon_cycle_mod, ONLY: carbon_cycle_init24 34 USE carbon_cycle_mod, ONLY: id_CO2, nbcf_in, fields_in, cfname_in 25 35 USE carbon_cycle_mod, ONLY: fco2_ocn_day, fco2_ff, fco2_bb, fco2_land, fco2_ocean … … 79 89 !--convert 280 ppm into kg CO2 / kg air 80 90 IF (debutphy) THEN 81 82 ! Initialisation de module carbon_cycle_mod83 IF (carbon_cycle_cpl) THEN84 CALL carbon_cycle_init()85 ENDIF86 91 87 92 ! Initialisation de tr_seri(id_CO2) si pas initialise … … 312 317 !$OMP END MASTER 313 318 319 ! Allocation needed for all proc otherwise scatter might complain 320 IF (.NOT.ALLOCATED(flx_co2ff_glo)) ALLOCATE(flx_co2ff_glo(0,0)) 321 IF (.NOT.ALLOCATED(flx_co2bb_glo)) ALLOCATE(flx_co2bb_glo(0,0)) 322 314 323 !--scatter on all proc 315 324 CALL scatter(flx_co2ff_glo,flx_co2ff) 316 325 CALL scatter(flx_co2bb_glo,flx_co2bb) 317 326 318 !$OMP MASTER 319 IF (is_mpi_root) THEN 320 DEALLOCATE(flx_co2ff_glo) 321 DEALLOCATE(flx_co2bb_glo) 322 ENDIF 323 !$OMP END MASTER 327 IF (ALLOCATED(flx_co2ff_glo)) DEALLOCATE(flx_co2ff_glo) 328 IF (ALLOCATED(flx_co2bb_glo)) DEALLOCATE(flx_co2bb_glo) 324 329 325 330 ENDIF !--end debuthy
Note: See TracChangeset
for help on using the changeset viewer.