Changeset 1785 for LMDZ5/trunk
- Timestamp:
- Jul 16, 2013, 11:22:04 AM (11 years ago)
- Location:
- LMDZ5/trunk
- Files:
-
- 1 added
- 1 deleted
- 66 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/bld.cfg
r1556 r1785 106 106 bld::outfile_ext::mod .mod 107 107 bld::tool::SHELL /bin/bash 108 bld::tool::SHELL /bin/ksh -
LMDZ5/trunk/libf/dyn3d/ce0l.F90
r1615 r1785 20 20 USE comgeomphy 21 21 USE infotrac 22 USE indice_sol_mod 22 23 23 24 #ifdef CPP_IOIPSL … … 36 37 #include "dimensions.h" 37 38 #include "paramet.h" 38 #include "indicesol.h"39 !#include "indicesol.h" 39 40 #include "iniprint.h" 40 41 #include "temps.h" -
LMDZ5/trunk/libf/dyn3d/gcm.F
r1697 r1785 16 16 USE infotrac 17 17 USE control_mod 18 19 #ifdef INCA 20 ! Only INCA needs these informations (from the Earth's physics) 21 USE indice_sol_mod 22 #endif 18 23 19 24 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! … … 77 82 #ifdef INCA 78 83 ! Only INCA needs these informations (from the Earth's physics) 79 #include "indicesol.h"84 !#include "indicesol.h" 80 85 #endif 81 86 INTEGER longcles -
LMDZ5/trunk/libf/dyn3dmem/ce0l.F90
r1673 r1785 23 23 USE infotrac 24 24 USE parallel, ONLY: finalize_parallel 25 USE indice_sol_mod 25 26 26 27 #ifdef CPP_IOIPSL … … 39 40 #include "dimensions.h" 40 41 #include "paramet.h" 41 #include "indicesol.h"42 !#include "indicesol.h" 42 43 #include "iniprint.h" 43 44 #include "temps.h" -
LMDZ5/trunk/libf/dyn3dmem/gcm.F
r1749 r1785 19 19 USE filtreg_mod 20 20 USE control_mod 21 22 #ifdef INCA 23 ! Only INCA needs these informations (from the Earth's physics) 24 USE indice_sol_mod 25 #endif 21 26 22 27 #ifdef CPP_PHYS … … 75 80 #ifdef INCA 76 81 ! Only INCA needs these informations (from the Earth's physics) 77 #include "indicesol.h"82 !#include "indicesol.h" 78 83 #endif 79 84 -
LMDZ5/trunk/libf/dyn3dpar/ce0l.F90
r1615 r1785 23 23 USE infotrac 24 24 USE parallel, ONLY: finalize_parallel 25 USE indice_sol_mod 25 26 26 27 #ifdef CPP_IOIPSL … … 39 40 #include "dimensions.h" 40 41 #include "paramet.h" 41 #include "indicesol.h"42 !#include "indicesol.h" 42 43 #include "iniprint.h" 43 44 #include "temps.h" -
LMDZ5/trunk/libf/dyn3dpar/gcm.F
r1697 r1785 19 19 USE filtreg_mod 20 20 USE control_mod 21 22 #ifdef INCA 23 ! Only INCA needs these informations (from the Earth's physics) 24 USE indice_sol_mod 25 #endif 21 26 22 27 #ifdef CPP_PHYS … … 75 80 #ifdef INCA 76 81 ! Only INCA needs these informations (from the Earth's physics) 77 #include "indicesol.h"82 !#include "indicesol.h" 78 83 #endif 79 84 -
LMDZ5/trunk/libf/phy1d/lmdz1d.F
r1780 r1785 2 2 3 3 USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar 4 usephys_state_var_mod5 usecomgeomphy6 usedimphy7 usesurface_data, only : type_ocean,ok_veget8 use pbl_surface_mod, only : ftsoil, pbl_surface_init,9 $ pbl_surface_final10 use fonte_neige_mod, only : fonte_neige_init, fonte_neige_final 11 12 use infotrac ! new13 use control_mod4 USE phys_state_var_mod 5 USE comgeomphy 6 USE dimphy 7 USE surface_data, only : type_ocean,ok_veget 8 USE pbl_surface_mod, only : pbl_surface_init, pbl_surface_final 9 USE fonte_neige_mod, only : fonte_neige_init, fonte_neige_final 10 11 USE infotrac ! new 12 USE control_mod 13 USE indice_sol_mod 14 14 15 15 implicit none … … 21 21 #include "clesphys.h" 22 22 #include "dimsoil.h" 23 #include "indicesol.h"23 !#include "indicesol.h" 24 24 25 25 #include "comvert.h" 26 26 #include "compar1d.h" 27 27 #include "flux_arp.h" 28 #include "tsoilnudge.h"29 28 #include "fcg_gcssold.h" 30 29 !!!#include "fbforcing.h" … … 88 87 89 88 integer :: kmax = llm 90 integer nlev_max ,llm70091 parameter (nlev_max = 100 0)89 integer nlev_max 90 parameter (nlev_max = 100) 92 91 real timestep, frac, timeit 93 92 real height(nlev_max),tttprof(nlev_max),qtprof(nlev_max), … … 100 99 c integer :: forcing_type 101 100 logical :: forcing_les = .false. 102 logical :: forcing_armcu 101 logical :: forcing_armcu = .false. 103 102 logical :: forcing_rico = .false. 104 103 logical :: forcing_radconv = .false. 105 104 logical :: forcing_toga = .false. 106 105 logical :: forcing_twpice = .false. 107 logical :: forcing_amma = .false.108 106 logical :: forcing_GCM2SCM = .false. 109 107 logical :: forcing_GCSSold = .false. 110 logical :: forcing_sandu = .false.111 logical :: forcing_astex = .false.112 logical :: forcing_fire = .false.113 108 integer :: type_ts_forcing ! 0 = SST constant; 1 = SST read from a file 114 109 ! (cf read_tsurf1d.F) 115 110 116 111 !vertical advection computation 117 !real d_t_z(llm), d_q_z(llm)118 !real d_t_dyn_z(llm), d_q_dyn_z(llm)119 !real zz(llm)120 !real zfact112 real d_t_z(llm), d_q_z(llm) 113 real d_t_dyn_z(llm), d_q_dyn_z(llm) 114 real zz(llm) 115 real zfact 121 116 122 117 !flag forcings … … 135 130 real :: pzero=1.e5 136 131 real :: play (llm),zlay (llm),sig_s(llm),plev(llm+1) 137 real :: playd(llm),zlayd(llm) ,ap_amma(llm+1),bp_amma(llm+1),poub132 real :: playd(llm),zlayd(llm) 138 133 139 134 !--------------------------------------------------------------------- … … 143 138 integer :: iq 144 139 real :: phi(llm) 145 real :: teta(llm),tetal(llm),temp(llm),u(llm),v(llm),w(llm)146 140 real :: rlat_rad(1),rlon_rad(1) 141 real :: teta(llm),temp(llm),u(llm),v(llm) 147 142 real :: omega(llm+1),omega2(llm),rho(llm+1) 148 143 real :: ug(llm),vg(llm),fcoriolis … … 202 197 ! Fichiers et d'autres variables 203 198 !--------------------------------------------------------------------- 204 real ttt ,bow,q1199 real ttt 205 200 integer :: ierr,k,l,i,it=1,mxcalc 206 201 integer jjmp1 … … 258 253 ! initial profiles from RICO files 259 254 ! LS convergence imposed from RICO files 260 !forcing_type = 6 ==> forcing_amma = .true.261 ! initial profiles from AMMA nc file262 ! LS convergence, omega and surface fluxes imposed from AMMA file263 255 !forcing_type = 40 ==> forcing_GCSSold = .true. 264 256 ! initial profile from GCSS file 265 257 ! LS convergence imposed from GCSS file 266 !forcing_type = 59 ==> forcing_sandu = .true.267 ! initial profiles from sanduref file: see prof.inp.001268 ! SST varying with time and divergence constante: see ifa_sanduref.txt file269 ! Radiation has to be computed interactively270 !forcing_type = 60 ==> forcing_astex = .true.271 ! initial profiles from file: see prof.inp.001272 ! SST,divergence,ug,vg,ufa,vfa varying with time : see ifa_astex.txt file273 ! Radiation has to be computed interactively274 258 !forcing_type = 61 ==> forcing_armcu = .true. 275 ! initial profiles from file: see prof.inp.001 276 ! sensible and latent heat flux imposed: see ifa_arm_cu_1.txt 277 ! large scale advective forcing & radiative tendencies applied below 1000m: see ifa_arm_cu_2.txt 278 ! use geostrophic wind ug=10m/s vg=0m/s. Duration of the case 53100s 279 ! Radiation to be switched off 259 ! initial profile from arm_cu file 260 ! LS convergence imposed from arm_cu file 280 261 ! 281 262 if (forcing_type .eq.0) THEN … … 291 272 elseif (forcing_type .eq.5) THEN 292 273 forcing_rico = .true. 293 elseif (forcing_type .eq.6) THEN294 forcing_amma = .true.295 274 elseif (forcing_type .eq.40) THEN 296 275 forcing_GCSSold = .true. 297 elseif (forcing_type .eq.59) THEN298 forcing_sandu = .true.299 elseif (forcing_type .eq.60) THEN300 forcing_astex = .true.301 276 elseif (forcing_type .eq.61) THEN 302 277 forcing_armcu = .true. … … 304 279 else 305 280 write (*,*) 'ERROR : unknown forcing_type ', forcing_type 306 stop 'Forcing_type should be 0,1,2,3 ,4,5,6 or 40,59,60,61'281 stop 'Forcing_type should be 0,1,2,3 or 40' 307 282 ENDIF 308 283 print*,"forcing type=",forcing_type … … 314 289 315 290 type_ts_forcing = 0 316 if (forcing_toga .or. forcing_sandu .or. forcing_astex) 317 : type_ts_forcing = 1 291 if (forcing_toga) type_ts_forcing = 1 318 292 319 293 !--------------------------------------------------------------------- … … 354 328 c Special case for arm_cu which lasts less than one day : 53100s !! (MPL 20111026) 355 329 IF(forcing_type .EQ. 61) fnday=53100./86400. 356 c Special case for amma which lasts less than one day : 64800s !! (MPL 20120216)357 IF(forcing_type .EQ. 6) fnday=64800./86400.358 330 annee_ref = anneeref 359 331 mois = 1 … … 365 337 day_ini = day 366 338 day_end = day_ini + nday 367 368 IF (forcing_type .eq.2) THEN369 339 ! Convert the initial date of Toga-Coare to Julian day 370 340 call ymds2ju 371 341 $ (year_ini_toga,mth_ini_toga,day_ini_toga,heure,day_ju_ini_toga) 372 342 373 ELSEIF (forcing_type .eq.4) THEN374 343 ! Convert the initial date of TWPICE to Julian day 375 344 call ymds2ju 376 345 $ (year_ini_twpi,mth_ini_twpi,day_ini_twpi,heure_ini_twpi 377 346 $ ,day_ju_ini_twpi) 378 ELSEIF (forcing_type .eq.6) THEN 379 ! Convert the initial date of AMMA to Julian day 380 call ymds2ju 381 $ (year_ini_amma,mth_ini_amma,day_ini_amma,heure_ini_amma 382 $ ,day_ju_ini_amma) 383 384 ELSEIF (forcing_type .eq.59) THEN 385 ! Convert the initial date of Sandu case to Julian day 386 call ymds2ju 387 $ (year_ini_sandu,mth_ini_sandu,day_ini_sandu, 388 $ time_ini*3600.,day_ju_ini_sandu) 389 390 ELSEIF (forcing_type .eq.60) THEN 391 ! Convert the initial date of Astex case to Julian day 392 call ymds2ju 393 $ (year_ini_astex,mth_ini_astex,day_ini_astex, 394 $ time_ini*3600.,day_ju_ini_astex) 395 396 ELSEIF (forcing_type .eq.61) THEN 397 398 ! Convert the initial date of Arm_cu case to Julian day 347 348 ! Convert the initial date of Arm_cu to Julian day 399 349 call ymds2ju 400 350 $ (year_ini_armcu,mth_ini_armcu,day_ini_armcu,heure_ini_armcu 401 351 $ ,day_ju_ini_armcu) 402 ENDIF403 352 404 353 daytime = day + time_ini/24. ! 1st day and initial time of the simulation … … 487 436 ccc zlay=-rd*300.*log(play/psurf)/rg ! moved after reading profiles 488 437 489 IF (forcing_type .eq. 59) THEN490 ! pour forcing_sandu, on cherche l'indice le plus proche de 700hpa#3000m491 438 write(*,*) '***********************' 492 439 do l = 1, llm 493 440 write(*,*) 'l,play(l),presnivs(l): ',l,play(l),presnivs(l) 494 if (trouve_700 .and. play(l).le.70000) then495 llm700=l496 print *,'llm700,play=',llm700,play(l)/100.497 trouve_700= .false.498 endif499 441 enddo 500 442 write(*,*) '***********************' 501 ENDIF502 443 503 444 c … … 575 516 agesno = xagesno 576 517 tsoil(:,:,:)=tsurf 577 !------ AMMA 2e run avec modele sol et rayonnement actif (MPL 23052012)578 ! tsoil(1,1,1)=299.18579 ! tsoil(1,2,1)=300.08580 ! tsoil(1,3,1)=301.88581 ! tsoil(1,4,1)=305.48582 ! tsoil(1,5,1)=308.00583 ! tsoil(1,6,1)=308.00584 ! tsoil(1,7,1)=308.00585 ! tsoil(1,8,1)=308.00586 ! tsoil(1,9,1)=308.00587 ! tsoil(1,10,1)=308.00588 ! tsoil(1,11,1)=308.00589 !-----------------------------------------------------------------------590 518 call pbl_surface_init(qsol, fder, snsrf, qsurfsrf, 591 519 & evap, frugs, agesno, tsoil) … … 821 749 endif 822 750 823 if (forcing_toga .or. forcing_GCSSold .or. forcing_twpice 824 : .or.forcing_amma) then 751 if (forcing_toga .or. forcing_GCSSold .or. forcing_twpice) then 825 752 fcoriolis=0.0 ; ug=0. ; vg=0. 826 753 endif … … 887 814 888 815 teta=temp*(pzero/play)**rkappa 889 !890 !---------------------------------------------------------------------891 ! Nudge soil temperature if requested892 !---------------------------------------------------------------------893 894 IF (nudge_tsoil) THEN895 ftsoil(1,isoil_nudge,:) = ftsoil(1,isoil_nudge,:)896 . -timestep/tau_soil_nudge*(ftsoil(1,isoil_nudge,:)-Tsoil_nudge)897 ENDIF898 816 899 817 !--------------------------------------------------------------------- -
LMDZ5/trunk/libf/phy1d/ocean_forced_mod.F90
r1607 r1785 31 31 USE limit_read_mod 32 32 USE mod_grid_phy_lmdz 33 INCLUDE "indicesol.h" 33 USE indice_sol_mod 34 ! INCLUDE "indicesol.h" 34 35 INCLUDE "YOMCST.h" 35 36 … … 145 146 USE limit_read_mod 146 147 USE fonte_neige_mod, ONLY : fonte_neige 147 148 INCLUDE "indicesol.h" 148 USE indice_sol_mod 149 150 ! INCLUDE "indicesol.h" 149 151 INCLUDE "dimsoil.h" 150 152 INCLUDE "YOMCST.h" -
LMDZ5/trunk/libf/phy1d/pbl_surface_mod.F90
r1780 r1785 23 23 USE coef_diff_turb_mod, ONLY : coef_diff_turb 24 24 USE control_mod 25 USE indice_sol_mod 25 26 26 27 … … 57 58 ! for the index of the different surfaces and tests the choice of type of ocean. 58 59 59 INCLUDE "indicesol.h"60 60 INCLUDE "dimsoil.h" 61 61 INCLUDE "iniprint.h" … … 250 250 IMPLICIT NONE 251 251 252 INCLUDE "indicesol.h"253 252 INCLUDE "dimsoil.h" 254 253 INCLUDE "YOMCST.h" … … 1319 1318 evap_rst, rugos_rst, agesno_rst, ftsoil_rst) 1320 1319 1321 INCLUDE "indicesol.h"1322 1320 INCLUDE "dimsoil.h" 1323 1321 … … 1369 1367 ! Give default values where new fraction has appread 1370 1368 1371 INCLUDE "indicesol.h"1372 1369 INCLUDE "dimsoil.h" 1373 1370 INCLUDE "clesphys.h" -
LMDZ5/trunk/libf/phy1d/surf_land_bucket_mod.F90
r1607 r1785 26 26 USE mod_grid_phy_lmdz 27 27 USE mod_phys_lmdz_para 28 USE indice_sol_mod 28 29 !**************************************************************************************** 29 30 ! Bucket calculations for surface. 30 31 ! 31 32 INCLUDE "clesphys.h" 32 INCLUDE "indicesol.h"33 ! INCLUDE "indicesol.h" 33 34 INCLUDE "dimsoil.h" 34 35 INCLUDE "YOMCST.h" -
LMDZ5/trunk/libf/phylmd/calbeta.F90
r793 r1785 6 6 7 7 USE dimphy 8 USE indice_sol_mod 8 9 IMPLICIT none 9 10 !====================================================================== … … 13 14 ! 14 15 ! Calculer quelques parametres pour appliquer la couche limite 15 ! ------------------------------------------------------------ 16 INCLUDE "indicesol.h" 17 16 ! ------------------------------------------------------------ 18 17 ! Variables d'entrees 19 18 !**************************************************************************************** -
LMDZ5/trunk/libf/phylmd/calcul_fluxs_mod.F90
r1107 r1785 12 12 13 13 USE dimphy, ONLY : klon 14 USE indice_sol_mod 14 15 15 16 ! Cette routine calcule les fluxs en h et q a l'interface et eventuellement … … 49 50 INCLUDE "YOETHF.h" 50 51 INCLUDE "FCTTRE.h" 51 INCLUDE "indicesol.h"52 52 INCLUDE "YOMCST.h" 53 53 -
LMDZ5/trunk/libf/phylmd/calltherm.F90
r1779 r1785 17 17 & ,alp_bl_conv,alp_bl_stat & 18 18 !!! fin nrlmd le 10/04/2012 19 & ,zqla,ztva)19 & ) 20 20 21 21 USE dimphy 22 USE indice_sol_mod 22 23 implicit none 23 24 #include "dimensions.h" … … 26 27 #include "iniprint.h" 27 28 28 !!! nrlmd le 10/04/201229 #include "indicesol.h"30 !!! fin nrlmd le 10/04/201231 29 32 30 !IM 140508 … … 63 61 real zqla(klon,klev) 64 62 real zqta(klon,klev) 65 real ztv(klon,klev) ,ztva(klon,klev)63 real ztv(klon,klev) 66 64 real zpspsk(klon,klev) 67 65 real ztla(klon,klev) … … 257 255 & ,alp_bl_conv,alp_bl_stat & 258 256 !!! fin nrlmd le 10/04/2012 259 & ,ztva)257 & ) 260 258 if (prt_level.gt.10) write(lunout,*)'Apres thermcell_main OK' 261 259 else -
LMDZ5/trunk/libf/phylmd/carbon_cycle_mod.F90
r1759 r1785 309 309 USE phys_cal_mod, ONLY : day_cur 310 310 USE comgeomphy 311 USE indice_sol_mod 311 312 312 313 IMPLICIT NONE 313 314 314 315 INCLUDE "clesphys.h" 315 INCLUDE "indicesol.h"316 316 INCLUDE "iniprint.h" 317 317 INCLUDE "YOMCST.h" -
LMDZ5/trunk/libf/phylmd/change_srf_frac_mod.F90
r1670 r1785 28 28 USE cpl_mod, ONLY : cpl_receive_frac 29 29 USE ocean_slab_mod, ONLY : ocean_slab_frac 30 USE indice_sol_mod 30 31 31 32 INCLUDE "iniprint.h" 32 INCLUDE "indicesol.h"33 33 INCLUDE "YOMCST.h" 34 34 -
LMDZ5/trunk/libf/phylmd/clcdrag.F90
r1279 r1785 8 8 9 9 USE dimphy 10 USE indice_sol_mod 11 10 12 IMPLICIT NONE 11 13 ! ================================================================= c … … 17 19 ! 18 20 ! knon----input-I- nombre de points pour un type de surface 19 ! nsrf----input-I- indice pour le type de surface; voir indice sol.h21 ! nsrf----input-I- indice pour le type de surface; voir indice_sol_mod.F90 20 22 ! u1-------input-R- vent zonal au 1er niveau du modele 21 23 ! v1-------input-R- vent meridien au 1er niveau du modele … … 41 43 INCLUDE "YOMCST.h" 42 44 INCLUDE "YOETHF.h" 43 INCLUDE "indicesol.h"44 45 INCLUDE "clesphys.h" 45 46 ! -
LMDZ5/trunk/libf/phylmd/cltracrn.F90
r1409 r1785 9 9 USE dimphy 10 10 USE traclmdz_mod, ONLY : id_rn, id_pb 11 USE indice_sol_mod 12 11 13 IMPLICIT NONE 12 14 !====================================================================== … … 44 46 !====================================================================== 45 47 include "YOMCST.h" 46 include "indicesol.h"47 48 ! 48 49 !Entrees -
LMDZ5/trunk/libf/phylmd/coef_diff_turb_mod.F90
r1761 r1785 17 17 18 18 USE dimphy 19 USE indice_sol_mod 19 20 ! 20 21 ! Calculate coefficients(ycoefm, ycoefh) for turbulent diffusion in the … … 55 56 !**************************************************************************************** 56 57 INCLUDE "clesphys.h" 57 INCLUDE "indicesol.h"58 58 INCLUDE "iniprint.h" 59 59 INCLUDE "compbl.h" … … 187 187 188 188 USE dimphy 189 USE indice_sol_mod 189 190 190 191 !====================================================================== … … 211 212 INCLUDE "FCTTRE.h" 212 213 INCLUDE "iniprint.h" 213 INCLUDE "indicesol.h"214 214 INCLUDE "compbl.h" 215 215 INCLUDE "YOMCST.h" … … 479 479 480 480 USE dimphy 481 USE indice_sol_mod 481 482 482 483 !====================================================================== … … 523 524 REAL zdthmin(knon), zdthdp 524 525 525 INCLUDE "indicesol.h"526 526 INCLUDE "YOMCST.h" 527 527 ! -
LMDZ5/trunk/libf/phylmd/coefcdrag.F90
r1061 r1785 6 6 ts, qsurf, rugos, okri, ri1, & 7 7 cdram, cdrah, cdran, zri1, pref) 8 9 USE indice_sol_mod 10 8 11 IMPLICIT none 9 12 !------------------------------------------------------------------------- … … 18 21 ! klon----input-I- dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude) 19 22 ! knon----input-I- nombre de points pour un type de surface 20 ! nsrf----input-I- indice pour le type de surface; voir indice sol.h23 ! nsrf----input-I- indice pour le type de surface; voir indice_sol_mod.F90 21 24 ! zxli----input-L- TRUE si calcul des cdrags selon Laurent Li 22 25 ! speed---input-R- module du vent au 1er niveau du modele … … 49 52 include "YOMCST.h" 50 53 include "YOETHF.h" 51 include "indicesol.h"52 54 ! Quelques constantes : 53 55 REAL, parameter :: RKAR=0.40, CB=5.0, CC=5.0, CD=5.0, cepdu2=(0.1)**2 -
LMDZ5/trunk/libf/phylmd/condsurf.F
r776 r1785 5 5 USE mod_grid_phy_lmdz 6 6 USE mod_phys_lmdz_para 7 USE indice_sol_mod 7 8 IMPLICIT none 8 9 c … … 25 26 cym#include "dimensions.h" 26 27 cym#include "dimphy.h" 27 #include "indicesol.h"28 28 #include "temps.h" 29 29 #include "clesphys.h" -
LMDZ5/trunk/libf/phylmd/cpl_mod.F90
r1577 r1785 101 101 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, fco2_ocn_day 102 102 USE surface_data 103 USE indice_sol_mod 103 104 104 105 INCLUDE "dimensions.h" 105 INCLUDE "indicesol.h"106 106 INCLUDE "temps.h" 107 107 INCLUDE "iniprint.h" … … 295 295 USE phys_state_var_mod, ONLY : rlon, rlat 296 296 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl 297 298 INCLUDE "indicesol.h" 297 USE indice_sol_mod 298 299 299 INCLUDE "temps.h" 300 300 INCLUDE "iniprint.h" … … 424 424 ! 425 425 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, fco2_ocn_day 426 INCLUDE "indicesol.h"426 USE indice_sol_mod 427 427 428 428 ! Input arguments … … 541 541 ! 542 542 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send 543 INCLUDE "indicesol.h"543 USE indice_sol_mod 544 544 INCLUDE "dimensions.h" 545 545 … … 732 732 ! 733 733 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl 734 INCLUDE "indicesol.h"734 USE indice_sol_mod 735 735 INCLUDE "dimensions.h" 736 736 … … 1026 1026 USE surface_data 1027 1027 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl 1028 USE indice_sol_mod 1028 1029 ! Some includes 1029 1030 !************************************************************************************* 1030 INCLUDE "indicesol.h"1031 1031 INCLUDE "temps.h" 1032 1032 INCLUDE "dimensions.h" -
LMDZ5/trunk/libf/phylmd/etat0_netcdf.F90
r1764 r1785 24 24 USE conf_phys_m, ONLY: conf_phys 25 25 ! For parameterization of ozone chemistry: 26 useregr_lat_time_coefoz_m, only: regr_lat_time_coefoz27 usepress_coefoz_m, only: press_coefoz28 useregr_pr_o3_m, only: regr_pr_o326 USE regr_lat_time_coefoz_m, only: regr_lat_time_coefoz 27 USE press_coefoz_m, only: press_coefoz 28 USE regr_pr_o3_m, only: regr_pr_o3 29 29 USE netcdf, ONLY : NF90_OPEN, NF90_NOWRITE, NF90_CLOSE, NF90_NOERR 30 USE indice_sol_mod 30 31 #endif 31 32 IMPLICIT NONE … … 47 48 #include "comvert.h" 48 49 #include "comconst.h" 49 #include "indicesol.h"50 50 #include "dimsoil.h" 51 51 #include "temps.h" -
LMDZ5/trunk/libf/phylmd/fonte_neige_mod.F90
r1504 r1785 9 9 !**************************************************************************************** 10 10 USE dimphy, ONLY : klon 11 USE indice_sol_mod 11 12 12 13 IMPLICIT NONE … … 44 45 ! restart file. The other variables are initialized to zero. 45 46 ! 46 INCLUDE "indicesol.h"47 47 !**************************************************************************************** 48 48 ! Input argument … … 120 120 tsurf, precip_rain, precip_snow, & 121 121 snow, qsol, tsurf_new, evap) 122 123 USE indice_sol_mod 122 124 123 125 ! Routine de traitement de la fonte de la neige dans le cas du traitement … … 139 141 ! evap 140 142 ! 141 INCLUDE "indicesol.h"142 143 INCLUDE "dimensions.h" 143 144 INCLUDE "YOETHF.h" … … 315 316 fqfonte_out, ffonte_out) 316 317 318 319 317 320 ! Cumulate ffonte, fqfonte and fqcalving respectively for 318 321 ! all type of surfaces according to their fraction. 319 322 ! 320 323 ! This routine is called from physiq.F before histwrite. 321 322 INCLUDE "indicesol.h" 323 !**************************************************************************************** 324 !**************************************************************************************** 325 326 USE indice_sol_mod 327 324 328 REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf 325 329 -
LMDZ5/trunk/libf/phylmd/hgardfou.F
r1782 r1785 2 2 ! $Id$ 3 3 SUBROUTINE hgardfou (t,tsol,text) 4 use dimphy 5 use phys_state_var_mod 4 USE dimphy 5 USE phys_state_var_mod 6 USE indice_sol_mod 6 7 IMPLICIT none 7 8 c====================================================================== … … 10 11 #include "dimensions.h" 11 12 #include "YOMCST.h" 12 #include "indicesol.h"13 13 #include "iniprint.h" 14 14 REAL t(klon,klev), tsol(klon,nbsrf) … … 57 57 DO i = 1, jbad 58 58 WRITE(lunout,*) 59 $ 'i,k,temperature,lon,lat,pourc ter, lic,oce,sic =',59 $ 'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =', 60 60 $ jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)), 61 61 $ (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf) … … 78 78 DO i = 1, jbad 79 79 WRITE(lunout,*) 80 $ 'i,k,temperature,lon,lat,pourc ter, lic,oce,sic =',80 $ 'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =', 81 81 $ jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)), 82 82 $ (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf) … … 104 104 DO i = 1, jbad 105 105 WRITE(lunout,*) 106 $ 'i,nsrf,temperature,lon,lat,pourc ter, lic,oce,sic ='106 $ 'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic =' 107 107 $ ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)) 108 108 $ ,pctsrf(jadrs(i),nsrf) … … 125 125 DO i = 1, jbad 126 126 WRITE(lunout,*) 127 $ 'i,nsrf,temperature,lon,lat,pourc ter, lic,oce,sic ='127 $ 'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic =' 128 128 $ ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)) 129 129 $ ,pctsrf(jadrs(i),nsrf) -
LMDZ5/trunk/libf/phylmd/hydrol.F
r766 r1785 7 7 . agesno, tsol,qsol,snow,runoff) 8 8 USE dimphy 9 USE indice_sol_mod 10 9 11 IMPLICIT none 10 12 c====================================================================== … … 26 28 cym#include "dimphy.h" 27 29 #include "YOMCST.h" 28 #include "indicesol.h"29 30 c 30 31 REAL chasno ! epaisseur du sol: 0.15 m -
LMDZ5/trunk/libf/phylmd/init_be.F90
r1760 r1785 7 7 USE comgeomphy 8 8 USE infotrac, ONLY : nbtr 9 USE indice_sol_mod 9 10 10 11 IMPLICIT NONE … … 21 22 INCLUDE "YOMCST.h" 22 23 INCLUDE "YOECUMF.h" 23 INCLUDE "indicesol.h"24 24 25 25 ! -
LMDZ5/trunk/libf/phylmd/initphysto.F90
r1454 r1785 9 9 USE iophy 10 10 USE control_mod 11 USE indice_sol_mod 11 12 12 13 IMPLICIT NONE … … 46 47 INCLUDE "description.h" 47 48 INCLUDE "serre.h" 48 INCLUDE "indicesol.h"49 49 50 50 ! Arguments -
LMDZ5/trunk/libf/phylmd/initrrnpb.F90
r1409 r1785 6 6 USE infotrac, ONLY : nbtr 7 7 USE traclmdz_mod, ONLY : id_rn, id_pb 8 USE indice_sol_mod 8 9 IMPLICIT NONE 9 10 !====================================================================== … … 24 25 ! scavtr...output-R- Coefficient de lessivage 25 26 !====================================================================== 26 INCLUDE "indicesol.h" 27 !====================================================================== 28 27 29 28 REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: pctsrf 30 29 REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: ftsol -
LMDZ5/trunk/libf/phylmd/interfoce_lim.F90
r793 r1785 9 9 USE mod_grid_phy_lmdz 10 10 USE mod_phys_lmdz_para 11 USE indice_sol_mod 11 12 12 13 IMPLICIT NONE 13 14 14 INCLUDE "indicesol.h"15 15 INCLUDE "netcdf.inc" 16 16 -
LMDZ5/trunk/libf/phylmd/limit_netcdf.F90
r1687 r1785 21 21 !------------------------------------------------------------------------------- 22 22 USE control_mod 23 USE indice_sol_mod 23 24 #ifdef CPP_EARTH 24 25 USE dimphy … … 50 51 #include "comgeom2.h" 51 52 #include "comconst.h" 52 #include "indicesol.h"53 53 54 54 !--- INPUT NETCDF FILES NAMES -------------------------------------------------- … … 276 276 USE phys_state_var_mod, ONLY : pctsrf 277 277 USE control_mod 278 use pchsp_95_m, only: pchsp_95 279 use pchfe_95_m, only: pchfe_95 280 use arth_m, only: arth 278 USE pchsp_95_m, only: pchsp_95 279 USE pchfe_95_m, only: pchfe_95 280 USE arth_m, only: arth 281 USE indice_sol_mod 281 282 282 283 IMPLICIT NONE … … 284 285 #include "paramet.h" 285 286 #include "comgeom2.h" 286 #include "indicesol.h"287 287 #include "iniprint.h" 288 288 !----------------------------------------------------------------------------- -
LMDZ5/trunk/libf/phylmd/limit_read_mod.F90
r1577 r1785 38 38 39 39 USE dimphy 40 INCLUDE "indicesol.h"40 USE indice_sol_mod 41 41 42 42 ! Input arguments … … 146 146 USE surface_data, ONLY : type_ocean, ok_veget 147 147 USE netcdf 148 USE indice_sol_mod 148 149 149 150 IMPLICIT NONE 150 151 151 INCLUDE "indicesol.h"152 152 INCLUDE "iniprint.h" 153 153 -
LMDZ5/trunk/libf/phylmd/limit_slab.F90
r1001 r1785 7 7 USE mod_phys_lmdz_para 8 8 USE netcdf 9 USE indice_sol_mod 9 10 10 11 IMPLICIT NONE 11 12 12 INCLUDE "indicesol.h"13 13 INCLUDE "temps.h" 14 14 INCLUDE "clesphys.h" -
LMDZ5/trunk/libf/phylmd/ocean_cpl_mod.F90
r1146 r1785 62 62 USE cpl_mod 63 63 USE calcul_fluxs_mod 64 65 INCLUDE "indicesol.h" 64 USE indice_sol_mod 65 66 66 INCLUDE "YOMCST.h" 67 67 ! … … 197 197 USE cpl_mod 198 198 USE calcul_fluxs_mod 199 200 INCLUDE "indicesol.h" 199 USE indice_sol_mod 200 201 201 INCLUDE "YOMCST.h" 202 202 -
LMDZ5/trunk/libf/phylmd/ocean_forced_mod.F90
r1067 r1785 30 30 USE calcul_fluxs_mod 31 31 USE limit_read_mod 32 INCLUDE "indicesol.h" 32 USE indice_sol_mod 33 33 34 INCLUDE "YOMCST.h" 34 35 … … 137 138 USE limit_read_mod 138 139 USE fonte_neige_mod, ONLY : fonte_neige 139 140 INCLUDE "indicesol.h" 140 USE indice_sol_mod 141 141 142 INCLUDE "dimsoil.h" 142 143 INCLUDE "YOMCST.h" -
LMDZ5/trunk/libf/phylmd/ocean_slab_mod.F90
r1067 r1785 18 18 USE limit_read_mod 19 19 USE surface_data 20 INCLUDE "indicesol.h" 20 USE indice_sol_mod 21 21 22 ! INCLUDE "clesphys.h" 22 23 … … 60 61 USE dimphy 61 62 USE calcul_fluxs_mod 62 63 INCLUDE "indicesol.h" 63 USE indice_sol_mod 64 64 65 INCLUDE "iniprint.h" 65 66 -
LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90
r1761 r1785 56 56 ! for the index of the different surfaces and tests the choice of type of ocean. 57 57 58 INCLUDE "indicesol.h" 58 USE indice_sol_mod 59 59 60 INCLUDE "dimsoil.h" 60 61 INCLUDE "iniprint.h" … … 247 248 ! 248 249 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send 250 USE indice_sol_mod 251 249 252 IMPLICIT NONE 250 253 251 INCLUDE "indicesol.h"252 254 INCLUDE "dimsoil.h" 253 255 INCLUDE "YOMCST.h" … … 1318 1320 evap_rst, rugos_rst, agesno_rst, ftsoil_rst) 1319 1321 1320 INCLUDE "indicesol.h" 1322 USE indice_sol_mod 1323 1321 1324 INCLUDE "dimsoil.h" 1322 1325 … … 1368 1371 ! Give default values where new fraction has appread 1369 1372 1370 INCLUDE "indicesol.h" 1373 USE indice_sol_mod 1374 1371 1375 INCLUDE "dimsoil.h" 1372 1376 INCLUDE "clesphys.h" -
LMDZ5/trunk/libf/phylmd/phyaqua.F
r1759 r1785 16 16 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 17 17 18 usecomgeomphy, only : rlatd,rlond19 usedimphy, only : klon20 usesurface_data, only : type_ocean,ok_veget21 usepbl_surface_mod, only : pbl_surface_init18 USE comgeomphy, only : rlatd,rlond 19 USE dimphy, only : klon 20 USE surface_data, only : type_ocean,ok_veget 21 USE pbl_surface_mod, only : pbl_surface_init 22 22 USE fonte_neige_mod, only : fonte_neige_init 23 use phys_state_var_mod 24 use control_mod, only : dayref,nday,iphysiq 23 USE phys_state_var_mod 24 USE control_mod, only : dayref,nday,iphysiq 25 USE indice_sol_mod 25 26 26 27 USE IOIPSL … … 33 34 #include "clesphys.h" 34 35 #include "dimsoil.h" 35 #include "indicesol.h"36 36 #include "temps.h" 37 37 -
LMDZ5/trunk/libf/phylmd/phyetat0.F
r1674 r1785 23 23 USE carbon_cycle_mod,ONLY : 24 24 & carbon_cycle_tr, carbon_cycle_cpl, co2_send 25 USE indice_sol_mod 25 26 26 27 IMPLICIT none … … 31 32 #include "dimensions.h" 32 33 #include "netcdf.inc" 33 #include "indicesol.h"34 34 #include "dimsoil.h" 35 35 #include "clesphys.h" -
LMDZ5/trunk/libf/phylmd/phyredem.F
r1619 r1785 16 16 USE control_mod 17 17 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send 18 USE indice_sol_mod 18 19 19 20 IMPLICIT none … … 23 24 c====================================================================== 24 25 #include "netcdf.inc" 25 #include "indicesol.h"26 26 #include "dimsoil.h" 27 27 #include "clesphys.h" -
LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90
r1761 r1785 191 191 !====================================================================== 192 192 SUBROUTINE phys_local_var_init 193 usedimphy194 useinfotrac, ONLY : nbtr193 USE dimphy 194 USE infotrac, ONLY : nbtr 195 195 USE aero_mod 196 USE indice_sol_mod 196 197 197 198 IMPLICIT NONE 198 #include "indicesol.h"199 199 allocate(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev)) 200 200 allocate(u_seri(klon,klev),v_seri(klon,klev)) … … 283 283 !====================================================================== 284 284 SUBROUTINE phys_local_var_end 285 use dimphy 285 USE dimphy 286 USE indice_sol_mod 286 287 IMPLICIT NONE 287 #include "indicesol.h"288 288 deallocate(t_seri,q_seri,ql_seri,qs_seri) 289 289 deallocate(u_seri,v_seri) -
LMDZ5/trunk/libf/phylmd/phys_output_mod.F90
r1764 r1785 11 11 12 12 MODULE phys_output_mod 13 USE indice_sol_mod 13 14 14 15 IMPLICIT NONE … … 680 681 include "dimensions.h" 681 682 include "temps.h" 682 include "indicesol.h"683 683 include "clesphys.h" 684 684 include "thermcell.h" … … 1097 1097 CALL histdef2d(iff,clef_stations(iff), & 1098 1098 o_wbilo_srf(nsrf)%flag,o_wbilo_srf(nsrf)%name,"Bilan eau "//clnsurf(nsrf),"kg/(m2*s)") 1099 1100 1099 1101 if (iflag_pbl>1 .and. lev_files(iff).gt.10 ) then 1100 1102 CALL histdef2d(iff,clef_stations(iff), & … … 1117 1119 1118 1120 endif 1121 1119 1122 1120 1123 CALL histdef2d(iff,clef_stations(iff), & … … 1861 1864 include "dimensions.h" 1862 1865 include "temps.h" 1863 include "indicesol.h"1864 1866 include "clesphys.h" 1865 1867 … … 1915 1917 include "dimensions.h" 1916 1918 include "temps.h" 1917 include "indicesol.h"1918 1919 include "clesphys.h" 1919 1920 -
LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90
r1761 r1785 361 361 !====================================================================== 362 362 SUBROUTINE phys_state_var_init(read_climoz) 363 usedimphy363 USE dimphy 364 364 USE control_mod 365 use aero_mod 366 use infotrac, ONLY : nbtr 365 USE aero_mod 366 USE infotrac, ONLY : nbtr 367 USE indice_sol_mod 367 368 IMPLICIT NONE 368 369 … … 375 376 ! climatology and the daylight climatology 376 377 377 #include "indicesol.h"378 378 ALLOCATE(rlat(klon), rlon(klon)) 379 379 ALLOCATE(pctsrf(klon,nbsrf)) … … 522 522 !====================================================================== 523 523 SUBROUTINE phys_state_var_end 524 use dimphy 525 use control_mod 524 USE dimphy 525 USE control_mod 526 USE indice_sol_mod 526 527 IMPLICIT NONE 527 #include "indicesol.h"528 528 529 529 deallocate(rlat, rlon, pctsrf, ftsol, falb1, falb2) -
LMDZ5/trunk/libf/phylmd/physiq.F
r1779 r1785 46 46 USE CHEM_REP, ONLY : Init_chem_rep_xjour 47 47 #endif 48 48 USE indice_sol_mod 49 49 50 50 !IM stations CFMIP … … 104 104 105 105 #include "regdim.h" 106 #include "indicesol.h"107 106 #include "dimsoil.h" 108 107 #include "clesphys.h" -
LMDZ5/trunk/libf/phylmd/phystokenc.F90
r1539 r1785 12 12 USE iophy 13 13 USE control_mod 14 USE indice_sol_mod 14 15 15 16 IMPLICIT NONE … … 22 23 INCLUDE "dimensions.h" 23 24 INCLUDE "tracstoke.h" 24 INCLUDE "indicesol.h"25 25 INCLUDE "iniprint.h" 26 26 !====================================================================== -
LMDZ5/trunk/libf/phylmd/phytrac.F90
r1759 r1785 45 45 USE tracreprobus_mod 46 46 USE control_mod 47 USE indice_sol_mod 47 48 48 49 IMPLICIT NONE … … 50 51 INCLUDE "YOMCST.h" 51 52 INCLUDE "dimensions.h" 52 INCLUDE "indicesol.h"53 53 INCLUDE "clesphys.h" 54 54 INCLUDE "temps.h" -
LMDZ5/trunk/libf/phylmd/read_pstoke.F
r1403 r1785 21 21 USE dimphy 22 22 USE control_mod 23 USE indice_sol_mod 23 24 24 25 IMPLICIT NONE … … 34 35 #include "description.h" 35 36 #include "serre.h" 36 #include "indicesol.h"37 37 cccc#include "dimphy.h" 38 38 -
LMDZ5/trunk/libf/phylmd/read_pstoke0.F
r1403 r1785 17 17 C****************************************************************************** 18 18 19 usenetcdf19 USE netcdf 20 20 USE dimphy 21 21 USE control_mod 22 USE indice_sol_mod 22 23 23 24 IMPLICIT NONE … … 33 34 #include "description.h" 34 35 #include "serre.h" 35 #include "indicesol.h"36 36 cccc#include "dimphy.h" 37 37 -
LMDZ5/trunk/libf/phylmd/screenc.F90
r793 r1785 22 22 ! klon----input-I- dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude) 23 23 ! knon----input-I- nombre de points pour un type de surface 24 ! nsrf----input-I- indice pour le type de surface; voir indice sol.h24 ! nsrf----input-I- indice pour le type de surface; voir indice_sol_mod.F90 25 25 ! zxli----input-L- TRUE si calcul des cdrags selon Laurent Li 26 26 ! speed---input-R- module du vent au 1er niveau du modele -
LMDZ5/trunk/libf/phylmd/screenp.F90
r1107 r1785 22 22 ! klon----input-I- dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude) 23 23 ! knon----input-I- nombre de points pour un type de surface 24 ! nsrf----input-I- indice pour le type de surface; voir indice sol.h24 ! nsrf----input-I- indice pour le type de surface; voir indice_sol_mod.F90 25 25 ! speed---input-R- module du vent au 1er niveau du modele 26 26 ! tair----input-R- temperature de l'air au 1er niveau du modele -
LMDZ5/trunk/libf/phylmd/soil.F90
r1575 r1785 7 7 USE dimphy 8 8 USE mod_phys_lmdz_para 9 USE indice_sol_mod 10 9 11 IMPLICIT NONE 10 12 … … 52 54 INCLUDE "YOMCST.h" 53 55 INCLUDE "dimsoil.h" 54 INCLUDE "indicesol.h"55 56 INCLUDE "comsoil.h" 56 57 INCLUDE "iniprint.h" -
LMDZ5/trunk/libf/phylmd/stdlevvar.F90
r793 r1785 23 23 ! klon----input-I- dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude) 24 24 ! knon----input-I- nombre de points pour un type de surface 25 ! nsrf----input-I- indice pour le type de surface; voir indice sol.h25 ! nsrf----input-I- indice pour le type de surface; voir indice_sol_mod.F90 26 26 ! zxli----input-L- TRUE si calcul des cdrags selon Laurent Li 27 27 ! u1------input-R- vent zonal au 1er niveau du modele -
LMDZ5/trunk/libf/phylmd/stratocu_if.F90
r878 r1785 1 1 SUBROUTINE stratocu_if(klon,klev,pctsrf,paprs, pplay,t & 2 2 ,seuil_inversion,weak_inversion,dthmin) 3 implicit none 3 4 USE indice_sol_mod 5 6 IMPLICIT NONE 4 7 5 8 !====================================================================== … … 39 42 REAL dthmin(klon), zdthdp 40 43 41 INCLUDE "indicesol.h"42 44 INCLUDE "YOMCST.h" 43 45 -
LMDZ5/trunk/libf/phylmd/surf_land_bucket_mod.F90
r1742 r1785 27 27 USE mod_grid_phy_lmdz 28 28 USE mod_phys_lmdz_para 29 USE indice_sol_mod 29 30 !**************************************************************************************** 30 31 ! Bucket calculations for surface. 31 32 ! 32 33 INCLUDE "clesphys.h" 33 INCLUDE "indicesol.h"34 34 INCLUDE "dimsoil.h" 35 35 INCLUDE "YOMCST.h" -
LMDZ5/trunk/libf/phylmd/surf_land_mod.F90
r1146 r1785 31 31 USE surf_land_bucket_mod 32 32 USE calcul_fluxs_mod 33 USE indice_sol_mod 33 34 34 INCLUDE "indicesol.h"35 35 INCLUDE "dimsoil.h" 36 36 INCLUDE "YOMCST.h" -
LMDZ5/trunk/libf/phylmd/surf_land_orchidee_mod.F90
r1454 r1785 44 44 USE mod_synchro_omp 45 45 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl 46 USE indice_sol_mod 46 47 47 48 ! … … 97 98 ! qsurf air moisture at surface 98 99 ! 99 INCLUDE "indicesol.h"100 100 INCLUDE "temps.h" 101 101 INCLUDE "YOMCST.h" … … 551 551 USE mod_grid_phy_lmdz 552 552 USE mod_surf_para 553 INCLUDE "indicesol.h"553 USE indice_sol_mod 554 554 555 555 #ifdef CPP_MPI -
LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90
r1548 r1785 97 97 ! 98 98 USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, fco2_land_inst, fco2_lu_inst 99 USE indice_sol_mod 99 100 IMPLICIT NONE 100 101 101 INCLUDE "indicesol.h"102 102 INCLUDE "temps.h" 103 103 INCLUDE "YOMCST.h" … … 634 634 SUBROUTINE Init_neighbours(knon,neighbours,ktindex,pctsrf) 635 635 636 INCLUDE "indicesol.h" 636 USE indice_sol_mod 637 637 638 INCLUDE "dimensions.h" 638 639 #ifdef CPP_MPI -
LMDZ5/trunk/libf/phylmd/surf_landice_mod.F90
r1403 r1785 25 25 USE calcul_fluxs_mod 26 26 USE phys_output_var_mod 27 28 INCLUDE "indicesol.h" 27 USE indice_sol_mod 28 29 ! INCLUDE "indicesol.h" 29 30 INCLUDE "dimsoil.h" 30 31 INCLUDE "YOMCST.h" -
LMDZ5/trunk/libf/phylmd/surf_ocean_mod.F90
r1403 r1785 25 25 USE ocean_slab_mod, ONLY : ocean_slab_noice 26 26 USE ocean_cpl_mod, ONLY : ocean_cpl_noice 27 USE indice_sol_mod 27 28 ! 28 29 ! This subroutine will make a call to ocean_XXX_noice according to the ocean mode (force, 29 30 ! slab or couple). The calculations of albedo and rugosity for the ocean surface are 30 31 ! done in here because they are identical for the different modes of ocean. 31 ! 32 INCLUDE "indicesol.h" 32 33 33 34 INCLUDE "YOMCST.h" 34 35 -
LMDZ5/trunk/libf/phylmd/surf_seaice_mod.F90
r1072 r1785 25 25 USE ocean_forced_mod, ONLY : ocean_forced_ice 26 26 USE ocean_cpl_mod, ONLY : ocean_cpl_ice 27 USE indice_sol_mod 27 28 28 29 ! … … 31 32 ! in here because it is the same calculation for the different modes of ocean. 32 33 ! 33 INCLUDE "indicesol.h"34 34 INCLUDE "dimsoil.h" 35 35 -
LMDZ5/trunk/libf/phylmd/thermcell_main.F90
r1779 r1785 19 19 & ,alp_bl_conv,alp_bl_stat & 20 20 !!! fin nrlmd le 10/04/2012 21 & ,ztva)21 & ) 22 22 23 23 USE dimphy 24 24 USE ioipsl 25 25 USE comgeomphy , ONLY:rlond,rlatd 26 USE indice_sol_mod 26 27 IMPLICIT NONE 27 28 … … 67 68 #include "iniprint.h" 68 69 #include "thermcell.h" 69 !!! nrlmd le 10/04/201270 #include "indicesol.h"71 !!! fin nrlmd le 10/04/201272 70 73 71 ! arguments: -
LMDZ5/trunk/libf/phylmd/tracinca_mod.F90
r1403 r1785 46 46 USE comgeomphy 47 47 USE control_mod 48 USE indice_sol_mod 48 49 49 50 50 51 IMPLICIT NONE 51 52 52 INCLUDE "indicesol.h"53 53 INCLUDE "dimensions.h" 54 54 INCLUDE "paramet.h" -
LMDZ5/trunk/libf/phylmd/traclmdz_mod.F90
r1742 r1785 95 95 USE mod_grid_phy_lmdz 96 96 USE mod_phys_lmdz_para 97 98 INCLUDE "indicesol.h" 97 USE indice_sol_mod 98 99 99 INCLUDE "iniprint.h" 100 100 ! Input variables … … 346 346 USE o3_chem_m, ONLY: o3_chem 347 347 USE carbon_cycle_mod, ONLY : carbon_cycle, carbon_cycle_tr, carbon_cycle_cpl 348 USE indice_sol_mod 349 348 350 INCLUDE "YOMCST.h" 349 INCLUDE "indicesol.h"350 351 351 352 !========================================================================== -
LMDZ5/trunk/makegcm
r1703 r1785 23 23 set OPTIMI='-C debug -eC ' 24 24 set OPTIMI=' -ftrace ' 25 set OPT_LINUX="- i4 -O3 -r8 -DNC_DOUBLE"26 set OPT_LINUX="- i4 -O3 -r8 -DNC_DOUBLE"25 set OPT_LINUX="-O3 -fdefault-real-8 -DNC_DOUBLE" 26 set OPT_LINUX="-O3 -fdefault-real-8 -DNC_DOUBLE" 27 27 set io=ioipsl 28 28 set cosp=false 29 29 30 set FC_LINUX=g 9531 set FC_LINUX=g 9532 #set FC_LINUX=g 9533 if ( $FC_LINUX == g 95) then34 set OPT_LINUX="- i4 -O3 -r8 -DNC_DOUBLE"30 set FC_LINUX=gfortran 31 set FC_LINUX=gfortran 32 #set FC_LINUX=gfortran 33 if ( $FC_LINUX == gfortran ) then 34 set OPT_LINUX="-O3 -fdefault-real-8 -DNC_DOUBLE" 35 35 else if ( $FC_LINUX == gfortran ) then 36 set OPT_LINUX="- i4 -O3 -r8 -DNC_DOUBLE"37 # set OPT_LINUX="- i4 -O3 -r8 -DNC_DOUBLE"38 set OPT_LINUX="- i4 -O3 -r8 -DNC_DOUBLE"36 set OPT_LINUX="-O3 -fdefault-real-8 -DNC_DOUBLE" 37 # set OPT_LINUX="-O3 -fdefault-real-8 -DNC_DOUBLE" 38 set OPT_LINUX="-O3 -fdefault-real-8 -DNC_DOUBLE" 39 39 else 40 40 # pgf90 options 41 set OPT_LINUX="- i4 -O3 -r8 -DNC_DOUBLE"41 set OPT_LINUX="-O3 -fdefault-real-8 -DNC_DOUBLE" 42 42 endif 43 43 … … 54 54 setenv IOIPSLDIR /tmpdir/fairhead/Aqua/LMDZ20120327.trunk/modipsl/lib 55 55 setenv MODIPSLDIR /tmpdir/fairhead/Aqua/LMDZ20120327.trunk/modipsl/lib 56 setenv NCDFINC / tmpdir/fairhead/Aqua/LMDZ20120327.trunk/netcdf-4.0.1/include57 setenv NCDFLIB / tmpdir/fairhead/Aqua/LMDZ20120327.trunk/netcdf-4.0.1/lib56 setenv NCDFINC /home/users/uglmd/lmdz/MAMBO/LMDZXIOS/LMDZtrunk/netcdf-4.0.1/include 57 setenv NCDFLIB /home/users/uglmd/lmdz/MAMBO/LMDZXIOS/LMDZtrunk/netcdf-4.0.1/lib 58 58 59 59 … … 107 107 if ( ! $?NCDFLIB ) then 108 108 echo You must initialize the variable NCDFLIB in your environnement 109 echo for instance: "setenv NCDFLIB / d3/idelkadi/MODELE_LMDZ/LMDZ20121005.trunk/netcdf-4.0.1/lib109 echo for instance: "setenv NCDFLIB /home/users/uglmd/lmdz/MAMBO/LMDZXIOS/LMDZtrunk/netcdf-4.0.1/lib 110 110 exit 111 111 endif 112 112 if ( ! $?NCDFINC ) then 113 113 echo You must initialize the variable NCDFINC in your environnement 114 echo for instance: "setenv NCDFINC / d3/idelkadi/MODELE_LMDZ/LMDZ20121005.trunk/netcdf-4.0.1/include114 echo for instance: "setenv NCDFINC /home/users/uglmd/lmdz/MAMBO/LMDZXIOS/LMDZtrunk/netcdf-4.0.1/include 115 115 exit 116 116 endif … … 262 262 else if $LINUX then 263 263 ################# 264 if ( $FC_LINUX == pgf90 || $FC_LINUX == g 95|| $FC_LINUX == gfortran ) then264 if ( $FC_LINUX == pgf90 || $FC_LINUX == gfortran || $FC_LINUX == gfortran ) then 265 265 set optim=" $OPT_LINUX " 266 266 set optim90=" $OPT_LINUX " … … 519 519 set optim90="$optim90"" -g -ffpe-trap=invalid,zero,overflow -fbounds-check -Wall " 520 520 set optimtru90="$optimtru90"" -ffpe-trap=invalid,zero,overflow -g -fbounds-check -Wall " 521 else if ( $FC_LINUX == 'g 95' ) then521 else if ( $FC_LINUX == 'gfortran' ) then 522 522 set optim="$optim"" -g -fbounds-check -freal=nan -ftrace=full -Wall " 523 523 set optim90="$optim90"" -g -fbounds-check -freal=nan -ftrace=full -Wall " … … 841 841 set opt_link="$opt_link -L$MODIPSLDIR $link_veget -L$NCDFLIB -lnetcdf " 842 842 endif 843 else if ($FC_LINUX == 'g 95' || $FC_LINUX == 'gfortran' ) then843 else if ($FC_LINUX == 'gfortran' || $FC_LINUX == 'gfortran' ) then 844 844 if ( $io == "ioipsl" ) then 845 set opt_link="$opt_link -L$MODIPSLDIR $link_veget -lioipsl -L$NCDFLIB -lnetcdff -lnetcdf -lioipsl -lnetcdff-lnetcdf "845 set opt_link="$opt_link -L$MODIPSLDIR $link_veget -lioipsl -L$NCDFLIB -lnetcdf -lioipsl -lnetcdf " 846 846 else 847 set opt_link="$opt_link -L$MODIPSLDIR $link_veget -lioipsl -L$NCDFLIB -lnetcdff-lnetcdf "847 set opt_link="$opt_link -L$MODIPSLDIR $link_veget -lioipsl -L$NCDFLIB -lnetcdf " 848 848 endif 849 849 endif … … 1015 1015 set optimtru90=" $optimtru90 -module $libo " 1016 1016 set optim90=" $optim90 -module $libo " 1017 else if ( $FC_LINUX == 'g 95' ) then1018 set optimtru90=" $optimtru90 - fmod=$libo "1019 set optim90=" $optim90 - fmod=$libo "1017 else if ( $FC_LINUX == 'gfortran' ) then 1018 set optimtru90=" $optimtru90 -I$libo " 1019 set optim90=" $optim90 -I$libo " 1020 1020 else if ( $FC_LINUX == 'gfortran' ) then 1021 1021 set optimtru90=" $optimtru90 -M $libo " -
LMDZ5/trunk/makelmdz
r1772 r1785 364 364 CPP_KEY="$CPP_KEY CPP_VEGET ORCHIDEE_NOOPENMP" 365 365 INCLUDE="${INCLUDE} -I${ORCH_INCDIR}" 366 LIB="${LIB} -L${ORCH_LIBDIR} -l${LIBPREFIX}sechiba -l${LIBPREFIX}parameters -l${LIBPREFIX}stomate -l${LIBPREFIX}parallel -l${LIBPREFIX}orglob"366 LIB="${LIB} -L${ORCH_LIBDIR} -l${LIBPREFIX}sechiba -l${LIBPREFIX}parameters -l${LIBPREFIX}stomate " 367 367 elif [[ "$veget" == "true" ]] 368 368 then … … 372 372 CPP_KEY="$CPP_KEY CPP_VEGET" 373 373 INCLUDE="${INCLUDE} -I${ORCH_INCDIR}" 374 LIB="${LIB} -L${ORCH_LIBDIR} -l${LIBPREFIX}sechiba -l${LIBPREFIX}parameters -l${LIBPREFIX}stomate -l${LIBPREFIX}parallel -l${LIBPREFIX}orglob"374 LIB="${LIB} -L${ORCH_LIBDIR} -l${LIBPREFIX}sechiba -l${LIBPREFIX}parameters -l${LIBPREFIX}stomate " 375 375 elif [[ "$veget" != "false" ]] 376 376 then -
LMDZ5/trunk/makelmdz_fcm
r1772 r1785 261 261 CPP_KEY="$CPP_KEY CPP_VEGET ORCHIDEE_NOOPENMP" 262 262 INCLUDE="${INCLUDE} -I${ORCH_INCDIR}" 263 LIB="${LIB} -L${ORCH_LIBDIR} -l${LIBPREFIX}sechiba -l${LIBPREFIX}parameters -l${LIBPREFIX}stomate -l${LIBPREFIX}parallel -l${LIBPREFIX}orglob"263 LIB="${LIB} -L${ORCH_LIBDIR} -l${LIBPREFIX}sechiba -l${LIBPREFIX}parameters -l${LIBPREFIX}stomate " 264 264 elif [[ "$veget" == "true" ]] 265 265 then … … 269 269 CPP_KEY="$CPP_KEY CPP_VEGET" 270 270 INCLUDE="${INCLUDE} -I${ORCH_INCDIR}" 271 LIB="${LIB} -L${ORCH_LIBDIR} -l${LIBPREFIX}sechiba -l${LIBPREFIX}parameters -l${LIBPREFIX}stomate -l${LIBPREFIX}parallel -l${LIBPREFIX}orglob"271 LIB="${LIB} -L${ORCH_LIBDIR} -l${LIBPREFIX}sechiba -l${LIBPREFIX}parameters -l${LIBPREFIX}stomate " 272 272 elif [[ "$veget" != "false" ]] 273 273 then
Note: See TracChangeset
for help on using the changeset viewer.