Changeset 793
- Timestamp:
- Jun 22, 2007, 2:49:51 PM (17 years ago)
- Location:
- LMDZ4/trunk/libf/phylmd
- Files:
-
- 4 deleted
- 36 edited
-
FCTTRE.h (modified) (1 diff)
-
FCTTRE.inc (deleted)
-
YOETHF.h (modified) (1 diff)
-
YOETHF.inc (deleted)
-
YOMCST.h (modified) (2 diffs)
-
atm2geo.F (modified) (1 diff)
-
calbeta.F90 (modified) (1 diff)
-
calcul_fluxs_mod.F90 (modified) (1 diff)
-
clcdrag.F90 (modified) (2 diffs)
-
clesphys.h (modified) (3 diffs)
-
climb_hq_mod.F90 (modified) (3 diffs)
-
climb_wind_mod.F90 (modified) (3 diffs)
-
clvent.F90 (modified) (1 diff)
-
coef_diff_turb_mod.F90 (modified) (3 diffs)
-
coefcdrag.F90 (modified) (2 diffs)
-
conf_phys.F90 (modified) (1 diff)
-
cpl_mod.F90 (modified) (11 diffs)
-
fisrtilp.h (modified) (2 diffs)
-
fisrtilp.inc (deleted)
-
fonte_neige_mod.F90 (modified) (3 diffs)
-
indicesol.h (modified) (1 diff)
-
indicesol.inc (deleted)
-
interfoce_lim.F90 (modified) (1 diff)
-
iophy.F90 (modified) (5 diffs)
-
oasis.F90 (modified) (3 diffs)
-
ocean_cpl_mod.F90 (modified) (2 diffs)
-
ocean_forced_mod.F90 (modified) (2 diffs)
-
ocean_slab_mod.F90 (modified) (4 diffs)
-
pbl_surface_mod.F90 (modified) (3 diffs)
-
phytrac.F (modified) (1 diff)
-
screenc.F90 (modified) (2 diffs)
-
screenp.F90 (modified) (1 diff)
-
stdlevvar.F90 (modified) (2 diffs)
-
surf_land_bucket_mod.F90 (modified) (1 diff)
-
surf_land_mod.F90 (modified) (1 diff)
-
surf_land_orchidee_mod.F90 (modified) (3 diffs)
-
surf_landice_mod.F90 (modified) (1 diff)
-
surf_ocean_mod.F90 (modified) (1 diff)
-
surf_seaice_mod.F90 (modified) (1 diff)
-
write_field_phy.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/FCTTRE.h
r524 r793 2 2 ! $Header$ 3 3 ! 4 C ------------------------------------------------------------------ 5 C This COMDECK includes the Thermodynamical functions for the cy39 6 C ECMWF Physics package. 7 C Consistent with YOMCST Basic physics constants, assuming the 8 C partial pressure of water vapour is given by a first order 9 C Taylor expansion of Qs(T) w.r.t. to Temperature, using constants 10 C in YOETHF 11 C ------------------------------------------------------------------ 4 ! 5 ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre 6 ! veillez n'utiliser que des ! pour les commentaires 7 ! et bien positionner les & des lignes de continuation 8 ! (les placer en colonne 6 et en colonne 73) 9 ! 10 ! ------------------------------------------------------------------ 11 ! This COMDECK includes the Thermodynamical functions for the cy39 12 ! ECMWF Physics package. 13 ! Consistent with YOMCST Basic physics constants, assuming the 14 ! partial pressure of water vapour is given by a first order 15 ! Taylor expansion of Qs(T) w.r.t. to Temperature, using constants 16 ! in YOETHF 17 ! ------------------------------------------------------------------ 12 18 REAL PTARG, PDELARG, P5ARG, PQSARG, PCOARG 13 19 REAL FOEEW, FOEDE, qsats, qsatl, dqsats, dqsatl 14 20 LOGICAL thermcep 15 21 PARAMETER (thermcep=.TRUE.) 16 C 17 FOEEW ( PTARG,PDELARG ) = EXP ( 18 S (R3LES*(1.-PDELARG)+R3IES*PDELARG) * (PTARG-RTT)19 S/ (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG)) )20 C 21 FOEDE ( PTARG,PDELARG,P5ARG,PQSARG,PCOARG ) = PQSARG*PCOARG*P5ARG 22 S/ (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG))**223 c 24 qsats(ptarg) = 100.0 * 0.622 * 10.0 25 . ** (2.07023 - 0.00320991 * ptarg26 .- 2484.896 / ptarg + 3.56654 * LOG10(ptarg))27 qsatl(ptarg) = 100.0 * 0.622 * 10.0 28 . ** (23.8319 - 2948.964 / ptarg29 . - 5.028 * LOG10(ptarg)30 . - 29810.16 * EXP( - 0.0699382 * ptarg)31 .+ 25.21935 * EXP( - 2999.924 / ptarg))32 c 33 dqsats(ptarg,pqsarg) = RLVTT/RCPD*pqsarg * (3.56654/ptarg 34 . +2484.896*LOG(10.)/ptarg**235 .-0.00320991*LOG(10.))36 dqsatl(ptarg,pqsarg) = RLVTT/RCPD*pqsarg*LOG(10.)* 37 . (2948.964/ptarg**2-5.028/LOG(10.)/ptarg38 . +25.21935*2999.924/ptarg**2*EXP(-2999.924/ptarg)39 .+29810.16*0.0699382*EXP(-0.0699382*ptarg))22 ! 23 FOEEW ( PTARG,PDELARG ) = EXP ( & 24 & (R3LES*(1.-PDELARG)+R3IES*PDELARG) * (PTARG-RTT) & 25 & / (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG)) ) 26 ! 27 FOEDE ( PTARG,PDELARG,P5ARG,PQSARG,PCOARG ) = PQSARG*PCOARG*P5ARG & 28 & / (PTARG-(R4LES*(1.-PDELARG)+R4IES*PDELARG))**2 29 ! 30 qsats(ptarg) = 100.0 * 0.622 * 10.0 & 31 & ** (2.07023 - 0.00320991 * ptarg & 32 & - 2484.896 / ptarg + 3.56654 * LOG10(ptarg)) 33 qsatl(ptarg) = 100.0 * 0.622 * 10.0 & 34 & ** (23.8319 - 2948.964 / ptarg & 35 & - 5.028 * LOG10(ptarg) & 36 & - 29810.16 * EXP( - 0.0699382 * ptarg) & 37 & + 25.21935 * EXP( - 2999.924 / ptarg)) 38 ! 39 dqsats(ptarg,pqsarg) = RLVTT/RCPD*pqsarg * (3.56654/ptarg & 40 & +2484.896*LOG(10.)/ptarg**2 & 41 & -0.00320991*LOG(10.)) 42 dqsatl(ptarg,pqsarg) = RLVTT/RCPD*pqsarg*LOG(10.)* & 43 & (2948.964/ptarg**2-5.028/LOG(10.)/ptarg & 44 & +25.21935*2999.924/ptarg**2*EXP(-2999.924/ptarg) & 45 & +29810.16*0.0699382*EXP(-0.0699382*ptarg)) -
LMDZ4/trunk/libf/phylmd/YOETHF.h
r776 r793 2 2 ! $Header$ 3 3 ! 4 C* COMMON *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS 5 C 6 C *R__ES* *CONSTANTS USED FOR COMPUTATION OF SATURATION 7 C MIXING RATIO OVER LIQUID WATER(*R_LES*) OR 8 C ICE(*R_IES*). 9 C *RVTMP2* *RVTMP2=RCPV/RCPD-1. 10 C *RHOH2O* *DENSITY OF LIQUID WATER. (RATM/100.) 11 C 4 ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre 5 ! veillez n'utiliser que des ! pour les commentaires 6 ! et bien positionner les & des lignes de continuation 7 ! (les placer en colonne 6 et en colonne 73) 8 ! 9 !* COMMON *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS 10 ! 11 ! *R__ES* *CONSTANTS USED FOR COMPUTATION OF SATURATION 12 ! MIXING RATIO OVER LIQUID WATER(*R_LES*) OR 13 ! ICE(*R_IES*). 14 ! *RVTMP2* *RVTMP2=RCPV/RCPD-1. 15 ! *RHOH2O* *DENSITY OF LIQUID WATER. (RATM/100.) 16 ! 12 17 REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES 13 18 REAL RVTMP2, RHOH2O 14 COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES, 15 .RVTMP2, RHOH2O19 COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES, & 20 & RVTMP2, RHOH2O 16 21 !$OMP THREADPRIVATE(/YOETHF/) -
LMDZ4/trunk/libf/phylmd/YOMCST.h
r776 r793 1 1 ! 2 2 ! $Header$ 3 ! 4 ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre 5 ! veillez à n'utiliser que des ! pour les commentaires 6 ! et à bien positionner les & des lignes de continuation 7 ! (les placer en colonne 6 et en colonne 73) 8 ! 3 9 ! 4 10 ! A1.0 Fundamental constants … … 24 30 REAL RALPD,RBETD,RGAMD 25 31 ! 26 ! S ,RSIGMA,RI0 27 COMMON/YOMCST/RPI ,RCLUM ,RHPLA ,RKBOL ,RNAVO 28 S ,RDAY ,REA ,REPSM ,RSIYEA,RSIDAY,ROMEGA 29 S ,R_ecc, R_peri, R_incl 30 S ,RA ,RG ,R1SA 31 S ,RSIGMA 32 S ,R ,RMD ,RMO3 ,RMV ,RD ,RV ,RCPD 33 S ,RCPV ,RCVD ,RCVV ,RKAPPA,RETV 34 S ,RCW ,RCS 35 S ,RLVTT ,RLSTT ,RLMLT ,RTT ,RATM 36 S ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS 37 S ,RALPD ,RBETD ,RGAMD 32 COMMON/YOMCST/RPI ,RCLUM ,RHPLA ,RKBOL ,RNAVO & 33 & ,RDAY ,REA ,REPSM ,RSIYEA,RSIDAY,ROMEGA & 34 & ,R_ecc, R_peri, R_incl & 35 & ,RA ,RG ,R1SA & 36 & ,RSIGMA & 37 & ,R ,RMD ,RMO3 ,RMV ,RD ,RV ,RCPD & 38 & ,RCPV ,RCVD ,RCVV ,RKAPPA,RETV & 39 & ,RCW ,RCS & 40 & ,RLVTT ,RLSTT ,RLMLT ,RTT ,RATM & 41 & ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS & 42 & ,RALPD ,RBETD ,RGAMD 38 43 ! ------------------------------------------------------------------ 39 44 !$OMP THREADPRIVATE(/YOMCST/) -
LMDZ4/trunk/libf/phylmd/atm2geo.F
r776 r793 7 7 USE mod_phys_lmdz_para 8 8 IMPLICIT NONE 9 include 'dimensions 90.h'9 include 'dimensions.h' 10 10 cc 11 11 cc Change wind local atmospheric coordinates to -
LMDZ4/trunk/libf/phylmd/calbeta.F90
r782 r793 14 14 ! Calculer quelques parametres pour appliquer la couche limite 15 15 ! ------------------------------------------------------------ 16 INCLUDE "indicesol. inc"16 INCLUDE "indicesol.h" 17 17 18 18 ! Variables d'entrees -
LMDZ4/trunk/libf/phylmd/calcul_fluxs_mod.F90
r782 r793 49 49 ! 50 50 51 INCLUDE "YOETHF. inc"52 INCLUDE "FCTTRE. inc"53 INCLUDE "indicesol. inc"54 INCLUDE "YOMCST. inc"51 INCLUDE "YOETHF.h" 52 INCLUDE "FCTTRE.h" 53 INCLUDE "indicesol.h" 54 INCLUDE "YOMCST.h" 55 55 56 56 ! Parametres d'entree -
LMDZ4/trunk/libf/phylmd/clcdrag.F90
r524 r793 16 16 ! klon----input-I- dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude) 17 17 ! knon----input-I- nombre de points pour un type de surface 18 ! nsrf----input-I- indice pour le type de surface; voir indicesol. inc18 ! nsrf----input-I- indice pour le type de surface; voir indicesol.h 19 19 ! zxli----input-L- calcul des cdrags selon Laurent Li 20 20 ! u-------input-R- vent zonal au 1er niveau du modele … … 38 38 ! ================================================================= c 39 39 ! 40 #include "YOMCST.inc"41 #include "YOETHF.inc"42 #include "indicesol.inc"40 INCLUDE "YOMCST.h" 41 INCLUDE "YOETHF.h" 42 INCLUDE "indicesol.h" 43 43 ! 44 44 ! Quelques constantes et options: -
LMDZ4/trunk/libf/phylmd/clesphys.h
r766 r793 2 2 ! $Header$ 3 3 ! 4 c..include cles_phys.h 5 c 4 ! 5 ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre 6 ! veillez à n'utiliser que des ! pour les commentaires 7 ! et à bien positionner les & des lignes de continuation 8 ! (les placer en colonne 6 et en colonne 73) 9 ! 10 !..include cles_phys.h 11 ! 6 12 LOGICAL cycle_diurne,soil_model,new_oliq,ok_orodr,ok_orolf 7 13 LOGICAL ok_limitvrai … … 11 17 REAL*8 CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt 12 18 13 cOM ---> correction du bilan d'eau global14 cOM Correction sur precip KE19 !OM ---> correction du bilan d'eau global 20 !OM Correction sur precip KE 15 21 REAL cvl_corr 16 cOM Fonte calotte dans bilan eau22 !OM Fonte calotte dans bilan eau 17 23 LOGICAL ok_lic_melt 18 24 19 cIM simulateur ISCCP25 !IM simulateur ISCCP 20 26 INTEGER top_height, overlap 21 cIM seuils cdrm, cdrh27 !IM seuils cdrm, cdrh 22 28 REAL cdmmax, cdhmax 23 cIM param. stabilite s/ terres et en dehors29 !IM param. stabilite s/ terres et en dehors 24 30 REAL ksta, ksta_ter 25 cIM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH31 !IM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH 26 32 LOGICAL ok_kzmin 27 cIM lev_histhf : niveau sorties 6h28 cIM lev_histday : niveau sorties journalieres29 cIM lev_histmth : niveau sorties mensuelles33 !IM lev_histhf : niveau sorties 6h 34 !IM lev_histday : niveau sorties journalieres 35 !IM lev_histmth : niveau sorties mensuelles 30 36 INTEGER lev_histhf, lev_histday, lev_histmth 31 37 CHARACTER*4 type_run … … 38 44 LOGICAL ok_slab_sicOBS 39 45 40 COMMON/clesphys/cycle_diurne, soil_model, new_oliq, 41 S ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con42 S , co2_ppm, solaire, RCO2, RCH4, RN2O, RCFC11, RCFC1243 S , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt44 S , top_height, overlap, cdmmax, cdhmax, ksta, ksta_ter45 S , ok_kzmin, lev_histhf, lev_histday, lev_histmth46 S , type_run, ok_isccp, ok_regdyn47 S , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins48 S , ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day49 S , ecrit_mth, ecrit_tra, ecrit_reg50 S , freqin_isccp, freqout_isccp, ip_ebil_phy51 S, ok_slab_sicOBS, ok_lic_melt, cvl_corr46 COMMON/clesphys/cycle_diurne, soil_model, new_oliq, & 47 & ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con & 48 & , co2_ppm, solaire, RCO2, RCH4, RN2O, RCFC11, RCFC12 & 49 & , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt & 50 & , top_height, overlap, cdmmax, cdhmax, ksta, ksta_ter & 51 & , ok_kzmin, lev_histhf, lev_histday, lev_histmth & 52 & , type_run, ok_isccp, ok_regdyn & 53 & , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins & 54 & , ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day & 55 & , ecrit_mth, ecrit_tra, ecrit_reg & 56 & , freqin_isccp, freqout_isccp, ip_ebil_phy & 57 & , ok_slab_sicOBS, ok_lic_melt, cvl_corr 52 58 53 c$OMP THREADPRIVATE(/clesphys/)59 !$OMP THREADPRIVATE(/clesphys/) 54 60 -
LMDZ4/trunk/libf/phylmd/climb_hq_mod.F90
r782 r793 28 28 petAcoef, peqAcoef, petBcoef, peqBcoef) 29 29 30 INCLUDE "YOMCST. inc"30 INCLUDE "YOMCST.h" 31 31 ! This routine calculates recursivly the coefficients C and D 32 32 ! for the quantity X=[Q,H] in equation X(k) = C(k) + D(k)*X(k-1), where k is … … 183 183 ! where X is H or Q, and k the vertical level k=1,klev 184 184 ! 185 INCLUDE "YOMCST. inc"185 INCLUDE "YOMCST.h" 186 186 ! Input arguments 187 187 !**************************************************************************************** … … 255 255 ! C and D are known from before and k is index of the vertical layer. 256 256 ! 257 INCLUDE "YOMCST. inc"257 INCLUDE "YOMCST.h" 258 258 ! Input arguments 259 259 !**************************************************************************************** -
LMDZ4/trunk/libf/phylmd/climb_wind_mod.F90
r782 r793 75 75 ! 76 76 ! 77 INCLUDE "YOMCST. inc"77 INCLUDE "YOMCST.h" 78 78 ! Input arguments 79 79 !**************************************************************************************** … … 211 211 flux_u, flux_v) 212 212 213 INCLUDE "YOMCST. inc"213 INCLUDE "YOMCST.h" 214 214 215 215 ! Input arguments … … 277 277 ! 278 278 !**************************************************************************************** 279 INCLUDE "YOMCST. inc"279 INCLUDE "YOMCST.h" 280 280 281 281 ! Input arguments -
LMDZ4/trunk/libf/phylmd/clvent.F90
r782 r793 48 48 REAL, INTENT(OUT) :: flux_v(klon,klev) 49 49 !c====================================================================== 50 #include "YOMCST.inc"50 include "YOMCST.h" 51 51 !c====================================================================== 52 52 INTEGER i, k -
LMDZ4/trunk/libf/phylmd/coef_diff_turb_mod.F90
r782 r793 58 58 ! Include 59 59 !**************************************************************************************** 60 INCLUDE "clesphys. inc"61 INCLUDE "indicesol. inc"60 INCLUDE "clesphys.h" 61 INCLUDE "indicesol.h" 62 62 INCLUDE "iniprint.h" 63 63 INCLUDE "compbl.h" 64 INCLUDE "YOETHF. inc"65 INCLUDE "YOMCST. inc"64 INCLUDE "YOETHF.h" 65 INCLUDE "YOMCST.h" 66 66 67 67 !**************************************************************************************** … … 256 256 ! pcfh-----output-R- coefficients a calculer (chaleur et humidite) 257 257 !====================================================================== 258 INCLUDE "YOETHF. inc"259 INCLUDE "FCTTRE. inc"258 INCLUDE "YOETHF.h" 259 INCLUDE "FCTTRE.h" 260 260 INCLUDE "iniprint.h" 261 INCLUDE "indicesol. inc"261 INCLUDE "indicesol.h" 262 262 INCLUDE "compbl.h" 263 INCLUDE "YOMCST. inc"263 INCLUDE "YOMCST.h" 264 264 ! 265 265 ! Arguments: … … 612 612 REAL zdthmin(knon), zdthdp 613 613 614 INCLUDE "indicesol. inc"615 INCLUDE "YOMCST. inc"614 INCLUDE "indicesol.h" 615 INCLUDE "YOMCST.h" 616 616 ! 617 617 ! Initialiser les sorties -
LMDZ4/trunk/libf/phylmd/coefcdrag.F90
r524 r793 21 21 ! klon----input-I- dimension de la grille physique (= nb_pts_latitude X nb_pts_longitude) 22 22 ! knon----input-I- nombre de points pour un type de surface 23 ! nsrf----input-I- indice pour le type de surface; voir indicesol. inc23 ! nsrf----input-I- indice pour le type de surface; voir indicesol.h 24 24 ! zxli----input-L- TRUE si calcul des cdrags selon Laurent Li 25 25 ! speed---input-R- module du vent au 1er niveau du modele … … 50 50 !------------------------------------------------------------------------- 51 51 ! 52 #include "YOMCST.inc"53 #include "YOETHF.inc"54 #include "indicesol.inc"52 include "YOMCST.h" 53 include "YOETHF.h" 54 include "indicesol.h" 55 55 ! Quelques constantes : 56 56 REAL, parameter :: RKAR=0.40, CB=5.0, CC=5.0, CD=5.0 -
LMDZ4/trunk/libf/phylmd/conf_phys.F90
r766 r793 16 16 implicit none 17 17 18 #include "conema3.h"19 #include "fisrtilp.inc"20 #include "nuage.h"21 #include "YOMCST.inc"18 include "conema3.h" 19 include "fisrtilp.h" 20 include "nuage.h" 21 include "YOMCST.h" 22 22 !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12 23 include "clesphys. inc"23 include "clesphys.h" 24 24 include "compbl.h" 25 include "control. inc"25 include "control.h" 26 26 ! 27 27 ! Configuration de la "physique" de LMDZ a l'aide de la fonction -
LMDZ4/trunk/libf/phylmd/cpl_mod.F90
r782 r793 97 97 SUBROUTINE cpl_init(dtime, rlon, rlat) 98 98 99 INCLUDE "dimensions 90.h"100 INCLUDE "indicesol. inc"101 INCLUDE "control. inc"102 INCLUDE "temps. inc"99 INCLUDE "dimensions.h" 100 INCLUDE "indicesol.h" 101 INCLUDE "control.h" 102 INCLUDE "temps.h" 103 103 INCLUDE "iniprint.h" 104 104 … … 275 275 ! 4 fields : read_sst, read_sic, read_sit and read_alb_sic. 276 276 277 INCLUDE "indicesol. inc"278 INCLUDE "temps. inc"277 INCLUDE "indicesol.h" 278 INCLUDE "temps.h" 279 279 INCLUDE "iniprint.h" 280 INCLUDE "YOMCST. inc"281 INCLUDE "dimensions 90.h"280 INCLUDE "YOMCST.h" 281 INCLUDE "dimensions.h" 282 282 283 283 ! Input arguments … … 403 403 ! tsurf_new(1:knon), pctsrf(1:klon). 404 404 ! 405 INCLUDE "indicesol. inc"405 INCLUDE "indicesol.h" 406 406 407 407 ! Input arguments … … 448 448 ! tsurf_new(1:knon), alb_new(1:knon), pctsrf(1:klon). 449 449 ! 450 INCLUDE "indicesol. inc"450 INCLUDE "indicesol.h" 451 451 452 452 ! Input arguments … … 485 485 ! (it is done in cpl_send_seaice_fields). 486 486 ! 487 INCLUDE "indicesol. inc"488 INCLUDE "dimensions 90.h"487 INCLUDE "indicesol.h" 488 INCLUDE "dimensions.h" 489 489 490 490 ! Input arguments … … 654 654 ! the coupler. 655 655 ! 656 INCLUDE "indicesol. inc"657 INCLUDE "dimensions 90.h"656 INCLUDE "indicesol.h" 657 INCLUDE "dimensions.h" 658 658 659 659 ! Input arguments … … 817 817 ! (it is done in cpl_send_seaice_fields). 818 818 ! 819 INCLUDE "dimensions 90.h"819 INCLUDE "dimensions.h" 820 820 821 821 ! Input arguments … … 869 869 ! will be done in cpl_send_seaice_fields. 870 870 ! 871 INCLUDE "dimensions 90.h"871 INCLUDE "dimensions.h" 872 872 873 873 ! Input varibales … … 917 917 ! Some includes 918 918 !************************************************************************************* 919 INCLUDE "indicesol. inc"920 INCLUDE "temps. inc"921 INCLUDE "dimensions 90.h"919 INCLUDE "indicesol.h" 920 INCLUDE "temps.h" 921 INCLUDE "dimensions.h" 922 922 923 923 ! Input arguments … … 1155 1155 ! champ_out champ sur la grille 2D 1156 1156 ! 1157 INCLUDE "dimensions 90.h"1157 INCLUDE "dimensions.h" 1158 1158 1159 1159 ! Input … … 1196 1196 ! champ_out champ sur la grille 2D 1197 1197 ! 1198 INCLUDE "dimensions 90.h"1198 INCLUDE "dimensions.h" 1199 1199 1200 1200 ! Input arguments -
LMDZ4/trunk/libf/phylmd/fisrtilp.h
r766 r793 1 1 ! 2 2 ! $Header$ 3 ! 4 ! 5 ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre 6 ! veillez n'utiliser que des ! pour les commentaires 7 ! et bien positionner les & des lignes de continuation 8 ! (les placer en colonne 6 et en colonne 73) 3 9 ! 4 10 REAL cld_lc_lsc,cld_lc_con … … 9 15 INTEGER iflag_pdf 10 16 11 common/comfisrtilp/ 12 s cld_lc_lsc ! 2.6e-413 s ,cld_lc_con ! 2.6e-414 s ,cld_tau_lsc ! 3600.15 s ,cld_tau_con ! 3600.16 s ,ffallv_lsc ! 1.17 s ,ffallv_con ! 1.18 s ,coef_eva ! 2.e-519 s ,reevap_ice ! F20 s ,iflag_pdf ! 017 common/comfisrtilp/ & 18 & cld_lc_lsc & 19 & ,cld_lc_con & 20 & ,cld_tau_lsc & 21 & ,cld_tau_con & 22 & ,ffallv_lsc & 23 & ,ffallv_con & 24 & ,coef_eva & 25 & ,reevap_ice & 26 & ,iflag_pdf 21 27 22 28 !$OMP THREADPRIVATE(/comfisrtilp/) -
LMDZ4/trunk/libf/phylmd/fonte_neige_mod.F90
r782 r793 44 44 ! restart file. The other variables are initialized to zero. 45 45 ! 46 INCLUDE "indicesol. inc"46 INCLUDE "indicesol.h" 47 47 !**************************************************************************************** 48 48 ! Input argument … … 139 139 ! evap 140 140 ! 141 INCLUDE "indicesol. inc"142 INCLUDE "dimensions 90.h"143 INCLUDE "YOETHF. inc"144 INCLUDE "YOMCST. inc"145 INCLUDE "FCTTRE. inc"146 INCLUDE "clesphys. inc"141 INCLUDE "indicesol.h" 142 INCLUDE "dimensions.h" 143 INCLUDE "YOETHF.h" 144 INCLUDE "YOMCST.h" 145 INCLUDE "FCTTRE.h" 146 INCLUDE "clesphys.h" 147 147 148 148 ! Input variables … … 313 313 ! This routine is called from physiq.F before histwrite. 314 314 315 INCLUDE "indicesol. inc"315 INCLUDE "indicesol.h" 316 316 !**************************************************************************************** 317 317 REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf -
LMDZ4/trunk/libf/phylmd/indicesol.h
r766 r793 1 1 ! 2 2 ! $Header$ 3 ! 4 ! 5 ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre 6 ! veillez à n'utiliser que des ! pour les commentaires 7 ! et à bien positionner les & des lignes de continuation 8 ! (les placer en colonne 6 et en colonne 73) 9 ! 3 10 ! 4 11 INTEGER nbsrf -
LMDZ4/trunk/libf/phylmd/interfoce_lim.F90
r782 r793 12 12 IMPLICIT NONE 13 13 14 INCLUDE "indicesol. inc"14 INCLUDE "indicesol.h" 15 15 INCLUDE "netcdf.inc" 16 16 -
LMDZ4/trunk/libf/phylmd/iophy.F90
r776 r793 20 20 use ioipsl 21 21 implicit none 22 include 'dimensions 90.h'22 include 'dimensions.h' 23 23 real,dimension(iim),intent(in) :: lon 24 24 real,dimension(jjm+1),intent(in) :: lat … … 69 69 use write_field 70 70 implicit none 71 include 'dimensions 90.h'71 include 'dimensions.h' 72 72 73 73 character*(*), intent(IN) :: name … … 95 95 USE ioipsl 96 96 implicit none 97 include 'dimensions 90.h'97 include 'dimensions.h' 98 98 99 99 integer,intent(in) :: nid … … 117 117 use ioipsl 118 118 implicit none 119 include 'dimensions 90.h'119 include 'dimensions.h' 120 120 121 121 integer,intent(in) :: nid … … 137 137 ! USE dimphy_old 138 138 ! implicit none 139 ! include 'dimensions 90.h'139 ! include 'dimensions.h' 140 140 ! 141 141 ! real,dimension(klon_mpi,nlev),intent(in) :: field_phy -
LMDZ4/trunk/libf/phylmd/oasis.F90
r782 r793 57 57 ! LF 09/2003 58 58 ! 59 INCLUDE "dimensions 90.h"59 INCLUDE "dimensions.h" 60 60 61 61 ! Local variables … … 216 216 !====================================================================== 217 217 ! 218 INCLUDE "dimensions 90.h"218 INCLUDE "dimensions.h" 219 219 ! Input arguments 220 220 !************************************************************************************ … … 277 277 ! 278 278 ! 279 INCLUDE "dimensions 90.h"279 INCLUDE "dimensions.h" 280 280 ! Input arguments 281 281 !************************************************************************************ -
LMDZ4/trunk/libf/phylmd/ocean_cpl_mod.F90
r782 r793 83 83 ! surface is done and finally it sends some fields to the coupler. 84 84 ! 85 INCLUDE "indicesol. inc"86 INCLUDE "YOMCST. inc"85 INCLUDE "indicesol.h" 86 INCLUDE "YOMCST.h" 87 87 ! 88 88 ! Input arguments … … 233 233 ! some fields to the coupler. 234 234 ! 235 INCLUDE "indicesol. inc"236 INCLUDE "YOMCST. inc"235 INCLUDE "indicesol.h" 236 INCLUDE "YOMCST.h" 237 237 238 238 ! Input arguments -
LMDZ4/trunk/libf/phylmd/ocean_forced_mod.F90
r781 r793 62 62 ! surface. 63 63 ! 64 INCLUDE "indicesol. inc"65 INCLUDE "YOMCST. inc"64 INCLUDE "indicesol.h" 65 INCLUDE "YOMCST.h" 66 66 67 67 ! Input arguments … … 182 182 ! surface. 183 183 ! 184 INCLUDE "indicesol. inc"184 INCLUDE "indicesol.h" 185 185 INCLUDE "dimsoil.h" 186 INCLUDE "YOMCST. inc"187 INCLUDE "clesphys. inc"186 INCLUDE "YOMCST.h" 187 INCLUDE "clesphys.h" 188 188 189 189 ! Input arguments -
LMDZ4/trunk/libf/phylmd/ocean_slab_mod.F90
r781 r793 41 41 SUBROUTINE ocean_slab_init(dtime, tslab_rst, seaice_rst, pctsrf_rst) 42 42 43 INCLUDE "indicesol. inc"43 INCLUDE "indicesol.h" 44 44 INCLUDE "iniprint.h" 45 45 … … 144 144 dflux_s, dflux_l, pctsrf_oce) 145 145 146 INCLUDE "indicesol. inc"146 INCLUDE "indicesol.h" 147 147 INCLUDE "iniprint.h" 148 148 … … 226 226 tsurf_new, alb_new, dflux_s, dflux_l, pctsrf_sic) 227 227 228 INCLUDE "indicesol. inc"228 INCLUDE "indicesol.h" 229 229 INCLUDE "dimsoil.h" 230 INCLUDE "YOMCST. inc"230 INCLUDE "YOMCST.h" 231 231 INCLUDE "iniprint.h" 232 INCLUDE "clesphys. inc"232 INCLUDE "clesphys.h" 233 233 234 234 ! Input arguments … … 438 438 ! pctsrf_slab "pourcentages" (valeurs entre 0. et 1.) surfaces issus du slab 439 439 440 INCLUDE "indicesol. inc"441 INCLUDE "YOMCST. inc"440 INCLUDE "indicesol.h" 441 INCLUDE "YOMCST.h" 442 442 INCLUDE "iniprint.h" 443 INCLUDE "clesphys. inc"443 INCLUDE "clesphys.h" 444 444 445 445 ! Input arguments -
LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90
r781 r793 58 58 ! for the index of the different surfaces and tests the choice of type of ocean. 59 59 60 INCLUDE "indicesol. inc"60 INCLUDE "indicesol.h" 61 61 INCLUDE "dimsoil.h" 62 62 INCLUDE "iniprint.h" … … 259 259 ! pblT-----output-R- T au nveau HCL 260 260 ! 261 INCLUDE "indicesol. inc"261 INCLUDE "indicesol.h" 262 262 INCLUDE "dimsoil.h" 263 INCLUDE "YOMCST. inc"263 INCLUDE "YOMCST.h" 264 264 INCLUDE "iniprint.h" 265 INCLUDE "FCTTRE. inc"266 INCLUDE "clesphys. inc"265 INCLUDE "FCTTRE.h" 266 INCLUDE "clesphys.h" 267 267 INCLUDE "compbl.h" 268 INCLUDE "dimensions 90.h"269 INCLUDE "YOETHF. inc"270 INCLUDE "temps. inc"271 INCLUDE "control. inc"268 INCLUDE "dimensions.h" 269 INCLUDE "YOETHF.h" 270 INCLUDE "temps.h" 271 INCLUDE "control.h" 272 272 273 273 ! Input variables … … 1238 1238 evap_rst, rugos_rst, agesno_rst, ftsoil_rst) 1239 1239 1240 INCLUDE "indicesol. inc"1240 INCLUDE "indicesol.h" 1241 1241 INCLUDE "dimsoil.h" 1242 1242 -
LMDZ4/trunk/libf/phylmd/phytrac.F
r782 r793 814 814 c si radio=true mais pour l'instant radiornpb propre au cas rnpb 815 815 if(rnpb) then 816 816 c print *, 'decroissance radiactive activee' 817 817 call radiornpb (tr_seri,pdtphys,tautr,d_tr_dec) 818 818 C -
LMDZ4/trunk/libf/phylmd/screenc.F90
r524 r793 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 indicesol. inc24 ! nsrf----input-I- indice pour le type de surface; voir indicesol.h 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 … … 53 53 REAL, dimension(klon), intent(out) :: pref, delu, delte, delq 54 54 !----------------------------------------------------------------------- 55 #include "YOMCST.inc"55 include "YOMCST.h" 56 56 ! 57 57 ! Variables locales -
LMDZ4/trunk/libf/phylmd/screenp.F90
r524 r793 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 indicesol. inc24 ! nsrf----input-I- indice pour le type de surface; voir indicesol.h 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 -
LMDZ4/trunk/libf/phylmd/stdlevvar.F90
r644 r793 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 indicesol. inc25 ! nsrf----input-I- indice pour le type de surface; voir indicesol.h 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 … … 53 53 REAL, dimension(klon), intent(out) :: u_10m, t_10m, q_10m 54 54 !------------------------------------------------------------------------- 55 #include "YOMCST.inc"55 include "YOMCST.h" 56 56 !IM PLUS 57 #include "YOETHF.inc"57 include "YOETHF.h" 58 58 ! 59 59 ! Quelques constantes et options: -
LMDZ4/trunk/libf/phylmd/surf_land_bucket_mod.F90
r781 r793 29 29 ! Bucket calculations for surface. 30 30 ! 31 INCLUDE "clesphys. inc"32 INCLUDE "indicesol. inc"31 INCLUDE "clesphys.h" 32 INCLUDE "indicesol.h" 33 33 INCLUDE "dimsoil.h" 34 INCLUDE "YOMCST. inc"34 INCLUDE "YOMCST.h" 35 35 36 36 ! Input variables -
LMDZ4/trunk/libf/phylmd/surf_land_mod.F90
r781 r793 28 28 tsurf_new, alb_new, dflux_s, dflux_l, pctsrf_ter) 29 29 30 INCLUDE "indicesol. inc"30 INCLUDE "indicesol.h" 31 31 INCLUDE "dimsoil.h" 32 32 -
LMDZ4/trunk/libf/phylmd/surf_land_orchidee_mod.F90
r781 r793 90 90 ! 91 91 INCLUDE "indicesol.h" 92 INCLUDE "temps. inc"93 INCLUDE "YOMCST. inc"92 INCLUDE "temps.h" 93 INCLUDE "YOMCST.h" 94 94 INCLUDE "iniprint.h" 95 INCLUDE "dimensions 90.h"95 INCLUDE "dimensions.h" 96 96 97 97 ! … … 426 426 SUBROUTINE Init_orchidee_index(knon,orch_comm,knindex,offset,ktindex) 427 427 428 INCLUDE "dimensions 90.h"428 INCLUDE "dimensions.h" 429 429 430 430 #ifdef CPP_PARA … … 525 525 526 526 INCLUDE "indicesol.h" 527 INCLUDE "dimensions 90.h"527 INCLUDE "dimensions.h" 528 528 #ifdef CPP_PARA 529 529 INCLUDE 'mpif.h' -
LMDZ4/trunk/libf/phylmd/surf_landice_mod.F90
r781 r793 24 24 tsurf_new, alb_new, dflux_s, dflux_l, pctsrf_lic) 25 25 26 INCLUDE "indicesol. inc"26 INCLUDE "indicesol.h" 27 27 INCLUDE "dimsoil.h" 28 INCLUDE "YOMCST. inc"29 INCLUDE "clesphys. inc"28 INCLUDE "YOMCST.h" 29 INCLUDE "clesphys.h" 30 30 31 31 ! Input variables -
LMDZ4/trunk/libf/phylmd/surf_ocean_mod.F90
r781 r793 32 32 ! done in here because they are identical for the different modes of ocean. 33 33 ! 34 INCLUDE "indicesol. inc"35 INCLUDE "YOMCST. inc"34 INCLUDE "indicesol.h" 35 INCLUDE "YOMCST.h" 36 36 37 37 ! Input variables -
LMDZ4/trunk/libf/phylmd/surf_seaice_mod.F90
r781 r793 31 31 ! in here because it is the same calculation for the different modes of ocean. 32 32 ! 33 INCLUDE "indicesol. inc"33 INCLUDE "indicesol.h" 34 34 INCLUDE "dimsoil.h" 35 35 -
LMDZ4/trunk/libf/phylmd/write_field_phy.F90
r776 r793 13 13 14 14 IMPLICIT NONE 15 include 'dimensions 90.h'16 include 'paramet 90.h'15 include 'dimensions.h' 16 include 'paramet.h' 17 17 18 18 character(len=*) :: name
Note: See TracChangeset
for help on using the changeset viewer.
