/[MITgcm]/MITgcm/pkg/aim_v23/aim_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/aim_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.15 by dfer, Mon Jan 5 15:15:33 2009 UTC revision 1.16 by jmc, Tue Apr 28 23:27:24 2009 UTC
# Line 379  C- namelist AIM_PARAMS: Line 379  C- namelist AIM_PARAMS:
379         CALL WRITE_0D_L( aim_useMMsurfFc, INDEX_NONE,         CALL WRITE_0D_L( aim_useMMsurfFc, INDEX_NONE,
380       &                 'aim_useMMsurfFc =',       &                 'aim_useMMsurfFc =',
381       &'   /* Monthly Mean surf. Forcing on/off flag */')       &'   /* Monthly Mean surf. Forcing on/off flag */')
382         CALL WRITE_0D_R8(aim_surfForc_TimePeriod, INDEX_NONE,         CALL WRITE_0D_RL(aim_surfForc_TimePeriod, INDEX_NONE,
383       &                 'aim_surfForc_TimePeriod =',       &                 'aim_surfForc_TimePeriod =',
384       &  ' /* Length of forcing time period (s) */')       &  ' /* Length of forcing time period (s) */')
385         CALL WRITE_0D_I( aim_surfForc_NppCycle, INDEX_NONE,         CALL WRITE_0D_I( aim_surfForc_NppCycle, INDEX_NONE,
386       &                 'aim_surfForc_NppCycle   =',       &                 'aim_surfForc_NppCycle   =',
387       &  ' /* Number of time period per Cycle */')       &  ' /* Number of time period per Cycle */')
388         CALL WRITE_0D_R8(aim_surfForc_TransRatio, INDEX_NONE,         CALL WRITE_0D_RL(aim_surfForc_TransRatio, INDEX_NONE,
389       &                 'aim_surfForc_TransRatio =',       &                 'aim_surfForc_TransRatio =',
390       &  ' /* transition ratio from one month to the next */')       &  ' /* transition ratio from one month to the next */')
391         CALL WRITE_0D_L( aim_surfPotTemp, INDEX_NONE,         CALL WRITE_0D_L( aim_surfPotTemp, INDEX_NONE,
# Line 397  C- namelist AIM_PARAMS: Line 397  C- namelist AIM_PARAMS:
397         CALL WRITE_0D_L( aim_splitSIOsFx, INDEX_NONE,         CALL WRITE_0D_L( aim_splitSIOsFx, INDEX_NONE,
398       &                 'aim_splitSIOsFx =',       &                 'aim_splitSIOsFx =',
399       &  ' /* separate Sea-Ice & Ocean Flux on/off flag */')       &  ' /* separate Sea-Ice & Ocean Flux on/off flag */')
400         CALL WRITE_0D_R8(aim_dragStrato,INDEX_NONE,'aim_dragStrato=',         CALL WRITE_0D_RL(aim_dragStrato,INDEX_NONE,'aim_dragStrato=',
401       &    ' /* stratospheric-drag damping time scale (s) */')       &    ' /* stratospheric-drag damping time scale (s) */')
402         CALL WRITE_0D_L( aim_clrSkyDiag, INDEX_NONE,         CALL WRITE_0D_L( aim_clrSkyDiag, INDEX_NONE,
403       &                 'aim_clrSkyDiag =',       &                 'aim_clrSkyDiag =',
404       &  ' /* do clear-sky radiation diagnostics */')       &  ' /* do clear-sky radiation diagnostics */')
405         CALL WRITE_0D_R8( aim_taveFreq, INDEX_NONE,'aim_taveFreq =',         CALL WRITE_0D_RL( aim_taveFreq, INDEX_NONE,'aim_taveFreq =',
406       &  '   /* Frequency^-1 for time-Aver. output (s) */')       &  '   /* Frequency^-1 for time-Aver. output (s) */')
407         CALL WRITE_0D_R8( aim_diagFreq, INDEX_NONE,'aim_diagFreq =',         CALL WRITE_0D_RL( aim_diagFreq, INDEX_NONE,'aim_diagFreq =',
408       &  '   /* Frequency^-1 for diagnostic output (s) */')       &  '   /* Frequency^-1 for diagnostic output (s) */')
409         CALL WRITE_0D_R8( aim_tendFreq, INDEX_NONE,'aim_tendFreq =',         CALL WRITE_0D_RL( aim_tendFreq, INDEX_NONE,'aim_tendFreq =',
410       &  '   /* Frequency^-1 for tendencies output (s) */')       &  '   /* Frequency^-1 for tendencies output (s) */')
411         CALL WRITE_0D_I( aim_selectOceAlbedo, INDEX_NONE,         CALL WRITE_0D_I( aim_selectOceAlbedo, INDEX_NONE,
412       &                 'aim_selectOceAlbedo =',       &                 'aim_selectOceAlbedo =',
413       &  '   /* Ocean albedo(latitude) flag */')       &  '   /* Ocean albedo(latitude) flag */')
414    
415  C- namelist AIM_PAR_FOR:  C- namelist AIM_PAR_FOR:
416         CALL WRITE_0D_R8( SOLC,  INDEX_NONE,'AIM_FOR:   SOLC =',         CALL WRITE_0D_RL( SOLC,  INDEX_NONE,'AIM_FOR:   SOLC =',
417       &  '   /* Solar constant (area averaged) in W/m2 */')       &  '   /* Solar constant (area averaged) in W/m2 */')
418         CALL WRITE_0D_R8( ALBSEA,INDEX_NONE,'AIM_FOR: ALBSEA =',         CALL WRITE_0D_RL( ALBSEA,INDEX_NONE,'AIM_FOR: ALBSEA =',
419       &  '   /* Albedo over sea [0-1]      */')       &  '   /* Albedo over sea [0-1]      */')
420         CALL WRITE_0D_R8( ALBICE,INDEX_NONE,'AIM_FOR: ALBICE =',         CALL WRITE_0D_RL( ALBICE,INDEX_NONE,'AIM_FOR: ALBICE =',
421       &  '   /* Albedo over sea ice (for ice fraction =1) */')       &  '   /* Albedo over sea ice (for ice fraction =1) */')
422         CALL WRITE_0D_R8( ALBSN, INDEX_NONE,'AIM_FOR:  ALBSN =',         CALL WRITE_0D_RL( ALBSN, INDEX_NONE,'AIM_FOR:  ALBSN =',
423       &  '   /* Albedo over snow (for snow depth > SDALB) */')       &  '   /* Albedo over snow (for snow depth > SDALB) */')
424         CALL WRITE_0D_R8( SDALB, INDEX_NONE,'AIM_FOR:  SDALB =',         CALL WRITE_0D_RL( SDALB, INDEX_NONE,'AIM_FOR:  SDALB =',
425       &  '   /* Snow depth (mm H2O) corresp. maximum albedo */')       &  '   /* Snow depth (mm H2O) corresp. maximum albedo */')
426         CALL WRITE_0D_R8( SWCAP, INDEX_NONE,'AIM_FOR:  SWCAP =',         CALL WRITE_0D_RL( SWCAP, INDEX_NONE,'AIM_FOR:  SWCAP =',
427       &  '   /* Soil wetness at field capacity (Vol.fract.) */')       &  '   /* Soil wetness at field capacity (Vol.fract.) */')
428         CALL WRITE_0D_R8( SWWIL, INDEX_NONE,'AIM_FOR:  SWWIL =',         CALL WRITE_0D_RL( SWWIL, INDEX_NONE,'AIM_FOR:  SWWIL =',
429       &  '   /* Soil wetness at wilting point  (Vol.fract.) */')       &  '   /* Soil wetness at wilting point  (Vol.fract.) */')
430         CALL WRITE_0D_R8( hSnowWetness, INDEX_NONE,         CALL WRITE_0D_RL( hSnowWetness, INDEX_NONE,
431       &  'AIM_FOR: hSnowWetness=',       &  'AIM_FOR: hSnowWetness=',
432       &  '   /* snow depth corresp. maximum wetness (m) */')       &  '   /* snow depth corresp. maximum wetness (m) */')
433    
434  C- namelist AIM_PAR_SFL:  C- namelist AIM_PAR_SFL:
435         CALL WRITE_0D_R8( FWIND0,INDEX_NONE,'AIM_SFL: FWIND0 =',         CALL WRITE_0D_RL( FWIND0,INDEX_NONE,'AIM_SFL: FWIND0 =',
436       &  '   /* ratio of near-sfc wind to lowest-level wind */')       &  '   /* ratio of near-sfc wind to lowest-level wind */')
437         CALL WRITE_0D_R8( FTEMP0,INDEX_NONE,'AIM_SFL: FTEMP0 =',         CALL WRITE_0D_RL( FTEMP0,INDEX_NONE,'AIM_SFL: FTEMP0 =',
438       &  '  /* weight for near-sfc temp. extrapolation (0-1)*/')       &  '  /* weight for near-sfc temp. extrapolation (0-1)*/')
439         CALL WRITE_0D_R8( FHUM0, INDEX_NONE,'AIM_SFL:  FHUM0 =',         CALL WRITE_0D_RL( FHUM0, INDEX_NONE,'AIM_SFL:  FHUM0 =',
440       &  '  /* weight for near-sfc spec.humid. extrap. (0-1)*/')       &  '  /* weight for near-sfc spec.humid. extrap. (0-1)*/')
441         CALL WRITE_0D_R8( CDL,   INDEX_NONE,'AIM_SFL:    CDL =',         CALL WRITE_0D_RL( CDL,   INDEX_NONE,'AIM_SFL:    CDL =',
442       &  '   /* drag coefficient for momentum over land */')       &  '   /* drag coefficient for momentum over land */')
443         CALL WRITE_0D_R8( CDS,   INDEX_NONE,'AIM_SFL:    CDS =',         CALL WRITE_0D_RL( CDS,   INDEX_NONE,'AIM_SFL:    CDS =',
444       &  '   /* drag coefficient for momentum over sea  */')       &  '   /* drag coefficient for momentum over sea  */')
445         CALL WRITE_0D_R8( CHL,   INDEX_NONE,'AIM_SFL:    CHL =',         CALL WRITE_0D_RL( CHL,   INDEX_NONE,'AIM_SFL:    CHL =',
446       &  '   /* heat exchange coefficient over land */')       &  '   /* heat exchange coefficient over land */')
447         CALL WRITE_0D_R8( CHS,   INDEX_NONE,'AIM_SFL:    CHS =',         CALL WRITE_0D_RL( CHS,   INDEX_NONE,'AIM_SFL:    CHS =',
448       &  '   /* heat exchange coefficient over sea  */')       &  '   /* heat exchange coefficient over sea  */')
449         CALL WRITE_0D_R8( VGUST, INDEX_NONE,'AIM_SFL:  VGUST =',         CALL WRITE_0D_RL( VGUST, INDEX_NONE,'AIM_SFL:  VGUST =',
450       &  '   /* wind speed [m/s] for sub-grid-scale gusts */')       &  '   /* wind speed [m/s] for sub-grid-scale gusts */')
451         CALL WRITE_0D_R8( CTDAY, INDEX_NONE,'AIM_SFL:  CTDAY =',         CALL WRITE_0D_RL( CTDAY, INDEX_NONE,'AIM_SFL:  CTDAY =',
452       &  '   /* daily-cycle correction (dTskin/dSSRad) */')       &  '   /* daily-cycle correction (dTskin/dSSRad) */')
453         CALL WRITE_0D_R8( DTHETA,INDEX_NONE,'AIM_SFL: DTHETA =',         CALL WRITE_0D_RL( DTHETA,INDEX_NONE,'AIM_SFL: DTHETA =',
454       &  '   /* Pot.Temp. gradient for stability correction */')       &  '   /* Pot.Temp. gradient for stability correction */')
455         CALL WRITE_0D_R8( dTstab,INDEX_NONE,'AIM_SFL: dTstab =',         CALL WRITE_0D_RL( dTstab,INDEX_NONE,'AIM_SFL: dTstab =',
456       &  '   /* Pot.Temp. increment for stab.funct. derivative */')       &  '   /* Pot.Temp. increment for stab.funct. derivative */')
457         CALL WRITE_0D_R8( FSTAB, INDEX_NONE,'AIM_SFL:  FSTAB =',         CALL WRITE_0D_RL( FSTAB, INDEX_NONE,'AIM_SFL:  FSTAB =',
458       &  '   /* Amplitude of stability correction (fract.) */')       &  '   /* Amplitude of stability correction (fract.) */')
459         CALL WRITE_0D_R8( HDRAG, INDEX_NONE,'AIM_SFL:  HDRAG =',         CALL WRITE_0D_RL( HDRAG, INDEX_NONE,'AIM_SFL:  HDRAG =',
460       &  '   /* Height scale for orographic correction */')       &  '   /* Height scale for orographic correction */')
461         CALL WRITE_0D_R8( FHDRAG,INDEX_NONE,'AIM_SFL: FHDRAG =',         CALL WRITE_0D_RL( FHDRAG,INDEX_NONE,'AIM_SFL: FHDRAG =',
462       &  '   /* Amplitude of orographic correction (fract.)*/')       &  '   /* Amplitude of orographic correction (fract.)*/')
463    
464  C- namelist AIM_PAR_CNV:  C- namelist AIM_PAR_CNV:
465         CALL WRITE_0D_R8( PSMIN, INDEX_NONE,'AIM_CNV:  PSMIN =',         CALL WRITE_0D_RL( PSMIN, INDEX_NONE,'AIM_CNV:  PSMIN =',
466       &  '   /* min norm.sfc.P. for occurrence of convect. */')       &  '   /* min norm.sfc.P. for occurrence of convect. */')
467         CALL WRITE_0D_R8( TRCNV, INDEX_NONE,'AIM_CNV:  TRCNV =',         CALL WRITE_0D_RL( TRCNV, INDEX_NONE,'AIM_CNV:  TRCNV =',
468       &  '   /* time of relaxation [h] towards ref state */')       &  '   /* time of relaxation [h] towards ref state */')
469         CALL WRITE_0D_R8( QBL,   INDEX_NONE,'AIM_CNV:    QBL =',         CALL WRITE_0D_RL( QBL,   INDEX_NONE,'AIM_CNV:    QBL =',
470       &  '   /* specific hum. threshold in the Bound.layer */')       &  '   /* specific hum. threshold in the Bound.layer */')
471         CALL WRITE_0D_R8( RHBL,  INDEX_NONE,'AIM_CNV:   RHBL =',         CALL WRITE_0D_RL( RHBL,  INDEX_NONE,'AIM_CNV:   RHBL =',
472       &  '   /* relative hum. threshold in the Bound.layer */')       &  '   /* relative hum. threshold in the Bound.layer */')
473         CALL WRITE_0D_R8( RHIL,  INDEX_NONE,'AIM_CNV:   RHIL =',         CALL WRITE_0D_RL( RHIL,  INDEX_NONE,'AIM_CNV:   RHIL =',
474       &  '   /* rel.hum. threshold (intern) for 2nd mass.Flx*/')       &  '   /* rel.hum. threshold (intern) for 2nd mass.Flx*/')
475         CALL WRITE_0D_R8( ENTMAX,INDEX_NONE,'AIM_CNV: ENTMAX =',         CALL WRITE_0D_RL( ENTMAX,INDEX_NONE,'AIM_CNV: ENTMAX =',
476       &  '   /* time of relaxation [h] towards neutral eq. */')       &  '   /* time of relaxation [h] towards neutral eq. */')
477         CALL WRITE_0D_R8( SMF,   INDEX_NONE,'AIM_CNV:    SMF =',         CALL WRITE_0D_RL( SMF,   INDEX_NONE,'AIM_CNV:    SMF =',
478       &  '   /* ratio 2ndary/primary mass.Flx at cloud-base*/')       &  '   /* ratio 2ndary/primary mass.Flx at cloud-base*/')
479    
480  C- namelist AIM_PAR_LSC:  C- namelist AIM_PAR_LSC:
481         CALL WRITE_0D_R8( TRLSC, INDEX_NONE,'AIM_LSC:  TRLSC =',         CALL WRITE_0D_RL( TRLSC, INDEX_NONE,'AIM_LSC:  TRLSC =',
482       &  '   /* relaxation time [h] for supersat. spec.hum. */')       &  '   /* relaxation time [h] for supersat. spec.hum. */')
483         CALL WRITE_0D_R8( RHLSC, INDEX_NONE,'AIM_LSC:  RHLSC =',         CALL WRITE_0D_RL( RHLSC, INDEX_NONE,'AIM_LSC:  RHLSC =',
484       &  '   /* Max rel.humidity threshold (at sigma=1) */')       &  '   /* Max rel.humidity threshold (at sigma=1) */')
485         CALL WRITE_0D_R8( DRHLSC,INDEX_NONE,'AIM_LSC: DRHLSC =',         CALL WRITE_0D_RL( DRHLSC,INDEX_NONE,'AIM_LSC: DRHLSC =',
486       &  '   /* Vertical range of rel.humidity threshold */')       &  '   /* Vertical range of rel.humidity threshold */')
487         CALL WRITE_0D_R8( QSMAX, INDEX_NONE,'AIM_LSC:  QSMAX =',         CALL WRITE_0D_RL( QSMAX, INDEX_NONE,'AIM_LSC:  QSMAX =',
488       &  '   /* Define the maximum latent heat release */')       &  '   /* Define the maximum latent heat release */')
489    
490  C- namelist AIM_PAR_RAD:  C- namelist AIM_PAR_RAD:
491         CALL WRITE_0D_R8( RHCL1, INDEX_NONE,'AIM_RAD:  RHCL1 =',         CALL WRITE_0D_RL( RHCL1, INDEX_NONE,'AIM_RAD:  RHCL1 =',
492       &  '   /*  rel.hum. corresponding to cloud cover = 0 */')       &  '   /*  rel.hum. corresponding to cloud cover = 0 */')
493         CALL WRITE_0D_R8( RHCL2, INDEX_NONE,'AIM_RAD:  RHCL2 =',         CALL WRITE_0D_RL( RHCL2, INDEX_NONE,'AIM_RAD:  RHCL2 =',
494       &  '   /*  rel.hum. corresponding to cloud cover = 1 */')       &  '   /*  rel.hum. corresponding to cloud cover = 1 */')
495         CALL WRITE_0D_R8( QACL1, INDEX_NONE,'AIM_RAD:  QACL1 =',         CALL WRITE_0D_RL( QACL1, INDEX_NONE,'AIM_RAD:  QACL1 =',
496       &  '   /* spec.hum. threshold for cloud, upper trop. */')       &  '   /* spec.hum. threshold for cloud, upper trop. */')
497         CALL WRITE_0D_R8( QACL2, INDEX_NONE,'AIM_RAD:  QACL2 =',         CALL WRITE_0D_RL( QACL2, INDEX_NONE,'AIM_RAD:  QACL2 =',
498       &  '   /* spec.hum. threshold for cloud, upper trop. */')       &  '   /* spec.hum. threshold for cloud, upper trop. */')
499         CALL WRITE_0D_R8( ALBCL, INDEX_NONE,'AIM_RAD:  ALBCL =',         CALL WRITE_0D_RL( ALBCL, INDEX_NONE,'AIM_RAD:  ALBCL =',
500       &  '   /*  cloud albedo (for cloud cover = 1) */')       &  '   /*  cloud albedo (for cloud cover = 1) */')
501         CALL WRITE_0D_R8( EPSSW, INDEX_NONE,'AIM_RAD:  EPSSW =',         CALL WRITE_0D_RL( EPSSW, INDEX_NONE,'AIM_RAD:  EPSSW =',
502       &  '   /*  fract. of inc.solar rad. absorbed by ozone */')       &  '   /*  fract. of inc.solar rad. absorbed by ozone */')
503         CALL WRITE_0D_R8( EPSLW, INDEX_NONE,'AIM_RAD:  EPSLW =',         CALL WRITE_0D_RL( EPSLW, INDEX_NONE,'AIM_RAD:  EPSLW =',
504       &  '   /*  fract. of sfc LW emitted directly to space */')       &  '   /*  fract. of sfc LW emitted directly to space */')
505         CALL WRITE_0D_R8( EMISFC,INDEX_NONE,'AIM_RAD: EMISFC =',         CALL WRITE_0D_RL( EMISFC,INDEX_NONE,'AIM_RAD: EMISFC =',
506       &  '   /*  longwave surface emissivity */')       &  '   /*  longwave surface emissivity */')
507    
508         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
509       &  ' AIM_RAD : ShortWave absorptivities (for dp = 10^5 Pa) :'       &  ' AIM_RAD : ShortWave absorptivities (for dp = 10^5 Pa) :'
510        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
511         CALL WRITE_0D_R8( ABSDRY,INDEX_NONE,'AIM_RAD: ABSDRY =',         CALL WRITE_0D_RL( ABSDRY,INDEX_NONE,'AIM_RAD: ABSDRY =',
512       &  '   /* abs. of dry air (visible band) */')       &  '   /* abs. of dry air (visible band) */')
513         CALL WRITE_0D_R8( ABSAER,INDEX_NONE,'AIM_RAD: ABSAER =',         CALL WRITE_0D_RL( ABSAER,INDEX_NONE,'AIM_RAD: ABSAER =',
514       &  '   /* abs. of aerosols (visible band) */')       &  '   /* abs. of aerosols (visible band) */')
515         CALL WRITE_0D_R8( ABSWV1,INDEX_NONE,'AIM_RAD: ABSWV1 =',         CALL WRITE_0D_RL( ABSWV1,INDEX_NONE,'AIM_RAD: ABSWV1 =',
516       &  '   /* abs. of water vap. (vis. band)(/dq, 1g/kg) */')       &  '   /* abs. of water vap. (vis. band)(/dq, 1g/kg) */')
517         CALL WRITE_0D_R8( ABSWV2,INDEX_NONE,'AIM_RAD: ABSWV2 =',         CALL WRITE_0D_RL( ABSWV2,INDEX_NONE,'AIM_RAD: ABSWV2 =',
518       &  '   /* abs. of water vap.(near IR bd)(/dq, 1g/kg) */')       &  '   /* abs. of water vap.(near IR bd)(/dq, 1g/kg) */')
519         CALL WRITE_0D_R8( ABSCL1,INDEX_NONE,'AIM_RAD: ABSCL1 =',         CALL WRITE_0D_RL( ABSCL1,INDEX_NONE,'AIM_RAD: ABSCL1 =',
520       &  '   /* abs. of clouds (vis.band)(constant term) */')       &  '   /* abs. of clouds (vis.band)(constant term) */')
521         CALL WRITE_0D_R8( ABSCL2,INDEX_NONE,'AIM_RAD: ABSCL2 =',         CALL WRITE_0D_RL( ABSCL2,INDEX_NONE,'AIM_RAD: ABSCL2 =',
522       &  '   /* abs. of clouds (vis.band) (/dw, 1g/kg) */')       &  '   /* abs. of clouds (vis.band) (/dw, 1g/kg) */')
523    
524         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
525       &  ' AIM_RAD : LongWave absorptivities (per dp = 10^5 Pa) :'       &  ' AIM_RAD : LongWave absorptivities (per dp = 10^5 Pa) :'
526         CALL WRITE_0D_R8( ABLWIN,INDEX_NONE,'AIM_RAD: ABLWIN =',         CALL WRITE_0D_RL( ABLWIN,INDEX_NONE,'AIM_RAD: ABLWIN =',
527       &  '   /* abs. of air in "window" band */')       &  '   /* abs. of air in "window" band */')
528         CALL WRITE_0D_R8( ABLCO2,INDEX_NONE,'AIM_RAD: ABLCO2 =',         CALL WRITE_0D_RL( ABLCO2,INDEX_NONE,'AIM_RAD: ABLCO2 =',
529       &  '   /* abs. of air in CO2 band */')       &  '   /* abs. of air in CO2 band */')
530         CALL WRITE_0D_R8( ABLWV1,INDEX_NONE,'AIM_RAD: ABLWV1 =',         CALL WRITE_0D_RL( ABLWV1,INDEX_NONE,'AIM_RAD: ABLWV1 =',
531       &  '   /* abs. of Water vap. H2O bd-1(weak)(/dq,1g/kg)*/')       &  '   /* abs. of Water vap. H2O bd-1(weak)(/dq,1g/kg)*/')
532         CALL WRITE_0D_R8( ABLWV2,INDEX_NONE,'AIM_RAD: ABLWV2 =',         CALL WRITE_0D_RL( ABLWV2,INDEX_NONE,'AIM_RAD: ABLWV2 =',
533       &  '   /* abs. of W. vap., H2O bd-2(strong)(/dq,1g/kg)*/')       &  '   /* abs. of W. vap., H2O bd-2(strong)(/dq,1g/kg)*/')
534         CALL WRITE_0D_R8( ABLCL1,INDEX_NONE,'AIM_RAD: ABLCL1 =',         CALL WRITE_0D_RL( ABLCL1,INDEX_NONE,'AIM_RAD: ABLCL1 =',
535       &  '   /* abs. of clouds in window band (const term) */')       &  '   /* abs. of clouds in window band (const term) */')
536         CALL WRITE_0D_R8( ABLCL2,INDEX_NONE,'AIM_RAD: ABLCL2 =',         CALL WRITE_0D_RL( ABLCL2,INDEX_NONE,'AIM_RAD: ABLCL2 =',
537       &  '   /* abs. of clouds in window band (/dw, 1g/kg) */')       &  '   /* abs. of clouds in window band (/dw, 1g/kg) */')
538    
539  C- namelist AIM_PAR_VDI:  C- namelist AIM_PAR_VDI:
540         CALL WRITE_0D_R8( TRSHC, INDEX_NONE,'AIM_VDI:  TRSHC =',         CALL WRITE_0D_RL( TRSHC, INDEX_NONE,'AIM_VDI:  TRSHC =',
541       &  '   /* relaxation time [h] for shallow convection */')       &  '   /* relaxation time [h] for shallow convection */')
542         CALL WRITE_0D_R8( TRVDI, INDEX_NONE,'AIM_VDI:  TRVDI =',         CALL WRITE_0D_RL( TRVDI, INDEX_NONE,'AIM_VDI:  TRVDI =',
543       &  '   /* relaxation time [h] for moisture diffusion */')       &  '   /* relaxation time [h] for moisture diffusion */')
544         CALL WRITE_0D_R8( TRVDS, INDEX_NONE,'AIM_VDI:  TRVDS =',         CALL WRITE_0D_RL( TRVDS, INDEX_NONE,'AIM_VDI:  TRVDS =',
545       &  '   /* relaxation time [h] for super-adiab. cond. */')       &  '   /* relaxation time [h] for super-adiab. cond. */')
546         CALL WRITE_0D_R8( RHGRAD,INDEX_NONE,'AIM_VDI: RHGRAD =',         CALL WRITE_0D_RL( RHGRAD,INDEX_NONE,'AIM_VDI: RHGRAD =',
547       &  '   /* max gradient of rel.humidity (d_RH/d_sigma)*/')       &  '   /* max gradient of rel.humidity (d_RH/d_sigma)*/')
548         CALL WRITE_0D_R8( RHGRAD,INDEX_NONE,'AIM_VDI: RHGRAD =',         CALL WRITE_0D_RL( SEGRAD,INDEX_NONE,'AIM_VDI: SEGRAD =',
549       &  '   /* max grad. of dry static Energy(d_DSE/d_phi)*/')       &  '   /* max grad. of dry static Energy(d_DSE/d_phi)*/')
550    
551  #ifdef ALLOW_AIM_CO2  #ifdef ALLOW_AIM_CO2
# Line 553  C- namelist AIM_PAR_CO2: Line 553  C- namelist AIM_PAR_CO2:
553         CALL WRITE_0D_I( Aim_CO2_Flag, INDEX_NONE,         CALL WRITE_0D_I( Aim_CO2_Flag, INDEX_NONE,
554       &                 'AIM_PAR_CO2: Aim_CO2_Flag =',       &                 'AIM_PAR_CO2: Aim_CO2_Flag =',
555       &  ' /* CO2 flag, 1: prescribed, 2: interactive  */')       &  ' /* CO2 flag, 1: prescribed, 2: interactive  */')
556         CALL WRITE_0D_R8( atm_pCO2,    INDEX_NONE,         CALL WRITE_0D_RL( atm_pCO2,    INDEX_NONE,
557       &                 'AIM_PAR_CO2: atm_pCO2 =',       &                 'AIM_PAR_CO2: atm_pCO2 =',
558       &  ' /* pCO2 when prescribed or IC when interactive */')       &  ' /* pCO2 when prescribed or IC when interactive */')
559  #endif  #endif
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22