Changeset 5296 for LMDZ6/trunk
- Timestamp:
- Oct 30, 2024, 2:05:33 PM (8 weeks ago)
- Location:
- LMDZ6/trunk/libf
- Files:
-
- 1 added
- 1 deleted
- 29 edited
- 3 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.f90
r5285 r5296 96 96 ratqs_inter_ 97 97 USE alpale_mod 98 USE compbl_mod_h 98 99 IMPLICIT NONE 99 100 !------------------------------------------------------------------------------- … … 128 129 REAL :: alp_offset 129 130 LOGICAL :: filtre_oro=.false. 130 131 INCLUDE "compbl.h"132 131 133 132 deg2rad= pi/180.0 -
LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90
r5285 r5296 89 89 ! defined and initialised mainly in phytracr_spl_mod.F90 (SPLA tracers, subroutine phytracr_spl_out_init) 90 90 91 USE alpale_mod 91 USE compbl_mod_h 92 USE alpale_mod 92 93 USE dimphy, ONLY: klon, klev, klevp1 93 94 USE ocean_slab_mod, ONLY: nslay … … 395 396 396 397 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 397 USE yomcst_mod_h398 USE yomcst_mod_h 398 399 USE clesphys_mod_h 399 400 USE iniprint_mod_h 401 USE phys_constants_mod, ONLY: dobson_u 400 402 IMPLICIT NONE 401 403 402 404 ! INCLUDE "temps.h" 403 INCLUDE "compbl.h"404 405 405 406 ! Input … … 433 434 INTEGER, DIMENSION(iim*jjmp1) :: ndex2d 434 435 INTEGER, DIMENSION(iim*jjmp1*klev) :: ndex3d 435 REAL, PARAMETER :: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2436 436 REAL :: missing_val 437 437 REAL, PARAMETER :: un_jour=86400. -
LMDZ6/trunk/libf/phylmd/climb_hq_mod.f90
r5285 r5296 5 5 ! 6 6 USE dimphy 7 7 USE compbl_mod_h 8 8 IMPLICIT NONE 9 9 PRIVATE … … 81 81 REAL :: delz, pkh 82 82 INTEGER :: k, i, ierr 83 ! Include84 !****************************************************************************************85 INCLUDE "compbl.h"86 87 83 88 84 !**************************************************************************************** … … 328 324 ! 329 325 USE yomcst_mod_h 326 USE compbl_mod_h 330 327 ! Input arguments 331 328 !**************************************************************************************** … … 353 350 REAL, DIMENSION(klon) :: psref 354 351 INTEGER :: k, i, ierr 355 356 ! Include357 !****************************************************************************************358 INCLUDE "compbl.h"359 360 352 !**************************************************************************************** 361 353 ! 1) -
LMDZ6/trunk/libf/phylmd/climb_qbs_mod.f90
r5285 r5296 33 33 ! the index of the vertical layer. 34 34 USE yomcst_mod_h 35 USE compbl_mod_h 35 36 ! Input arguments 36 37 !**************************************************************************************** … … 61 62 REAL :: delz, pkh 62 63 INTEGER :: k, i, ierr 63 ! Include64 !****************************************************************************************65 INCLUDE "compbl.h"66 67 68 64 !**************************************************************************************** 69 65 ! 1) … … 257 253 ! 258 254 USE yomcst_mod_h 255 USE compbl_mod_h 259 256 ! Input arguments 260 257 !**************************************************************************************** … … 282 279 REAL, DIMENSION(klon) :: psref 283 280 INTEGER :: k, i, ierr 284 285 ! Include286 !****************************************************************************************287 INCLUDE "compbl.h"288 289 281 !**************************************************************************************** 290 282 ! 1) -
LMDZ6/trunk/libf/phylmd/climb_wind_mod.f90
r5285 r5296 86 86 ! 87 87 USE yomcst_mod_h 88 USE compbl_mod_h 88 89 ! Input arguments 89 90 !**************************************************************************************** … … 119 120 REAL, DIMENSION(klon) :: u1lay, v1lay 120 121 INTEGER :: k, i 121 122 ! Include123 !****************************************************************************************124 INCLUDE "compbl.h"125 126 122 !**************************************************************************************** 127 123 ! Initialize module … … 273 269 !**************************************************************************************** 274 270 USE yomcst_mod_h 271 USE compbl_mod_h 275 272 ! Input arguments 276 273 !**************************************************************************************** … … 296 293 REAL, DIMENSION(klon,klev) :: u_new, v_new 297 294 INTEGER :: k, i 298 299 ! Include300 !****************************************************************************************301 INCLUDE "compbl.h"302 303 !304 295 !**************************************************************************************** 305 296 -
LMDZ6/trunk/libf/phylmd/coef_diff_turb_mod.f90
r5285 r5296 22 22 USE yomcst_mod_h 23 23 USE yoethf_mod_h 24 USE compbl_mod_h 24 25 ! 25 26 ! Calculate coefficients(ycoefm, ycoefh) for turbulent diffusion in the … … 60 61 REAL, DIMENSION(klon,klev+1) :: yzlev, q2diag, ykmm, ykmn, ykmq 61 62 REAL, DIMENSION(klon) :: yustar 62 63 ! Include64 !****************************************************************************************65 INCLUDE "compbl.h"66 63 67 64 ykmm = 0 !ym missing init … … 212 209 USE print_control_mod, ONLY: prt_level, lunout 213 210 USE yoethf_mod_h 211 USE compbl_mod_h 214 212 215 213 !====================================================================== … … 233 231 !====================================================================== 234 232 INCLUDE "FCTTRE.h" 235 INCLUDE "compbl.h"236 233 ! 237 234 ! Arguments: -
LMDZ6/trunk/libf/phylmd/compbl_mod_h.f90
r5295 r5296 1 ! 2 ! $Header$ 3 ! 4 !jyg+al1< 5 !! integer iflag_pbl,iflag_pbl_split 6 !! common/compbl/iflag_pbl,iflag_pbl_split 7 !!FC integer iflag_pbl, iflag_pbl_split, iflag_order2_sollw 8 !FC common/compbl/iflag_pbl, iflag_pbl_split, iflag_order2_sollw 9 integer iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree 10 common/compbl/iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree 11 !>jyg+al1 12 !$OMP THREADPRIVATE(/compbl/) 1 ! Replaces compbl.h 2 3 MODULE compbl_mod_h 4 IMPLICIT NONE; PRIVATE 5 PUBLIC iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree 6 7 !! integer iflag_pbl,iflag_pbl_split 8 !! common/compbl/iflag_pbl,iflag_pbl_split 9 !!FC integer iflag_pbl, iflag_pbl_split, iflag_order2_sollw 10 !FC common/compbl/iflag_pbl, iflag_pbl_split, iflag_order2_sollw 11 INTEGER iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree 12 !$OMP THREADPRIVATE(iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree) 13 14 !>jyg+al1 15 16 END MODULE compbl_mod_h -
LMDZ6/trunk/libf/phylmd/conf_phys_m.f90
r5285 r5296 24 24 alp_offset) 25 25 26 USE alpale_mod 26 USE compbl_mod_h 27 USE alpale_mod 27 28 USE conema3_mod_h 28 29 USE yomcst_mod_h … … 46 47 47 48 !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12 48 INCLUDE "compbl.h"49 49 INCLUDE "comsoil.h" 50 50 INCLUDE "YOEGWD.h" -
LMDZ6/trunk/libf/phylmd/create_etat0_unstruct_mod.f90
r5284 r5296 95 95 USE clesphys_mod_h 96 96 USE alpale_mod 97 USE compbl_mod_h 97 98 IMPLICIT NONE 98 99 … … 112 113 REAL, DIMENSION(klon_mpi) :: cell_area_mpi 113 114 REAL, DIMENSION(klon_mpi,nbsrf) :: pctsrf_mpi 114 115 INCLUDE "compbl.h"116 115 117 116 INTEGER :: ji,j,i -
LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90
r5285 r5296 5 5 SUBROUTINE old_lmdz1d 6 6 7 USE clesphys_mod_h 7 USE compbl_mod_h 8 USE clesphys_mod_h 8 9 USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin 9 10 USE phys_state_var_mod, ONLY : phys_state_var_init, phys_state_var_end, & … … 64 65 INCLUDE "fcg_gcssold.h" 65 66 !!! INCLUDE "fbforcing.h" 66 INCLUDE "compbl.h"67 67 68 68 !===================================================================== -
LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90
r5285 r5296 1 1 SUBROUTINE scm 2 2 3 USE clesphys_mod_h 3 USE compbl_mod_h 4 USE clesphys_mod_h 4 5 USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin 5 6 USE phys_state_var_mod, ONLY : phys_state_var_init, phys_state_var_end, & … … 59 60 INCLUDE "tsoilnudge.h" 60 61 INCLUDE "fcg_gcssold.h" 61 INCLUDE "compbl.h"62 62 63 63 !===================================================================== -
LMDZ6/trunk/libf/phylmd/ener_conserv.f90
r5285 r5296 20 20 21 21 ! From module 22 USE compbl_mod_h 22 23 USE yoethf_mod_h 23 24 USE clesphys_mod_h … … 36 37 IMPLICIT none 37 38 38 INCLUDE "compbl.h"39 39 40 40 ! Arguments -
LMDZ6/trunk/libf/phylmd/freinage.f90
r5285 r5296 6 6 7 7 !ONLINE: 8 USE clesphys_mod_h 8 USE compbl_mod_h 9 USE clesphys_mod_h 9 10 use dimphy, only: klon, klev 10 11 ! USE control, ONLY: nvm … … 17 18 18 19 include "YOEGWD.h" 19 !FC 20 !FC 20 21 include "dimpft.h" 21 include "compbl.h"22 22 23 23 ! 0. DECLARATIONS: -
LMDZ6/trunk/libf/phylmd/inlandsis/surf_inlandsis_mod.f90
r5282 r5296 1040 1040 USE dimsoil_mod_h, ONLY: nsoilmx, nsnowmx, nsismx 1041 1041 USE clesphys_mod_h 1042 USE compbl_mod_h 1042 1043 IMPLICIT none 1043 1044 !====================================================================== … … 1045 1046 ! Objet: Lecture du fichier de conditions initiales pour SISVAT 1046 1047 !====================================================================== 1047 ! include "indicesol.h" 1048 1049 ! 1050 include "compbl.h" 1051 1052 !====================================================================== 1048 1053 1049 CHARACTER(LEN = *) :: fichnom 1054 1050 … … 1268 1264 ! Objet: Ecriture de l'etat de redemarrage pour SISVAT 1269 1265 !====================================================================== 1270 USE mod_grid_phy_lmdz 1266 USE compbl_mod_h 1267 USE mod_grid_phy_lmdz 1271 1268 USE mod_phys_lmdz_para 1272 1269 USE iostart … … 1280 1277 1281 1278 IMPLICIT none 1282 include "compbl.h"1283 1279 1284 1280 !====================================================================== -
LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90
r5285 r5296 407 407 #endif 408 408 #endif 409 USE yoethf_mod_h 409 USE compbl_mod_h 410 USE yoethf_mod_h 410 411 USE clesphys_mod_h 411 412 USE ioipsl_getin_p_mod, ONLY : getin_p … … 422 423 423 424 INCLUDE "FCTTRE.h" 424 INCLUDE "compbl.h"425 425 INCLUDE "flux_arp.h" 426 426 !FC … … 4287 4287 ! Give default values where new fraction has appread 4288 4288 4289 USE clesphys_mod_h 4289 USE compbl_mod_h 4290 USE clesphys_mod_h 4290 4291 USE indice_sol_mod 4291 4292 use phys_state_var_mod, only: delta_sal, ds_ns, dt_ns, delta_sst, dter, & 4292 4293 dser, dt_ds 4293 4294 use config_ocean_skin_m, only: activate_ocean_skin 4294 INCLUDE "compbl.h"4295 4295 4296 4296 ! Input variables -
LMDZ6/trunk/libf/phylmd/phyetat0_mod.f90
r5285 r5296 45 45 use config_ocean_skin_m, only: activate_ocean_skin 46 46 USE dimsoil_mod_h, ONLY: nsoilmx 47 48 49 47 USE yomcst_mod_h 50 48 USE alpale_mod 49 USE compbl_mod_h 51 50 IMPLICIT none 52 51 !====================================================================== 53 52 ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818 54 53 ! Objet: Lecture de l'etat initial pour la physique 55 !======================================================================56 include "compbl.h"57 58 54 !====================================================================== 59 55 CHARACTER*(*) fichnom -
LMDZ6/trunk/libf/phylmd/phyredem.f90
r5284 r5296 9 9 ! Purpose: Write restart state for physics. 10 10 !------------------------------------------------------------------------------- 11 USE alpale_mod 11 USE compbl_mod_h 12 USE alpale_mod 12 13 USE clesphys_mod_h 13 14 USE dimphy, ONLY: klon, klev … … 47 48 USE dimsoil_mod_h, ONLY: nsoilmx 48 49 IMPLICIT none 49 include "compbl.h"50 50 !====================================================================== 51 51 CHARACTER*(*) fichnom -
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r5285 r5296 470 470 USE YOESW, ONLY : RSUN 471 471 #endif 472 USE alpale_mod 472 USE compbl_mod_h 473 USE alpale_mod 473 474 USE clesphys_mod_h 474 475 USE tracinca_mod, ONLY: config_inca … … 479 480 480 481 USE yomcst_mod_h 482 USE phys_constants_mod, ONLY: dobson_u 481 483 IMPLICIT NONE 482 484 483 INCLUDE "compbl.h"484 485 485 486 … … 516 517 INTEGER, DIMENSION(nbp_lon*nbp_lat) :: ndex2d 517 518 INTEGER, DIMENSION(nbp_lon*nbp_lat*klev) :: ndex3d 518 REAL, PARAMETER :: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2519 519 ! REAL, PARAMETER :: missing_val=nf90_fill_real 520 520 REAL, DIMENSION(klev+1,2) :: Ahyb_bounds, Bhyb_bounds -
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r5293 r5296 362 362 USE yoethf_mod_h 363 363 USE calcul_divers_mod_h, ONLY: calcul_divers 364 364 USE compbl_mod_h 365 365 IMPLICIT NONE 366 366 !>====================================================================== … … 1174 1174 include "FCTTRE.h" 1175 1175 include "nuage.h" 1176 include "compbl.h"1177 1176 !IM 100106 END : pouvoir sortir les ctes de la physique 1178 1177 ! -
LMDZ6/trunk/libf/phylmd/radiation_AR4.f90
r5285 r5296 9 9 USE print_control_mod, ONLY: lunout 10 10 USE yomcst_mod_h 11 USE phys_constants_mod, ONLY: dobson_u 11 12 IMPLICIT NONE 12 13 … … 81 82 82 83 ! * LOCAL VARIABLES: 83 84 REAL, PARAMETER :: dobson_u = 2.1415E-05 ! Dobson unit, in kg m-285 84 86 85 REAL (KIND=8) zoz(kdlon, kflev) -
LMDZ6/trunk/libf/phylmd/radlwsw_m.F90
r5285 r5296 89 89 USE clesphys_mod_h 90 90 USE yoethf_mod_h 91 USE phys_constants_mod, ONLY: dobson_u 91 92 92 93 !====================================================================== … … 403 404 REAL(KIND=8) zsolsw_aero(kdlon,9), zsolsw0_aero(kdlon,9) 404 405 REAL(KIND=8) ztopswcf_aero(kdlon,3), zsolswcf_aero(kdlon,3) 405 ! real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2 deje declare dans physiq.F MPL 20130618406 406 !MPL input supplementaires pour RECMWFL 407 407 ! flwc, fiwc = Liquid Water Content & Ice Water Content (kg/kg) … … 471 471 ! REAL(KIND=8) SUN(3) 472 472 ! REAL(KIND=8) SUN_FRACT(2) 473 REAL, PARAMETER:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2474 473 CHARACTER (LEN=80) :: abort_message 475 474 CHARACTER (LEN=80) :: modname='radlwsw_m' -
LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nofrein_mod.F90
r5285 r5296 61 61 #endif 62 62 USE yomcst_mod_h 63 USE compbl_mod_h 63 64 ! 64 65 ! Cette routine sert d'interface entre le modele atmospherique et le … … 115 116 ! 116 117 INCLUDE "dimpft.h" 117 INCLUDE "compbl.h"118 119 118 120 119 ! -
LMDZ6/trunk/libf/phylmd/surf_land_orchidee_noz0h_mod.F90
r5285 r5296 59 59 #endif 60 60 USE yomcst_mod_h 61 USE compbl_mod_h 61 62 ! 62 63 ! Cette routine sert d'interface entre le modele atmospherique et le … … 113 114 ! 114 115 INCLUDE "dimpft.h" 115 INCLUDE "compbl.h"116 116 ! 117 117 ! Parametres d'entree -
LMDZ6/trunk/libf/phylmd/sw_aeroAR4.f90
r5285 r5296 99 99 !* LOCAL VARIABLES: 100 100 ! 101 real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2102 101 103 102 REAL(KIND=8) ZOZ(KDLON,KFLEV) -
LMDZ6/trunk/libf/phylmd/undefSTD.f90
r5282 r5296 36 36 ! INTEGER nlevSTD, klevSTD, itap 37 37 ! PARAMETER(klevSTD=17) 38 INTEGER itap39 38 40 39 ! variables locales … … 43 42 INTEGER i, k, n 44 43 ! REAL freq_calNMC(nout) 45 INTEGER read_climoz44 INTEGER, INTENT(IN) :: read_climoz, itap 46 45 47 46 ! variables Output -
LMDZ6/trunk/libf/phylmdiso/climb_hq_mod.F90
r5285 r5296 63 63 #endif 64 64 USE yomcst_mod_h 65 USE compbl_mod_h 65 66 66 67 ! This routine calculates recursivly the coefficients C and D … … 124 125 real, DIMENSION(klon) :: Acoef_XT_tmp,Bcoef_XT_tmp 125 126 integer ixt 126 #endif 127 ! Include 128 !**************************************************************************************** 129 INCLUDE "compbl.h" 127 #endif 130 128 131 129 #ifdef ISO … … 505 503 #endif 506 504 USE yomcst_mod_h 505 USE compbl_mod_h 507 506 ! 508 507 ! This routine calculates the flux and tendency of the specific humidity q and … … 555 554 #endif 556 555 557 ! Include558 !****************************************************************************************559 INCLUDE "compbl.h"560 561 556 !**************************************************************************************** 562 557 ! 1) -
LMDZ6/trunk/libf/phylmdiso/compbl_mod_h.f90
r5295 r5296 1 link ../phylmd/compbl .h1 link ../phylmd/compbl_mod_h.f90 -
LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90
r5285 r5296 15877 15877 #endif 15878 15878 15879 USE compbl_mod_h 15879 15880 USE clesphys_mod_h 15880 15881 implicit none 15881 15882 15882 15883 ! equivalent de phyetat0 pour les isotopes 15883 INCLUDE "compbl.h"15884 15884 15885 15885 !#ifdef ISOVERIF … … 16052 16052 USE isotrac_mod, ONLY: index_iso,index_zone,izone_init 16053 16053 #endif 16054 USE compbl_mod_h 16054 16055 USE clesphys_mod_h 16055 16056 implicit none 16056 INCLUDE "compbl.h"16057 16057 16058 16058 ! arguments … … 16426 16426 USE isotrac_mod, ONLY: strtrac, initialisation_isotrac, index_iso, index_zone, izone_init 16427 16427 #endif 16428 USE compbl_mod_h 16428 16429 USE clesphys_mod_h 16429 16430 IMPLICIT NONE 16430 INCLUDE "compbl.h"16431 16431 16432 16432 REAL, INTENT(IN) :: snow (klon,nbsrf) -
LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90
r5285 r5296 64 64 USE yomcst_mod_h 65 65 USE alpale_mod 66 USE compbl_mod_h 66 67 IMPLICIT none 67 68 !====================================================================== 68 69 ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818 69 70 ! Objet: Lecture de l'etat initial pour la physique 70 !====================================================================== 71 include "compbl.h" 72 73 !====================================================================== 71 !====================================================================== !====================================================================== 74 72 CHARACTER*(*) fichnom 75 73 -
LMDZ6/trunk/libf/phylmdiso/phyredem.F90
r5284 r5296 46 46 #endif 47 47 #endif 48 USE alpale_mod 48 USE compbl_mod_h 49 USE alpale_mod 49 50 USE clesphys_mod_h 50 51 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send, carbon_cycle_rad, RCO2_glo … … 57 58 58 59 IMPLICIT none 59 include "compbl.h"60 60 !====================================================================== 61 61 CHARACTER*(*) fichnom … … 512 512 use isotrac_mod, only: index_zone,index_iso,strtrac 513 513 #endif 514 USE compbl_mod_h 514 515 USE alpale_mod 515 516 USE clesphys_mod_h … … 518 519 519 520 ! equivalent isotopique de phyredem 520 INCLUDE "compbl.h"521 521 ! inputs 522 522 !REAL xtsol(niso,klon) -
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r5293 r5296 435 435 USE yoethf_mod_h 436 436 USE calcul_divers_mod_h, ONLY: calcul_divers 437 437 USE compbl_mod_h 438 438 IMPLICIT NONE 439 439 !>====================================================================== … … 1285 1285 !IM 100106 BEG : pouvoir sortir les ctes de la physique 1286 1286 include "nuage.h" 1287 include "compbl.h"1288 1287 !IM 100106 END : pouvoir sortir les ctes de la physique 1289 1288 !
Note: See TracChangeset
for help on using the changeset viewer.