Parent Directory
| 
Revision Log
-- Minor modification of input/output: Created procedure "read_logic". Variables of module "logic" are read by "read_logic" instead of "conf_gcm". Variable "offline" of module "conf_gcm" is read from namelist instead of "*.def". Deleted arguments "dtime", "co2_ppm_etat0", "solaire_etat0", "tabcntr0" and local variables "radpas", "tab_cntrl" of "phyetat0". "phyetat0" does not read "controle" in "startphy.nc" any longer. "phyetat0" now reads global attribute "itau_phy" from "startphy.nc". "phyredem" does not create variable "controle" in "startphy.nc" any longer. "phyredem" now writes global attribute "itau_phy" of "startphy.nc". Deleted argument "tabcntr0" of "printflag". Removed diagnostic messages written by "printflag" for comparison of the variable "controle" of "startphy.nc" and the variables read from "*.def" or namelist input. -- Removing unwanted functionality: Removed variable "lunout" from module "iniprint", replaced everywhere by standard output. Removed case "ocean == 'couple'" in "clmain", "interfsurf_hq" and "physiq". Removed procedure "interfoce_cpl". -- Should not change anything at run time: Automated creation of graphs in documentation. More documentation on input files. Converted Fortran files to free format: "phyredem.f90", "printflag.f90". Split module "clesphy" into "clesphys" and "clesphys2". Removed variables "conser", "leapf", "forward", "apphys", "apdiss" and "statcl" from module "logic". Added arguments "conser" to "advect", "leapf" to "integrd". Added local variables "forward", "leapf", "apphys", "conser", "apdiss" in "leapfrog". Added intent attributes. Deleted arguments "dtime" of "phyredem", "pdtime" of "flxdtdq", "sh" of "phytrac", "dt" of "yamada". Deleted local variables "dtime", "co2_ppm_etat0", "solaire_etat0", "length", "tabcntr0" in "physiq". Replaced all references to "dtime" by references to "pdtphys".
| 1 | SUBROUTINE printflag(radpas, ok_ocean, ok_oasis, ok_journe, ok_instan, & |
| 2 | ok_region) |
| 3 | |
| 4 | ! From phylmd/printflag.F, v 1.1.1.1 2004/05/19 12:53:09 |
| 5 | ! Auteur : P. Le Van |
| 6 | |
| 7 | USE clesphys2, ONLY: cycle_diurne, iflag_con, nbapp_rad, new_oliq, & |
| 8 | ok_limitvrai, ok_orodr, ok_orolf, soil_model |
| 9 | |
| 10 | IMPLICIT NONE |
| 11 | |
| 12 | INTEGER, INTENT (IN) :: radpas |
| 13 | LOGICAL, INTENT (IN) :: ok_ocean, ok_oasis, ok_journe, ok_instan, ok_region |
| 14 | |
| 15 | !-------------------------------------------------- |
| 16 | |
| 17 | PRINT *, 'Choix des principales cles de la physique' |
| 18 | PRINT 10, cycle_diurne, soil_model |
| 19 | |
| 20 | select case (iflag_con) |
| 21 | case (1) |
| 22 | PRINT *, 'Shema convection LMD' |
| 23 | case (2) |
| 24 | PRINT *, 'Shema convection Tiedtke' |
| 25 | case (3) |
| 26 | PRINT *, 'Shema convection CCM' |
| 27 | END select |
| 28 | |
| 29 | PRINT 11, new_oliq, ok_orodr, ok_orolf |
| 30 | PRINT 7, ok_limitvrai |
| 31 | PRINT 12, nbapp_rad |
| 32 | PRINT 8, radpas |
| 33 | PRINT 5, ok_ocean, ok_oasis |
| 34 | PRINT 4, ok_journe, ok_instan, ok_region |
| 35 | |
| 36 | 4 FORMAT ('ok_journe= ', L3, ', ok_instan = ', L3, ', ok_region = ', L3) |
| 37 | 5 FORMAT ('ok_ocean = ', L3, ', ok_oasis = ', L3) |
| 38 | 7 FORMAT ('ok_limitvrai = ', L3) |
| 39 | 8 FORMAT ('radpas = ', I4) |
| 40 | 10 FORMAT ('Cycle_diurne = ', L3, ', Soil_model = ', L3) |
| 41 | 11 FORMAT ('new_oliq = ', L3, ', Ok_orodr = ', L3, ', Ok_orolf = ', L3) |
| 42 | 12 FORMAT ('Nb d appels /jour des routines de rayonn. = ', I4) |
| 43 | |
| 44 | END SUBROUTINE printflag |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |