Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust
- Timestamp:
- Oct 19, 2023, 4:02:57 PM (16 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 36 edited
-
. (modified) (1 prop)
-
libf/phylmd/Dust/aeropt_spl.F (modified) (1 diff)
-
libf/phylmd/Dust/bcscav_spl.F (modified) (1 diff)
-
libf/phylmd/Dust/bl_for_dms.F (modified) (1 diff)
-
libf/phylmd/Dust/blcloud_scav.F (modified) (1 diff)
-
libf/phylmd/Dust/blcloud_scav_lsc.F (modified) (1 diff)
-
libf/phylmd/Dust/checkmass.F90 (modified) (1 diff)
-
libf/phylmd/Dust/cltrac_spl.F (modified) (2 diffs)
-
libf/phylmd/Dust/cm3_to_kg.F (modified) (1 diff)
-
libf/phylmd/Dust/coarsemission.F (modified) (1 diff)
-
libf/phylmd/Dust/condsurfc.F (modified) (1 diff)
-
libf/phylmd/Dust/condsurfc_new.F (modified) (1 diff)
-
libf/phylmd/Dust/condsurfs.F (modified) (1 diff)
-
libf/phylmd/Dust/condsurfs_new.F (modified) (1 diff)
-
libf/phylmd/Dust/deposition.F (modified) (1 diff)
-
libf/phylmd/Dust/finemission.F (modified) (1 diff)
-
libf/phylmd/Dust/gastoparticle.F (modified) (1 diff)
-
libf/phylmd/Dust/incloud_scav.F (modified) (1 diff)
-
libf/phylmd/Dust/incloud_scav_lsc.F (modified) (1 diff)
-
libf/phylmd/Dust/inscav_spl.F (modified) (1 diff)
-
libf/phylmd/Dust/kg_to_cm3.F (modified) (1 diff)
-
libf/phylmd/Dust/minmaxqfi2.F (modified) (1 diff)
-
libf/phylmd/Dust/minmaxsource.F (modified) (1 diff)
-
libf/phylmd/Dust/neutral.F (modified) (1 diff)
-
libf/phylmd/Dust/nightingale.F (modified) (1 diff)
-
libf/phylmd/Dust/phys_output_write_spl_mod.F90 (modified) (10 diffs)
-
libf/phylmd/Dust/phytracr_spl_mod.F90 (modified) (3 diffs)
-
libf/phylmd/Dust/precuremission.F (modified) (1 diff)
-
libf/phylmd/Dust/read_dust.F (modified) (1 diff)
-
libf/phylmd/Dust/read_newemissions.F (modified) (1 diff)
-
libf/phylmd/Dust/read_surface.F90 (modified) (1 diff)
-
libf/phylmd/Dust/read_vent.F (modified) (1 diff)
-
libf/phylmd/Dust/seasalt.F (modified) (1 diff)
-
libf/phylmd/Dust/sediment_mod.F (modified) (1 diff)
-
libf/phylmd/Dust/tiedqneg.F (modified) (1 diff)
-
libf/phylmd/Dust/trconvect.F (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/aeropt_spl.F
r2630 r4727 12 12 IMPLICIT none 13 13 c 14 #include"chem.h"15 #include"dimensions.h"16 c #include"dimphy.h"17 #include"YOMCST.h"14 INCLUDE "chem.h" 15 INCLUDE "dimensions.h" 16 cINCLUDE "dimphy.h" 17 INCLUDE "YOMCST.h" 18 18 c 19 19 c Arguments: -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/bcscav_spl.F
r2630 r4727 9 9 c===================================================================== 10 10 c 11 #include"dimensions.h"12 #include"chem.h"13 #include"YOMCST.h"14 #include"YOECUMF.h"11 INCLUDE "dimensions.h" 12 INCLUDE "chem.h" 13 INCLUDE "YOMCST.h" 14 INCLUDE "YOECUMF.h" 15 15 c 16 16 REAL pdtime, alpha_r, alpha_s, R_r, R_s -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/bl_for_dms.F
r2630 r4727 17 17 c=================================================================== 18 18 c 19 #include"dimensions.h"20 #include"YOMCST.h"21 #include"YOETHF.h"22 #include"FCTTRE.h"19 INCLUDE "dimensions.h" 20 INCLUDE "YOMCST.h" 21 INCLUDE "YOETHF.h" 22 INCLUDE "FCTTRE.h" 23 23 c 24 24 c Arguments : -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/blcloud_scav.F
r2630 r4727 10 10 IMPLICIT NONE 11 11 12 #include"dimensions.h"13 #include"chem.h"14 #include"YOMCST.h"15 #include"paramet.h"12 INCLUDE "dimensions.h" 13 INCLUDE "chem.h" 14 INCLUDE "YOMCST.h" 15 INCLUDE "paramet.h" 16 16 17 17 c============================= INPUT =================================== -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/blcloud_scav_lsc.F
r2630 r4727 10 10 IMPLICIT NONE 11 11 12 #include"dimensions.h"13 #include"chem.h"14 #include"YOMCST.h"15 #include"paramet.h"12 INCLUDE "dimensions.h" 13 INCLUDE "chem.h" 14 INCLUDE "YOMCST.h" 15 INCLUDE "paramet.h" 16 16 17 17 c============================= INPUT =================================== -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/checkmass.F90
r2630 r4727 4 4 IMPLICIT NONE 5 5 6 #include"YOMCST.h"6 INCLUDE "YOMCST.h" 7 7 8 8 ! Entrees -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/cltrac_spl.F
r2630 r4727 26 26 c flux_tr--output-R- flux de tr 27 27 c====================================================================== 28 #include"dimensions.h"28 INCLUDE "dimensions.h" 29 29 REAL dtime 30 30 REAL coef(klon,klev) … … 36 36 c REAL flux_tr(klon,klev) 37 37 c====================================================================== 38 #include"YOMCST.h"38 INCLUDE "YOMCST.h" 39 39 c====================================================================== 40 40 INTEGER i, k -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/cm3_to_kg.F
r2630 r4727 7 7 IMPLICIT NONE 8 8 c 9 #include"dimensions.h"10 #include"YOMCST.h"9 INCLUDE "dimensions.h" 10 INCLUDE "YOMCST.h" 11 11 c 12 12 REAL t_seri(klon,klev), pplay(klon,klev) -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/coarsemission.F
r2630 r4727 33 33 IMPLICIT NONE 34 34 35 #include"dimensions.h"36 #include"chem.h"37 #include"chem_spla.h"38 #include"YOMCST.h"39 #include"paramet.h"35 INCLUDE "dimensions.h" 36 INCLUDE "chem.h" 37 INCLUDE "chem_spla.h" 38 INCLUDE "YOMCST.h" 39 INCLUDE "paramet.h" 40 40 41 41 c============================== INPUT ================================== -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/condsurfc.F
r2630 r4727 9 9 ! -------------------------------------------------------- 10 10 ! 11 #include "dimensions.h" 12 #include "netcdf.inc" 11 INCLUDE "dimensions.h" 12 INCLUDE "netcdf.inc" 13 13 14 REAL lmt_bcff(klon), lmt_bcbb(klon),lmt_bc_penner(klon) 14 15 REAL lmt_omff(klon), lmt_ombb(klon) -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/condsurfc_new.F
r2630 r4727 11 11 c -------------------------------------------------------- 12 12 c 13 #include "dimensions.h" 14 #include "netcdf.inc" 13 INCLUDE "dimensions.h" 14 INCLUDE "netcdf.inc" 15 15 16 REAL lmt_bcff(klon), lmt_bcnff(klon), lmt_bcba(klon) 16 17 REAL lmt_omff(klon), lmt_omnff(klon), lmt_ombb(klon) -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/condsurfs.F
r2630 r4727 9 9 c -------------------------------------------------------- 10 10 c 11 #include"dimensions.h"12 #include"netcdf.inc"11 INCLUDE "dimensions.h" 12 INCLUDE "netcdf.inc" 13 13 c 14 14 REAL lmt_so2h(klon), lmt_so2b(klon), lmt_so2bb(klon) -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/condsurfs_new.F
r2630 r4727 14 14 c -------------------------------------------------------- 15 15 c 16 #include"dimensions.h"17 #include"netcdf.inc"16 INCLUDE "dimensions.h" 17 INCLUDE "netcdf.inc" 18 18 c 19 19 REAL lmt_so2b(klon), lmt_so2h(klon), lmt_so2nff(klon) -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/deposition.F
r2630 r4727 12 12 IMPLICIT NONE 13 13 14 #include"dimensions.h"15 #include"chem.h"16 #include"YOMCST.h"17 #include"paramet.h"14 INCLUDE "dimensions.h" 15 INCLUDE "chem.h" 16 INCLUDE "YOMCST.h" 17 INCLUDE "paramet.h" 18 18 19 19 c----------------------------- INPUT ----------------------------------- -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/finemission.F
r2630 r4727 17 17 IMPLICIT NONE 18 18 19 #include"dimensions.h"20 #include"chem.h"21 #include"YOMCST.h"22 #include"paramet.h"19 INCLUDE "dimensions.h" 20 INCLUDE "chem.h" 21 INCLUDE "YOMCST.h" 22 INCLUDE "paramet.h" 23 23 24 24 INTEGER i, k, kminbc, kmaxbc -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/gastoparticle.F
r2630 r4727 10 10 IMPLICIT NONE 11 11 c 12 #include"dimensions.h"13 #include"chem.h"14 #include"chem_spla.h"15 #include"YOMCST.h"16 #include"YOECUMF.h"12 INCLUDE "dimensions.h" 13 INCLUDE "chem.h" 14 INCLUDE "chem_spla.h" 15 INCLUDE "YOMCST.h" 16 INCLUDE "YOECUMF.h" 17 17 c 18 18 REAL pdtphys -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/incloud_scav.F
r2630 r4727 11 11 IMPLICIT NONE 12 12 13 #include"dimensions.h"14 #include"chem.h"15 #include"YOMCST.h"16 #include"paramet.h"13 INCLUDE "dimensions.h" 14 INCLUDE "chem.h" 15 INCLUDE "YOMCST.h" 16 INCLUDE "paramet.h" 17 17 18 18 c============================= INPUT =================================== -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/incloud_scav_lsc.F
r2630 r4727 11 11 IMPLICIT NONE 12 12 13 #include"dimensions.h"14 #include"chem.h"15 #include"YOMCST.h"16 #include"paramet.h"13 INCLUDE "dimensions.h" 14 INCLUDE "chem.h" 15 INCLUDE "YOMCST.h" 16 INCLUDE "paramet.h" 17 17 18 18 c============================= INPUT =================================== -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/inscav_spl.F
r2630 r4727 10 10 c===================================================================== 11 11 c 12 #include"dimensions.h"13 #include"chem.h"14 #include"YOMCST.h"15 #include"YOECUMF.h"12 INCLUDE "dimensions.h" 13 INCLUDE "chem.h" 14 INCLUDE "YOMCST.h" 15 INCLUDE "YOECUMF.h" 16 16 c 17 17 INTEGER it -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/kg_to_cm3.F
r2630 r4727 5 5 IMPLICIT NONE 6 6 c 7 #include"dimensions.h"8 #include"YOMCST.h"7 INCLUDE "dimensions.h" 8 INCLUDE "YOMCST.h" 9 9 c 10 10 REAL t_seri(klon,klev), pplay(klon,klev) -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/minmaxqfi2.F
r2630 r4727 3 3 USE dimphy 4 4 USE infotrac 5 #include"dimensions.h"5 INCLUDE "dimensions.h" 6 6 7 7 ! character*20 comment -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/minmaxsource.F
r2630 r4727 4 4 USE infotrac 5 5 6 #include"dimensions.h"6 INCLUDE "dimensions.h" 7 7 8 8 ! character*20 comment -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/neutral.F
r2630 r4727 28 28 c 29 29 USE dimphy 30 #include"dimensions.h"30 INCLUDE "dimensions.h" 31 31 c 32 32 real u10_mps(klon),ustar_mps(klon),obklen_m(klon) -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/nightingale.F
r2630 r4727 7 7 IMPLICIT NONE 8 8 c 9 #include"dimensions.h"10 #include"YOMCST.h"9 INCLUDE "dimensions.h" 10 INCLUDE "YOMCST.h" 11 11 c 12 12 REAL u(klon,klev), v(klon,klev) -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/phys_output_write_spl_mod.F90
r4482 r4727 389 389 USE iophy, ONLY: set_itau_iophy, histwrite_phy 390 390 USE netcdf, ONLY: nf90_fill_real 391 392 #ifdef CPP_XIOS393 391 ! ug Pour les sorties XIOS 394 USE xios, ONLY: xios_update_calendar 395 USE wxios, ONLY: wxios_closedef, missing_val 396 #endif 392 USE lmdz_xios, ONLY: xios_update_calendar, using_xios 393 USE wxios, ONLY: wxios_closedef, missing_val_xios => missing_val 397 394 USE phys_cal_mod, ONLY : mth_len 398 395 … … 438 435 INTEGER, DIMENSION(iim*jjmp1*klev) :: ndex3d 439 436 REAL, PARAMETER :: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2 440 ! REAL, PARAMETER :: missing_val=nf90_fill_real441 #ifndef CPP_XIOS442 437 REAL :: missing_val 443 #endif444 438 REAL, PARAMETER :: un_jour=86400. 439 440 IF (using_xios) THEN 441 missing_val=missing_val_xios 442 ELSE 443 missing_val=nf90_fill_real 444 ENDIF 445 445 446 446 ! On calcul le nouveau tau: … … 460 460 ! ug la boucle qui suit ne sert qu'une fois, pour l'initialisation, sinon il n'y a toujours qu'un seul passage: 461 461 DO iinit=1, iinitend 462 #ifdef CPP_XIOS 463 !$OMP MASTER 464 IF (vars_defined) THEN 465 IF (prt_level >= 10) THEN 466 write(lunout,*)"phys_output_write: call xios_update_calendar, itau_w=",itau_w 467 ENDIF 468 ! CALL xios_update_calendar(itau_w) 469 CALL xios_update_calendar(itap) 470 ENDIF 471 !$OMP END MASTER 472 !$OMP BARRIER 473 #endif 462 IF (using_xios) THEN 463 !$OMP MASTER 464 IF (vars_defined) THEN 465 IF (prt_level >= 10) THEN 466 write(lunout,*)"phys_output_write: call xios_update_calendar, itau_w=",itau_w 467 ENDIF 468 ! CALL xios_update_calendar(itau_w) 469 CALL xios_update_calendar(itap) 470 ENDIF 471 !$OMP END MASTER 472 !$OMP BARRIER 473 ENDIF !using_xios 474 474 475 ! On procède à l'écriture ou à la définition des nombreuses variables: 475 476 !!! Champs 1D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! … … 489 490 !!! Champs 2D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 490 491 ! JE20141223 << 491 #include"spla_output_write.h"492 INCLUDE "spla_output_write.h" 492 493 ! JE20141223 >> 493 494 … … 828 829 829 830 #ifdef CPP_IOIPSL 830 #ifndef CPP_XIOS 831 IF (.NOT.ok_all_xml) THEN832 ! ATTENTION, LES ANCIENS HISTWRITE ONT ETES CONSERVES EN ATTENDANT MIEUX:833 ! Champs interpolles sur des niveaux de pression834 missing_val=missing_val_nf90835 DO iff=1, nfiles836 ll=0837 DO k=1, nlevSTD838 bb2=clevSTD(k)839 IF (bb2.EQ."850".OR.bb2.EQ."700".OR. &840 bb2.EQ."500".OR.bb2.EQ."200".OR. &841 bb2.EQ."100".OR. &842 bb2.EQ."50".OR.bb2.EQ."10") THEN 843 844 ! a refaire correctement !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!845 ll=ll+1846 CALL histwrite_phy(o_uSTDlevs(ll),uwriteSTD(:,k,iff), iff)847 CALL histwrite_phy(o_vSTDlevs(ll),vwriteSTD(:,k,iff), iff)848 CALL histwrite_phy(o_wSTDlevs(ll),wwriteSTD(:,k,iff), iff)849 CALL histwrite_phy(o_zSTDlevs(ll),phiwriteSTD(:,k,iff), iff)850 CALL histwrite_phy(o_qSTDlevs(ll),qwriteSTD(:,k,iff), iff)851 CALL histwrite_phy(o_tSTDlevs(ll),twriteSTD(:,k,iff), iff) 852 853 ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR.854 855 ENDDO856 ENDIF 831 IF (.NOT. using_xios) THEN 832 IF (.NOT.ok_all_xml) THEN 833 ! ATTENTION, LES ANCIENS HISTWRITE ONT ETES CONSERVES EN ATTENDANT MIEUX: 834 ! Champs interpolles sur des niveaux de pression 835 DO iff=1, nfiles 836 ll=0 837 DO k=1, nlevSTD 838 bb2=clevSTD(k) 839 IF (bb2.EQ."850".OR.bb2.EQ."700".OR. & 840 bb2.EQ."500".OR.bb2.EQ."200".OR. & 841 bb2.EQ."100".OR. & 842 bb2.EQ."50".OR.bb2.EQ."10") THEN 843 844 ! a refaire correctement !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 845 ll=ll+1 846 CALL histwrite_phy(o_uSTDlevs(ll),uwriteSTD(:,k,iff), iff) 847 CALL histwrite_phy(o_vSTDlevs(ll),vwriteSTD(:,k,iff), iff) 848 CALL histwrite_phy(o_wSTDlevs(ll),wwriteSTD(:,k,iff), iff) 849 CALL histwrite_phy(o_zSTDlevs(ll),phiwriteSTD(:,k,iff), iff) 850 CALL histwrite_phy(o_qSTDlevs(ll),qwriteSTD(:,k,iff), iff) 851 CALL histwrite_phy(o_tSTDlevs(ll),twriteSTD(:,k,iff), iff) 852 853 ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR. 854 ENDDO 855 ENDDO 856 ENDIF 857 ENDIF !.NOT.using_xios 857 858 #endif 858 #endif 859 860 #ifdef CPP_XIOS 861 IF (ok_all_xml) THEN 862 !XIOS CALL xios_get_field_attr("u850",default_value=missing_val) 863 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 859 860 IF (using_xios) THEN 861 IF (ok_all_xml) THEN 862 !XIOS CALL xios_get_field_attr("u850",default_value=missing_val) 863 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 864 864 ll=0 865 865 DO k=1, nlevSTD … … 878 878 ENDIF !(bb2.EQ."850".OR.bb2.EQ."700".OR. 879 879 ENDDO 880 ENDIF881 #endif 880 ENDIF 881 ENDIF !using_xios 882 882 IF (vars_defined) THEN 883 883 DO i=1, klon … … 1471 1471 !!!!!!!!!!!! Sorties niveaux de pression NMC !!!!!!!!!!!!!!!!!!!! 1472 1472 #ifdef CPP_IOIPSL 1473 #ifndef CPP_XIOS 1474 IF (.NOT. ok_all_xml) THEN1475 ! ATTENTION, LES ANCIENS HISTWRITE ONT ETES CONSERVES EN ATTENDANT MIEUX:1476 ! Champs interpolles sur des niveaux de pression1477 missing_val=missing_val_nf901473 1474 IF (.NOT. using_xios) THEN 1475 IF (.NOT.ok_all_xml) THEN 1476 ! ATTENTION, LES ANCIENS HISTWRITE ONT ETES CONSERVES EN ATTENDANT MIEUX: 1477 ! Champs interpolles sur des niveaux de pression 1478 1478 DO iff=7, nfiles-1 !--here we deal with files 7,8 and 9 1479 1479 … … 1539 1539 CALL histwrite_phy(o_TxT,T2sumSTD(:,:,iff-6),iff) 1540 1540 ENDDO !nfiles 1541 ENDIF 1541 1542 ENDIF 1542 1543 #endif 1543 #endif 1544 #ifdef CPP_XIOS 1544 1545 IF (using_xios) THEN 1545 1546 IF (ok_all_xml) THEN 1546 1547 ! DO iff=7, nfiles … … 1607 1608 CALL histwrite_phy(o_TxT,T2STD(:,:)) 1608 1609 ! ENDDO !nfiles 1609 ENDIF1610 #endif 1610 ENDIF 1611 ENDIF !using_xios 1611 1612 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 1612 1613 itr = 0 … … 1651 1652 ENDDO ! iff 1652 1653 #endif 1653 #ifdef CPP_XIOS1654 1654 !On finalise l'initialisation: 1655 CALL wxios_closedef() 1656 #endif 1655 IF (using_xios) CALL wxios_closedef() 1657 1656 1658 1657 !$OMP END MASTER -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/phytracr_spl_mod.F90
r4160 r4727 804 804 805 805 USE mod_phys_lmdz_transfert_para 806 807 USE phys_cal_mod, only: jD_1jan,year_len, mth_len, days_elapsed, jh_1jan, year_cur, &808 mth_cur, phys_cal_update806 USE lmdz_thermcell_dq, ONLY : thermcell_dq 807 USE phys_cal_mod, only: jD_1jan,year_len, mth_len, days_elapsed, jh_1jan, year_cur, & 808 mth_cur, phys_cal_update 809 809 810 810 ! … … 823 823 !! et c'est encore different avec le parser de DC ? 824 824 !====================================================================== 825 #include"dimensions.h"826 #include"chem.h"827 #include"chem_spla.h"828 #include"YOMCST.h"829 #include"YOETHF.h"830 #include"paramet.h"831 #include"alpale.h"825 INCLUDE "dimensions.h" 826 INCLUDE "chem.h" 827 INCLUDE "chem_spla.h" 828 INCLUDE "YOMCST.h" 829 INCLUDE "YOETHF.h" 830 INCLUDE "paramet.h" 831 INCLUDE "alpale.h" 832 832 833 833 !====================================================================== … … 1070 1070 !---------- 1071 1071 REAL,DIMENSION(klon,klev+1),INTENT(IN) :: fm_therm 1072 REAL,DIMENSION(klon,klev),INTENT(IN ) :: entr_therm1072 REAL,DIMENSION(klon,klev),INTENT(INOUT) :: entr_therm 1073 1073 1074 1074 -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/precuremission.F
r2630 r4727 22 22 IMPLICIT NONE 23 23 24 #include"dimensions.h"25 #include"chem.h"26 #include"chem_spla.h"27 #include"YOMCST.h"28 #include"paramet.h"24 INCLUDE "dimensions.h" 25 INCLUDE "chem.h" 26 INCLUDE "chem_spla.h" 27 INCLUDE "YOMCST.h" 28 INCLUDE "paramet.h" 29 29 30 30 c============================= INPUT =================================== -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/read_dust.F
r3786 r4727 5 5 IMPLICIT NONE 6 6 c 7 #include"dimensions.h"8 #include"paramet.h"9 #include"netcdf.inc"7 INCLUDE "dimensions.h" 8 INCLUDE "paramet.h" 9 INCLUDE "netcdf.inc" 10 10 c 11 11 INTEGER step, nbjour -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/read_newemissions.F
r3786 r4727 26 26 27 27 28 #include"dimensions.h"28 INCLUDE "dimensions.h" 29 29 c INCLUDE 'dimphy.h' 30 30 INCLUDE 'paramet.h' -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/read_surface.F90
r2630 r4727 13 13 IMPLICIT NONE 14 14 15 include"netcdf.inc"16 #include"dimensions.h"17 #include"paramet.h"15 INCLUDE "netcdf.inc" 16 INCLUDE "dimensions.h" 17 INCLUDE "paramet.h" 18 18 19 19 character*10 name -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/read_vent.F
r3806 r4727 5 5 ! USE write_field_phy 6 6 IMPLICIT NONE 7 #include"dimensions.h"8 c #include"dimphy.h"9 #include"paramet.h"10 #include"netcdf.inc"7 INCLUDE "dimensions.h" 8 c INCLUDE "dimphy.h" 9 INCLUDE "paramet.h" 10 INCLUDE "netcdf.inc" 11 11 c 12 12 INTEGER step, nbjour -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/seasalt.F
r2630 r4727 7 7 IMPLICIT NONE 8 8 c 9 #include"dimensions.h"10 #include"chem.h"11 #include"chem_spla.h"12 #include"YOMCST.h"13 #include"YOECUMF.h"9 INCLUDE "dimensions.h" 10 INCLUDE "chem.h" 11 INCLUDE "chem_spla.h" 12 INCLUDE "YOMCST.h" 13 INCLUDE "YOECUMF.h" 14 14 c 15 15 INTEGER i, bin !local variables -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/sediment_mod.F
r2630 r4727 12 12 IMPLICIT NONE 13 13 c 14 #include"dimensions.h"15 #include"chem.h"16 c #include"dimphy.h"17 #include"YOMCST.h"18 #include"YOECUMF.h"14 INCLUDE "dimensions.h" 15 INCLUDE "chem.h" 16 c INCLUDE "dimphy.h" 17 INCLUDE "YOMCST.h" 18 INCLUDE "YOECUMF.h" 19 19 c 20 20 REAL RHcl(klon,klev) ! humidite relative ciel clair -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/tiedqneg.F
r2630 r4727 15 15 c====================================================================== 16 16 c 17 #include"dimensions.h"18 c #include"dimphy.h"17 INCLUDE "dimensions.h" 18 c INCLUDE "dimphy.h" 19 19 REAL pres_h(klon,klev+1) 20 20 REAL q(klon,klev) -
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/Dust/trconvect.F
r2630 r4727 10 10 IMPLICIT NONE 11 11 12 #include"dimensions.h"13 #include"chem.h"14 #include"YOMCST.h"15 #include"paramet.h"12 INCLUDE "dimensions.h" 13 INCLUDE "chem.h" 14 INCLUDE "YOMCST.h" 15 INCLUDE "paramet.h" 16 16 17 17 c============================= INPUT ===================================
Note: See TracChangeset
for help on using the changeset viewer.
