- Timestamp:
- Jun 13, 2024, 2:52:13 PM (6 months ago)
- Location:
- trunk/LMDZ.PLUTO/libf/phypluto
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90
r3372 r3378 629 629 ! use Pluto.old routines 630 630 if (is_master) write(*,*) trim(rname)//": use vdifc from old Pluto ?" 631 oldplutovdifc=. true. ! default value631 oldplutovdifc=.false. ! default value 632 632 call getin_p("oldplutovdifc",oldplutovdifc) 633 633 if (is_master) write(*,*) trim(rname)//": oldplutovdifc = ",oldplutovdifc … … 635 635 if (is_master) write(*,*) trim(rname)//& 636 636 ": call pluto.old correlated-k radiative transfer ?" 637 oldplutocorrk=. true. ! default value637 oldplutocorrk=.false. ! default value 638 638 call getin_p("oldplutocorrk",oldplutocorrk) 639 639 if (is_master) write(*,*) trim(rname)//": oldplutocorrk = ",oldplutocorrk … … 641 641 if (is_master) write(*,*) trim(rname)//& 642 642 ": call pluto.old sedimentation ?" 643 oldplutosedim=. true. ! default value643 oldplutosedim=.false. ! default value 644 644 call getin_p("oldplutosedim",oldplutosedim) 645 645 if (is_master) write(*,*) trim(rname)//": oldplutosedim = ",oldplutosedim -
trunk/LMDZ.PLUTO/libf/phypluto/radinc_h.F90
r3184 r3378 11 11 !====================================================================== 12 12 ! 13 ! RADINC.H 13 ! RADINC.H 14 14 ! 15 15 ! Includes for the radiation code; RADIATION LAYERS, LEVELS, 16 16 ! number of spectral intervals. . . 17 ! 17 ! 18 18 !====================================================================== 19 19 … … 27 27 28 28 ! L_NLEVRAD corresponds to the surface - i.e., the GCM Level that 29 ! is at the surface. PLEV(L_NLEVRAD) = P(J,I)+PTROP, 29 ! is at the surface. PLEV(L_NLEVRAD) = P(J,I)+PTROP, 30 30 ! PLEV(2) = PTROP, PLEV(1) = ptop 31 31 32 32 ! L_NLAYRAD is the number of radiation code layers 33 33 ! L_NLEVRAD is the number of radiation code levels. Level N is the 34 ! top of layer N. 34 ! top of layer N. 35 35 ! 36 36 ! L_NSPECTI is the number of IR spectral intervals … … 39 39 ! GAUSS POINT 17 (aka the last one) is the special case 40 40 ! 41 ! L_NPREF is the number of reference pressures that the 41 ! L_NPREF is the number of reference pressures that the 42 42 ! k-coefficients are calculated on 43 43 ! L_PINT is the number of Lagrange interpolated reference … … 74 74 real, parameter :: L_TAUMAX = 35 75 75 76 ! For Planck function integration: 76 ! For Planck function integration: 77 77 ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 78 78 ! Integration boundary temperatures are NTstart/NTfac and Ntstop/NTfac … … 86 86 87 87 ! Maximum number of grain size classes for aerosol convolution: 88 ! This must correspond to size of largest dataset used for aerosol 88 ! This must correspond to size of largest dataset used for aerosol 89 89 ! optical properties in datagcm folder. 90 integer, parameter :: nsizemax = 6090 integer, parameter :: nsizemax = 200 91 91 92 92 character(len=100),save :: corrkdir … … 105 105 real*8, intent(in) :: tplanckmax 106 106 real*8, intent(in) :: dtplanck 107 107 108 108 L_NLAYRAD = nbp_lev 109 109 L_LEVELS = 2*(nbp_lev-1)+3 … … 113 113 NTstart = int(tplanckmin * NTfac) 114 114 NTstop = int(tplanckmax * NTfac) 115 115 116 116 end subroutine 117 117
Note: See TracChangeset
for help on using the changeset viewer.