Last change
on this file since 6610 was
6610,
checked in by acosce, 9 months ago
|
INCA used for ICOLMDZORINCA_CO2_Transport_GMD_2023
|
File size:
802 bytes
|
Line | |
---|
1 | |
---|
2 | |
---|
3 | |
---|
4 | |
---|
5 | |
---|
6 | |
---|
7 | |
---|
8 | |
---|
9 | |
---|
10 | |
---|
11 | |
---|
12 | !Subroutine permettant d'écrire dans le fichier netcdf chemrestart.nc la valeur de la variable source à la fin du premier jour |
---|
13 | |
---|
14 | |
---|
15 | SUBROUTINE chem_write_restart |
---|
16 | |
---|
17 | USE XIOS_INCA |
---|
18 | USE SPECIES_NAMES |
---|
19 | USE INCA_DIM |
---|
20 | USE SFLX, ONLY : flux_source,eflux |
---|
21 | USE AIRPLANE_SRC, ONLY : itrop |
---|
22 | USE CHEM_MODS, ONLY : invariants, hrates_cv, h2oc |
---|
23 | USE RATE_INDEX_MOD |
---|
24 | USE AEROSOL_DIAG, ONLY : tau_allaer, piz_allaer, cg_allaer, mrfname, naero_grp, ccm_aer |
---|
25 | IMPLICIT NONE |
---|
26 | |
---|
27 | INTEGER :: i |
---|
28 | |
---|
29 | CALL xios_inca_change_context("inca") |
---|
30 | |
---|
31 | DO i=1,8 |
---|
32 | CALL xios_inca_send_field("source_"//tracnam(i),flux_source(:,i)) |
---|
33 | ENDDO |
---|
34 | |
---|
35 | |
---|
36 | DO i=1, 12 |
---|
37 | CALL xios_inca_send_field("inv_"//trim(invname(i)), invariants(:,:,i)) |
---|
38 | ENDDO |
---|
39 | |
---|
40 | |
---|
41 | |
---|
42 | CALL xios_inca_change_context("LMDZ") |
---|
43 | |
---|
44 | END SUBROUTINE chem_write_restart |
---|
Note: See
TracBrowser
for help on using the repository browser.