Changeset 253 for trunk


Ignore:
Timestamp:
Aug 2, 2011, 11:13:07 AM (13 years ago)
Author:
emillour
Message:

Generic GCM

  • Massive update to version 0.7

EM+RW

Location:
trunk/LMDZ.GENERIC
Files:
42 added
21 deleted
79 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/README

    r135 r253  
    400400
    401401== 31/03/2010 ==
    402 ==> call this version LMDZ.GENERIC.v0.5 
     402==> call this version LMDZ.GENERIC.v0.5
    403403-- OLR --
    404404   The .nc functions were implemented and tested. It was necessary to add
    … …  
    441441   major change, but there are enough cases where it will be useful to
    442442   make it worthwhile in the universal code. I have done the same with rcp.
     443
     444== 10/10/2010 ==
     445==> call this version LMDZ.GENERIC.v0.6
     446-- startup --
     447   We now check water tracers exist in newstart.F before all watery initialisation options.
     448   Added an option 'autozlevs' to run.def (and logic.h). When true this recalculates the scale
     449   height in z2sig.def in order to get the same minimum pressure for any resolution.
     450   Currently, this is only useful for one-d simulations.
     451   Pressure is now distributed better in newstart.F. There was a bug before when the global mean of phi
     452   was not equal to zero and the surface pressure was changed with topography still present.
     453   In initracer, we no longer automatically set h2o_vap=h2o_ice.   
     454
     455-- general --
     456   periheli, apheli --> periastr, apoastr. Note this necessitates a change in start_planet too.
     457   testphys1d.F --> rcm1d.F
     458   physiq.F, callcorrk.F upgraded to Fortran 90 to remove evil zerophys.
     459   I cleaned up the method of displaying energy balance and temperature range in the model a bit.
     460   Pure H2 atmospheres are now permitted, although the code is _untested_. Rayleigh scattering,
     461   specific heat capacities and molar masses are varied, and the H2-H2 collision-induced data
     462   of Grushka et al. is used for the radiative transfer.
     463
     464-- boundary layer --
     465   An improved version of vdifc.F has been created that includes the latent heat effect of water vapor,
     466   following the method used in 'clmain' in the LMDZ terrestrial model.
     467
     468-- water cycle --
     469   Benjamin's improvements have been added, namely the hydrology, and reevaporation.
     470   Variable cloud fractions are allowed, or a global fixed value may be chosen
     471   for use in aeropacity. Surface wetness (beta) is now calculated in a simple way, and
     472   outputed as a diagnostic, along with the atmospheric relative humidity.
     473 
     474   mol/mol to kg/kg bug in callcorrk corrected.
     475
     476-- radiative transfer --
     477   A major bug in gfluxv.F was corrected. It involved BSURF, the radiation reflected upwards from
     478   the ground.
     479   In aeropacity, we now set the cloud opacity in the top layer of the atmosphere to zero. This solves
     480   an instability problem that was occurring when CO2 clouds formed.
     481   Dust is back! Only fixed profiles allowed for now. It is assigned "naerkind=3" in aeropacity.F90.
     482   If 'CLFvarying' is enabled, the corrk subroutine is now called twice per timestep - once for clear
     483   skies and once for cloudy. This slows things down but is effective for Earth-like simulations.
     484   An optional Newtonian cooling scheme has been implemented that can replace the correlated-k method
     485   for dynamical tests etc. It is pretty experimental and has not been extensively tested.
     486
     487-- Dynamics --
     488   callgroupeun in gcm.F has been set to FALSE, as it does not conserve tracers.
     489   The coefficient facup has been set to 1 in inidissip.F. We may need to mess
     490   with this later if it makes the model too unstable.
     491
     492== 1/08/2011 ==
     493==> call this version LMDZ.GENERIC.v0.7
     494
     495   Main change: a new file 'gases.def' now required at startup. This tells us which gases are in
     496   the planet's atmosphere. It is used to calculate fundamental quantities like cpp and mugaz.
     497   A check is made against the radiative transfer data to make sure they correspond.
     498
     499   Code has been tested successfully using the 'gfortran compiler'.
     500
     501-- startup --
     502   a bug involving tsoil interpolation in lect_start_archive.F was corrected.   
     503
     504-- aerosols --
     505   gauss integration number 5-->10 in aeroptproperties.F90
     506
     507-- water cycle --
     508   Big fat bug in rain.F90 corrected. The routine internally updated the temperature
     509   with new tendencies before it was supposed to happen!
     510   Bug in oborealis where phi not properly updated was corrected.
     511   Improvements to hydrol.F90: zdtsurf_hyd --> pdtsurf_hyd
     512   A 'sourceevol' option was added (accessed in callphys.def) that allows us to track the
     513   evolution of the surface distribution over time.
     514   Another bug in rain corrected involving evaporation - it was heating the atmosphere
     515   rather than cooling it...
     516
     517-- convection --
     518   I found a bug in convadj.F that breaks tracer conservation when convection stops at one layer
     519   and immediately restarts in the next one.
     520
     521-- diagnostics --
     522   Some bugs corrected in the computation of 3D averages for the H2O / energy conservation
     523   diagnostics.
     524
     525-- radiative transfer --
     526   A bug involving continuum opacities (variable DCONT) was corrected in optci.F90 and optcv.F0.
     527   H2-H2 warming now in theory reliable and correct (60-1000 K).
     528   A bug involving the definition of the Planck function boundaries was corrected in sfluxi.F90
     529   and gfluxi.F.

  • trunk/LMDZ.GENERIC/deftank/autospinup

    r135 r253  
    1 #!/bin/bash
     1# @ job_name=gcm_3D
     2# @ output = $(job_name).$(jobid)
     3# @ error = $(output)
     4# @ job_type = serial
     5# @ class = D
     6# @ queue
    27
    3 #DEF_DIR=/san/home/rdword/gcm/spinups
    4 DEF_DIR=/u/rwlmd/spinups/
     8#grep "^# @" $0
     9#set -vx
     10#
    511
    6 #makegcm -d 32x24x20 -b 32x36 -t 2 -p std gcm
    7 #makegcm -d 32x24x20 -b 32x36 -t 2 -p std newstart
    8 
    9 newstart.e < start_earth
     12cp -f run_spinup.def run.def
     13newstart.e < start_earlymars
    1014startrestart
    1115
    12 echo "Starting short GCM spinup run #1..."
    13 cp -f $DEF_DIR/run1.def run.def
    14 gcm.e > lruns1
    15 startrestart
    16 
    17 echo "Starting short GCM spinup run #2..."
    18 cp -f $DEF_DIR/run2.def run.def
    19 gcm.e > lruns2
    20 startrestart
    21 
    22 echo "Finishing GCM spinup year..."
    23 cp -f $DEF_DIR/run_1styr_earth.def run.def
    24 gcm.e > lrun0
     16echo "Starting GCM spinup year..."
     17gcm.e
    2518startrestart0
    2619
    27 exit 0
     20echo "Running for multiple years to reach equilibrium."
     21cp -f run_normal.def run.def
     22run0
    2823
    29 # run for many years to reach equilibrium
    30 #cp -f run_1yr_earth.def run.def
    31 #rm -f num_run
    32 #run0
    33 
    34 # start the final 1-yr run with intensive OLR save
    35 #cp -f run_1yr_earth_OLR.def run.def
    36 #run_OLR

  • trunk/LMDZ.GENERIC/deftank/callphys.earlymars

    r135 r253  
    44tracer    = .true.
    55# Diurnal cycle ?  if diurnal=false, diurnally averaged solar heating
    6 diurnal   = .false.
     6diurnal   = .true.
    77# Seasonal cycle ? if season=false, Ls stays constant, to value set in "start"
    88season    = .true.
    … …  
    1414lwrite    = .false.
    1515# Save statistics in file "stats.nc" ?
    16 callstats = .false.
     16callstats = .true.
    1717# Test energy conservation of model physics ?
    1818enertest  = .false.
    … …  
    3535# This is used only in the aerosol radiative transfer setup. (see aerave.F)
    3636tplanet    = 215.
    37 # Output spectral OLR in 3D?
     37# Output spectral OLR in 1D/3D?
    3838specOLR    = .false.
    39 # Output global radiative balance in file 'olr.txt' - slow for 1D!!
    40 meanOLR    = .false.
     39# Output global radiative balance in file 'rad_bal.out' - slow for 1D!!
     40meanOLR    = .true.
    4141# Variable gas species: Radiatively active ?
    42 varactive  = .false.
     42varactive  = .true.
    4343# Variable gas species: Fixed vertical distribution ?
    44 varfixed   = .true.
     44varfixed   = .false.
    4545# Variable gas species: Saturation percentage value at ground ?
    46 satval     = 0.8
     46satval     = 0.0
    4747
    4848## Star type
    … …  
    5858# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    5959# Stellar flux at 1 AU. Examples:
    60 # 1356.0 W m-2          Sol today
    61 # 1017.0 W m-2          Sol today x 0.75 = weak early Sun
    62 # 18.462 W m-2          The feeble Gl581
    63 Fat1AU = 1017.0
     60# 1366.0 W m-2          Sol today
     61# 1024.5 W m-2          Sol today x 0.75 = weak Sun 3.8 GYa
     62# 18.462 W m-2          The feeble GJ581
     63# 19.960 W m-2          GJ581 with e=0.38 orbital average
     64Fat1AU = 1024.5
    6465
    6566## Tracer and aerosol options
    … …  
    7879
    7980#########################################################################
    80 ## extra non-standard definitions for Earth / Early Mars
     81## extra non-standard definitions for Gliese 581d
    8182#########################################################################
    82  
    83 ## Radiative transfer options
    84 ## ~~~~~~~~~~~~~~~~~~~~~~~~~~
    85 # Parameterized Earth-like ozone absorption ?
    86 ozone         = .false.
    8783
    8884## Tracer and aerosol options
    8985## ~~~~~~~~~~~~~~~~~~~~~~~~~~
    9086# Fixed aerosol distributions?
    91 aerofixed     = .true.
     87aerofixed     = .false.
     88# Varying H2O cloud fraction?
     89CLFvarying    = .false.
     90# H2O cloud fraction?
     91CLFfixval     = 0.5
    9292# number mixing ratio of CO2 ice particles
    9393Nmix_co2      = 100000.
    … …  
    105105# WATER: Precipitation threshold (simple scheme only) ?
    106106rainthreshold = 0.011
     107# WATER: hydrology ?
     108hydrology     = .true.
    107109
    108110## CO2 options
    … …  
    114116# Set initial temperature profile to 1 K above CO2 condensation everywhere?
    115117nearco2cond   = .false.
     118
     119## N2 options
     120## ~~~~~~~~~~
     121# include N2 in cp and Rayleigh scattering calculation ?
     122addn2 = .false.
     123# N2 mixing ratio
     124n2mixratio = 0.0
     125
     126## H2 options
     127## ~~~~~~~~~~
     128# include H2 in cp and Rayleigh scattering calculation ?
     129# for now we assume H2 dominant if included
     130addh2 = .false.

  • trunk/LMDZ.GENERIC/deftank/callphys.earth

    r135 r253  
    2323callrad    = .true.
    2424# the rad. transfer is computed every "iradia" physical timestep
    25 iradia     = 4
     25iradia     = 6
    2626# call multilayer correlated-k radiative transfer ?
    2727corrk      = .true.
    2828# folder in which correlated-k data is stored ?
    29 corrkdir   = earth
     29corrkdir   = N2CO2poor_H2Ovar
    3030# call visible gaseous absorption in radiative transfer ?
    3131callgasvis = .true.
    … …  
    3737# Output spectral OLR in 3D?
    3838specOLR    = .false.
    39 # Output global radiative balance in file 'olr.txt' - slow for 1D!!
    40 meanOLR    = .false.
     39# Output global radiative balance in file 'rad_bal.out' - slow for 1D!!
     40meanOLR    = .true.
    4141# Variable gas species: Radiatively active ?
    42 varactive  = .false.
     42varactive  = .true.
    4343# Variable gas species: Fixed vertical distribution ?
    44 varfixed   = .true.
     44varfixed   = .false.
    4545# Variable gas species: Saturation percentage value at ground ?
    46 satval     = 0.8
     46satval     = 0.0
    4747
    4848## Star type
    … …  
    5858# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    5959# Stellar flux at 1 AU. Examples:
    60 # 1356.0 W m-2          Sol today
    61 # 1017.0 W m-2          Sol today x 0.75 = weak early Sun
     60# 1366.0 W m-2          Sol today
     61# 1024.5 W m-2          Sol today x 0.75 = weak early Sun
    6262# 18.462 W m-2          The feeble Gl581
    63 Fat1AU = 1356.0
     63Fat1AU = 1366.0
    6464
    6565## Tracer and aerosol options
    … …  
    7878
    7979#########################################################################
    80 ## extra non-standard definitions for Earth / Early Mars
     80## extra non-standard definitions for Earth
    8181#########################################################################
    8282 
    83 ## Radiative transfer options
    84 ## ~~~~~~~~~~~~~~~~~~~~~~~~~~
    85 # Parameterized Earth-like ozone absorption ?
    86 ozone         = .false.
    87 
    8883## Tracer and aerosol options
    8984## ~~~~~~~~~~~~~~~~~~~~~~~~~~
    9085# Fixed aerosol distributions?
    91 aerofixed     = .true.
     86aerofixed     = .false.
     87# Varying H2O cloud fraction?
     88CLFvarying    = .true.
     89# H2O cloud fraction if fixed?
     90CLFfixval     = 0.5
    9291# number mixing ratio of CO2 ice particles
    9392Nmix_co2      = 100000.
    … …  
    105104# WATER: Precipitation threshold (simple scheme only) ?
    106105rainthreshold = 0.011
     106# WATER: hydrology ?
     107hydrology     = .true.
    107108
    108109## CO2 options
    … …  
    114115# Set initial temperature profile to 1 K above CO2 condensation everywhere?
    115116nearco2cond   = .false.
     117
     118## N2 options
     119## ~~~~~~~~~~
     120# include N2 in cp and Rayleigh scattering calculation ?
     121addn2 = .false.
     122# N2 mixing ratio
     123n2mixratio = 0.0
     124
     125## H2 options
     126## ~~~~~~~~~~
     127# include H2 in cp and Rayleigh scattering calculation ?
     128# for now we assume H2 dominant if included
     129addh2 = .false.

  • trunk/LMDZ.GENERIC/deftank/run0

    r135 r253  
    44# SET HERE the maximum total number of simulations
    55
    6 set nummax=2
     6set nummax=5
    77
    88###########################################################################
    … …  
    4949
    5050# Run GCM
    51 nice gcm.e >! lrun${numnew}
     51gcm.e >! lrun${numnew}
    5252
    5353
    … …  
    6666  endif
    6767 echo 99999 >! num_run
    68 ############## To receive an Email message if the run crashes ########
    69 mail -s "crash run GCM" $address <<ENDMAIL
    70 The run on $machine in $dir has just crashed.
    71 ENDMAIL
     68############## To receive an email message if the run crashes ########
     69#mail -s "crash run GCM" $address <<ENDMAIL
     70#The run on $machine in $dir has just crashed.
     71#ENDMAIL
    7272############################################""
    7373 exit
    … …  
    7777if ( -f diagfi.nc ) then
    7878  \mv -f diagfi.nc diagfi${numnew}.nc
     79endif
     80if ( -f diagspec.nc ) then
     81  \mv -f diagspec.nc diagspec${numnew}.nc
    7982endif
    8083if ( -f diagsoil.nc ) then
    … …  
    9598
    9699if ( -f rad_bal.out ) then
    97     mv rad_bal.out radbal${numnew}
     100    mv rad_bal.out rad_bal${numnew}.out
    98101endif
    99102
     103if ( -f h2o_bal.out ) then
     104    mv h2o_bal.out h2o_bal${numnew}.out
     105endif
    100106
    101107# If we are over nummax : stop

  • trunk/LMDZ.GENERIC/deftank/run1d.earlymars

    r135 r253  
    11#
    22#-----------------------------------------------------------------------
    3 # Run parameters for the 1D 'testphys1d.e' model                                         
     3# Run parameters for the 1D 'rcm1d.e' model                                         
    44#-----------------------------------------------------------------------                                         
    55

  • trunk/LMDZ.GENERIC/deftank/run1d.earth

    r135 r253  
    11#
    22#-----------------------------------------------------------------------
    3 # Run parameters for the 1D 'testphys1d.e' model                                         
     3# Run parameters for the 1D 'rcm1d.e' model                                         
    44#-----------------------------------------------------------------------                                         
    55
    … …  
    1111time=0
    1212# Number of time steps per sol
    13 day_step=48
     13day_step=24
    1414# Number of sols to run
    15 ndt=2000
     15ndt =2000
    1616
    1717#### Physical parameters
    … …  
    2323# Molar mass of atmosphere (g)
    2424mugaz=28.97
    25 # Specific heat capacity of atmosphere (J kg-1 K-1)
     25# Specific heat capacity of atmosphere?
    2626cpp=1003.0
    2727# latitude (in degrees)
    2828latitude=60.0
    2929# orbital distance at perihelion (AU)
    30 periheli=1.0
     30periastr=1.0
    3131# orbital distance at aphelion (AU)
    32 aphelie=1.0
     32apoastr=1.0
    3333# obliquity (degrees)
    3434obliquit=0.0
    3535
    3636# Albedo of bare ground
    37 albedo=0.1
     37albedo=0.16
    3838# Emissivity of bare ground
    3939emis=1.0
    … …  
    4848# hybrid vertical coordinate ? (.true. for hybrid and .false. for sigma levels)
    4949hybrid=.false.
    50 
     50# autocompute vertical discretisation? (useful for exoplanet runs)
     51autozlevs=.true.
    5152
    5253###### Initial atmospheric temperature profile
    … …  
    7374hauteur=30.
    7475
    75 
    7676# some definitions for the physics, in file 'callphys.def'
    7777INCLUDEDEF=callphys.def

  • trunk/LMDZ.GENERIC/deftank/start_earlymars

    r135 r253  
    77peri_day
    880.0
    9 periheli
     9periastr
    1010227.9
    11 aphelie
     11apoastr
    1212227.9
    1313year_day
    … …  
    2525daysec
    262688775.00
     27albedice
     280.5
     290.5
    2730
    2831surface_mars.nc
    … …  
    3235250
    3336ptot
    34 200000.0
     37500000.0
    3538y
    3639n
    … …  
    38411.0
    3942isotherm
    40 260
     43260.0
    4144co2ice=0
    4245q=0
    43 watercapn
    44 watercaps
     46oborealis
    4547
    4648exit 0

  • trunk/LMDZ.GENERIC/deftank/start_earth

    r135 r253  
    77peri_day
    880.0
    9 periheli
     9periastr
    1010149.0
    11 aphelie
     11apoastr
    1212149.0
    1313year_day
    1414365
     15rad
     166378137.0
    1517omeg
    16187.2722E-05
    … …  
    2628surface_earth.nc
    27290
    28 bilball
    29 0.1
    30 250
    3130ptot
    3231101325.0
    … …  
    3433y
    3534101325.0
    36 emis
    37 1.0
    38 isotherm
    39 300
     35radequi
    4036q=0
    41 watercapn
    42 watercaps
    4337
    4438exit 0

  • trunk/LMDZ.GENERIC/deftank/z2sig.earth

    r135 r253  
    2020   3.6962495e+01
    2121   4.0453872e+01
     22   45
     23   50
     24   55
     25   60
     26   65
     27   70
     28   80
     29   90

  • trunk/LMDZ.GENERIC/deftank/z2sig.mars

    r135 r253  
    1 10.00000     H: atmospheric scale height (km) (used as a reference only)
    2 0.0040       Typical pseudo-altitude (m) for 1st layer (z=H*log(sigma))
     18.00000     H: atmospheric scale height (km) (used as a reference only)
    320.018       ,, ,,  ,, ,, ,, ,,  ,, ,, ,,  2nd layer, etc...
    430.0400

  • trunk/LMDZ.GENERIC/libf/dyn3d/addfi.F

    r135 r253  
    135135c     ENDDO
    136136
     137! increment tracers
    137138      DO iq = 1, nq
    138139         DO k = 1,llm
    139140            DO j = 1,ip1jmp1
     141!               pq(j,k,iq)=  pdqfi(j,k,iq) * pdt
    140142               pq(j,k,iq)= pq(j,k,iq) + pdqfi(j,k,iq) * pdt
    141                pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestt )
     143               pq(j,k,iq)= AMAX1( pq(j,k,iq), qtestt ) ! forbid negative tracer values
    142144            ENDDO
    143145         ENDDO
    144146      ENDDO
     147!      print*,'MAJOR TRACER MOD in addfi for test'
    145148                                       
    146149

  • trunk/LMDZ.GENERIC/libf/dyn3d/disvert.F

    r135 r253  
    11      SUBROUTINE disvert
     2
     3! to use  'getin'
     4      USE ioipsl_getincom
    25
    36c    Auteur :  F. Forget Y. Wanherdrick, P. Levan
    … …  
    1114#include "comconst.h"
    1215#include "logic.h"
     16
     17#include "callkeys.h"
     18
     19
    1320c
    1421c=======================================================================
    … …  
    2633      REAL zsig(llm)
    2734      INTEGER np,ierr
    28       integer :: ierr1,ierr2,ierr3,ierr4
     35      integer :: ierr1,ierr2,ierr3,ierr4 
    2936      REAL x
    3037
    … …  
    3946      real z, ps,p
    4047
     48
     49      real psurf, hmax ! for autozlevs
     50
    4151c
    4252c-----------------------------------------------------------------------
    … …  
    4454      pi=2.*ASIN(1.)
    4555
    46 ! Ouverture possible de fichiers typiquement E.T.
    47 
    48          open(99,file="esasig.def",status='old',form='formatted',
    49      s   iostat=ierr2)
    50          if(ierr2.ne.0) then
    51               close(99)
    52               open(99,file="z2sig.def",status='old',form='formatted',
    53      s        iostat=ierr4)
    54          endif
    55 
    56 c-----------------------------------------------------------------------
    57 c   cas 1 on lit les options dans esasig.def:
    58 c   ----------------------------------------
    59 
    60       IF(ierr2.eq.0) then
    61 
    62 c        Lecture de esasig.def :
    63 c        Systeme peu souple, mais qui respecte en theorie
    64 c        La conservation de l'energie (conversion Energie potentielle
    65 c        <-> energie cinetique, d'apres la note de Frederic Hourdin...
    66 
    67          PRINT*,'*****************************'
    68          PRINT*,'WARNING Lecture de esasig.def'
    69          PRINT*,'*****************************'
    70          READ(99,*) h
    71          READ(99,*) dz0
    72          READ(99,*) dz1
    73          READ(99,*) nhaut
    74          CLOSE(99)
    75 
    76          dz0=dz0/h
    77          dz1=dz1/h
    78 
    79          sig1=(1.-dz1)/tanh(.5*(llm-1)/nhaut)
    80 
    81          esig=1.
    82 
    83          do l=1,20
    84             esig=-log((1./sig1-1.)*exp(-dz0)/esig)/(llm-1.)
    85          enddo
    86          csig=(1./sig1-1.)/(exp(esig)-1.)
    87 
    88          DO L = 2, llm
    89             zz=csig*(exp(esig*(l-1.))-1.)
    90             sig(l) =1./(1.+zz)
    91      &      * tanh(.5*(llm+1-l)/nhaut)
    92          ENDDO
    93          sig(1)=1.
    94          sig(llm+1)=0.
    95          quoi      = 1. + 2.* kappa
    96          s( llm )  = 1.
    97          s(llm-1) = quoi
    98          IF( llm.gt.2 )  THEN
    99             DO  ll = 2, llm-1
    100                l         = llm+1 - ll
    101                quand     = sig(l+1)/ sig(l)
    102                s(l-1)    = quoi * (1.-quand) * s(l)  + quand * s(l+1)
    103             ENDDO
    104          END IF
    105 c
    106          snorm=(1.-.5*sig(2)+kappa*(1.-sig(2)))*s(1)+.5*sig(2)*s(2)
    107          DO l = 1, llm
    108             s(l)    = s(l)/ snorm
    109          ENDDO
    110 
    111 c-----------------------------------------------------------------------
    112 c   cas 2 on lit les options dans z2sig.def:
    113 c   ----------------------------------------
    114 
    115       ELSE IF(ierr4.eq.0) then
     56      open(99,file="z2sig.def",status='old',form='formatted',
     57     s     iostat=ierr4)
     58
     59
     60      autozlevs=.false.
     61      PRINT *,'Auto-discretise vertical levels ?'
     62      call getin("autozlevs",autozlevs)
     63      write(*,*) " autozlevs = ", autozlevs
     64
     65      write(*,*)"Operate in kastprof mode?"
     66      kastprof=.false.
     67      call getin("kastprof",kastprof)
     68      write(*,*)" kastprof = ",kastprof
     69
     70      print*,'kast=',kastprof
     71
     72      pceil=100.0 ! Pascals
     73      PRINT *,'Ceiling pressure (Pa) ?'
     74      call getin("pceil",pceil)
     75      write(*,*) " pceil = ", pceil
     76
     77      if(autozlevs.and.iim.gt.1)then
     78         print*,'autozlevs no good in 3D...'
     79         call abort
     80      endif
     81
     82      if(kastprof.and.iim.gt.1)then
     83         print*,'kastprof no good in 3D...'
     84         call abort
     85      endif
     86
     87      psurf=610. ! default value for psurf
     88      PRINT *,'Surface pressure (Pa) ?'
     89      call getin("psurf",psurf)
     90      write(*,*) " psurf = ",psurf
     91
     92      if(kastprof)then
     93
     94        sig(1)=1
     95        do l=2,llm
     96                                !sig(l)=1. - real(l-1)/real(llm) ! uses linear sigma spacing
     97                                !sig(l)=exp(-real(l-1)*h/real(llm)) ! uses log sigma spacing
     98                                !sig(l)=exp(-real(l-1)*Hmax/real(llm)) ! uses log sigma spacing
     99           sig(l)=(pceil/psurf)**(real(l-1)/real(llm)) ! uses log sigma spacing
     100           
     101        end do
     102        sig(llm+1)=0
     103
     104      elseIF(ierr4.eq.0)then
    116105         PRINT*,'****************************'
    117106         PRINT*,'Lecture de z2sig.def'
    … …  
    124113         CLOSE(99)
    125114
    126          sig(1) =1
    127          do l=2,llm
     115
     116         if(autozlevs)then
     117            open(91,file="z2sig.def",form='formatted')
     118            read(91,*) h
     119            DO l=1,llm-2
     120               read(91,*) Hmax
     121            enddo
     122            close(91)
     123
     124            print*,'Hmax = ',Hmax,' km'
     125            print*,'Auto-shifting h in disvert.F to:'
     126!            h = Hmax / log(psurf/100.0)
     127            h = Hmax / log(psurf/pceil)
     128            print*,'h = ',h,' km'
     129        endif
     130       
     131        sig(1)=1
     132        do l=2,llm
    128133           sig(l) = 0.5 * ( exp(-zsig(l)/h) + exp(-zsig(l-1)/h) )
    129          end do
    130          sig(llm+1) =0
     134        end do
     135        sig(llm+1)=0
    131136
    132137c-----------------------------------------------------------------------
    133138      ELSE
    134          write(*,*) 'didn t you forget something ??? '
    135          write(*,*) 'We need the file  z2sig.def ! (OR esasig.def) '
     139         write(*,*) 'didn_t you forget something?'
     140         write(*,*) 'We need the file  z2sig.def!'! (OR esasig.def) '
    136141         stop
    137142      ENDIF
    … …  
    206211      else
    207212         bps(llm) = bps(llm-1)**2 / bps(llm-2)
    208          aps(llm) = 0.
     213         aps(llm) = 0. ! what the hell is this???
    209214      end if
    210215
    … …  
    213218      PRINT *,' APs'
    214219      PRINT *,  aps
     220
    215221
    216222      DO l = 1, llm

  • trunk/LMDZ.GENERIC/libf/dyn3d/dynetat0.F

    r135 r253  
    5151      INTEGER ierr, nid, nvarid, nqold
    5252      CHARACTER  str3*3,yes*1
     53
     54
     55!     added by RW for test
     56      real pmean,airetot
     57      integer ij
    5358
    5459c-----------------------------------------------------------------------
    … …  
    421426     *rrage est differente de la valeur  dtinteg =',i4//)
    422427
     428
     429
     430
     431
     432
    423433      RETURN
    424434      END

  • trunk/LMDZ.GENERIC/libf/dyn3d/gcm.F

    r135 r253  
    132132! flag to set/remove calls to groupeun
    133133      logical callgroupeun
    134       parameter (callgroupeun = .true.)
     134      parameter (callgroupeun = .false.)
    135135
    136136!     added by RDW for tests without dynamics
    … …  
    138138      parameter (calldyn = .true.)
    139139
     140!     added by RW for test
     141!      real pmean,airetot
     142
     143!     added by FF for dissipation / energy conservation tests
     144      logical dissip_conservative
     145      parameter (dissip_conservative = .false.)
     146      REAL ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm)
     147!     d (theta)/ d t (pot. temperature) due to the creation
     148!     of thermal energy by dissipation
     149      REAL dtetaecdt(ip1jmp1,llm)
     150      REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm)
     151      REAL vnat(ip1jm,llm),unat(ip1jmp1,llm)
     152
    140153
    141154c-----------------------------------------------------------------------
    … …  
    151164      CALL iniadvtrac(nq,numvanle)
    152165
     166
    153167      CALL dynetat0("start.nc",nqmx,vcov,ucov,
    154168     .              teta,q,masse,ps,phis, time_0)
    155169
    156170      CALL defrun_new( 99, .TRUE. )
    157 
    158171
    159172c  on recalcule eventuellement le pas de temps
    … …  
    176189      CALL iniconst
    177190      CALL inigeom
    178 
    179191      CALL inifilr
    180192
    … …  
    192204      CALL exner_hyb( ip1jmp1, ps, p,beta, pks, pk, pkf )
    193205
    194 c
     206
    195207c  numero de stockage pour les fichiers de redemarrage:
    196208
    … …  
    303315      CALL geopot  ( ip1jmp1, teta  , pk , pks,  phis  , phi   )
    304316
    305 
    306317      if(calldyn)then
    307318         CALL caldyn
    … …  
    314325c   -------------------------------------------------------------
    315326
     327
     328
    316329      if (tracer) then
    317330       IF( forward. OR . leapf )  THEN
    … …  
    360373     $            dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps,masse,phis,
    361374     $            finvmaold)
     375          else
     376             print*,'Currently no dynamics in this GCM...'
    362377          endif
    363378
    … …  
    407422c      ajout des tendances physiques:
    408423c      ------------------------------
     424!        if(1.eq.2)then
    409425          CALL addfi( nqmx, dtphys, leapf, forward   ,
    410426     $                  ucov, vcov, teta , q   ,ps , masse,
    411427     $                 dufi, dvfi, dhfi , dqfi ,dpfi  )
     428!       else
     429!          print*,'Currently no physics in this GCM...'
     430!       endif
    412431c
    413432       ENDIF
    … …  
    436455c        Dissipation horizontale
    437456c        ~~~~~~~~~~~~~~~~~~~~~~~
     457
     458
     459         if(dissip_conservative) then
     460!     calculate kinetic energy before dissipation
     461            call covcont(llm,ucov,vcov,ucont,vcont)
     462            call enercin(vcov,ucov,vcont,ucont,ecin0)
     463         end if
     464
    438465         CALL dissip(vcov,ucov,teta,p,dvdis,dudis,dhdis)
    439466
    440467         CALL addit( ijp1llm,ucov ,dudis,ucov )
    441468         CALL addit( ijmllm ,vcov ,dvdis,vcov )
     469
     470
     471         if (dissip_conservative) then
     472C           On rajoute la tendance due a la transform. Ec -> E therm. cree
     473C           lors de la dissipation
     474            call covcont(llm,ucov,vcov,ucont,vcont)
     475            call enercin(vcov,ucov,vcont,ucont,ecin)
     476            dtetaecdt(:,:) = (ecin0(:,:)-ecin(:,:))/ pk(:,:)
     477            dhdis(:,:)     = dhdis(:,:) + dtetaecdt(:,:)
     478         endif
     479
    442480         CALL addit( ijp1llm,teta ,dhdis,teta )
    443481

  • trunk/LMDZ.GENERIC/libf/dyn3d/iniadvtrac.F

    r135 r253  
    4848
    4949
    50 !     MODIFICATION TO TEST WITHOUT TRACER ADVECTION BY RDW
    51         !do iq=1,nq
    52         !  iadv(iq)=0
    53         !enddo
    54         !print*,'TRACERS ARE NO LONGER ADVECTED IN THE GCM!!!!!!'
    55 
     50!     MODIFICATION TO TEST OTHER SCHEMES BY RDW
     51!        do iq=1,nq
     52!           iadv(iq)=1
     53!        enddo
     54!        print*,'IADV SET TO 1 IN iniadvtrac!!!!'
    5655
    5756        do iq=1,nq

  • trunk/LMDZ.GENERIC/libf/dyn3d/inidissip.F

    r135 r253  
    5151c         FF 2004       
    5252         if (pseudoalt(llm).lt.160.) then
     53!     currently disabled for the universal model!!!
    5354             fac_mid=2  ! coeff  pour dissipation aux basses/moyennes altitudes
    5455             fac_up=10 ! coeff multiplicateur pour dissipation hautes altitudes
    5556             startalt=90. ! altitude en Km de la transition mid / up
    5657             delta=20.! Intervalle (km) pour le changement mid / up
     58
     59!             fac_mid=1  ! coeff  pour dissipation aux basses/moyennes altitudes
     60!             fac_up=1 ! coeff multiplicateur pour dissipation hautes altitudes
     61!             startalt=100. ! altitude en Km de la transition mid / up
     62!             delta=20.! Intervalle (km) pour le changement mid / up
     63
    5764         else ! thermosphere model
    5865             fac_mid=2 ! coeff pour dissipation aux basses/moyennes altitudes

  • trunk/LMDZ.GENERIC/libf/dyn3d/lect_start_archive.F

    r135 r253  
    22     &     t,ucov,vcov,ps,h,phisold_newgrid,
    33     &     q,qsurf,surfith,nid)
     4
    45c=======================================================================
    56c
    … …  
    11021103c-----------------------------------------------------------------------
    11031104!      write(*,*) 'Soil'
     1105
     1106      !print*,'Problem in lect_start_archive interpolating'
     1107      !print*,'to new resolution!!'
     1108
    11041109      ! Recast temperatures along soil depth, if necessary
    11051110      if (olddepthdef) then
    … …  
    11091114        do i=1,imold+1
    11101115         do j=1,jmold+1
     1116
     1117            !if(i.gt.iip1 .or. j.gt.jjp1)then
     1118               !print*,'Problem in lect_start_archive interpolating'
     1119               !print*,'to new resolution!!'
     1120               !call abort
     1121            !endif
     1122
    11111123           ! copy values
    1112            oldval(1)=tsurfS(i,j)
     1124           oldval(1)=tsurfold(i,j)
     1125!          oldval(1)=tsurfS(i,j)
    11131126           oldval(2:nsoilold+1)=tsoilold(i,j,1:nsoilold)
    11141127           ! build vertical coordinate
    … …  
    11421155         do j=1,jmold+1
    11431156           ! copy values
    1144            oldval(1)=tsurfS(i,j)
     1157           oldval(1)=tsurfold(i,j)
     1158!          oldval(1)=tsurfS(i,j)
    11451159           oldval(2:nsoilold+1)=tsoilold(i,j,1:nsoilold)
    11461160          ! interpolate

  • trunk/LMDZ.GENERIC/libf/dyn3d/logic.h

    r135 r253  
    33
    44      COMMON/logic/ purmats,physic,forward,leapf,apphys,grireg,
    5      *  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus,hybrid
     5     *  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus,hybrid,autozlevs
    66
    77      LOGICAL purmats,physic,forward,leapf,apphys,grireg,statcl,conser,
    8      * apdiss,apdelq,saison,ecripar,fxyhypb,ysinus,hybrid
     8     * apdiss,apdelq,saison,ecripar,fxyhypb,ysinus,hybrid,autozlevs
    99
    1010c-----------------------------------------------------------------------

  • trunk/LMDZ.GENERIC/libf/dyn3d/newstart.F

    r135 r253  
    154154      real :: MONS_coeffN ! coeff for northern hemisphere
    155155!      real,parameter :: icedepthmin=1.e-3 ! Ice begins at most at that depth
     156
     157!     added by RW for test
     158      real pmean, phi0
     159
     160!     added by BC for equilibrium temperature startup
     161      real teque
     162
     163!     added by BC for cloud fraction setup
     164      REAL hice(ngridmx),cloudfrac(ngridmx,nlayermx)
     165      REAL totalfrac(ngridmx)
     166
     167!     added by RW for nuketharsis
     168      real fact1
     169      real fact2
     170
    156171
    157172c sortie visu pour les champs dynamiques
    … …  
    425440        CALL phyetat0 (fichnom,tab0,Lmodif,nsoilmx,nqmx,
    426441     .        day_ini,time,
    427      .        tsurf,tsoil,emis,q2,qsurf)
    428        
     442     .        tsurf,tsoil,emis,q2,qsurf,   !) ! temporary modif by RDW
     443     .        cloudfrac,totalfrac,hice)
     444
    429445        ! copy albedo and soil thermal inertia
    430446        do i=1,ngridmx
    … …  
    457473      write(*,*)
    458474      write(*,*) 'flat : no topography ("aquaplanet")'
     475      write(*,*) 'nuketharsis : no Tharsis bulge'
    459476      write(*,*) 'bilball : uniform albedo and thermal inertia'
    460477      write(*,*) 'coldspole : cold subsurface and high albedo at S.pole'
    … …  
    471488      write(*,*) 'watercapn : H20 ice on permanent N polar cap '
    472489      write(*,*) 'watercaps : H20 ice on permanent S polar cap '
     490      write(*,*) 'noacglac  : H2O ice across Noachis Terra'
    473491      write(*,*) 'oborealis : H2O ice across Vastitas Borealis'
     492      write(*,*) 'iceball   : Thick ice layer all over surface'
    474493      write(*,*) 'wetstart  : start with a wet atmosphere'
    475       write(*,*) 'isotherm : Isothermal Temperatures, wind set to zero'
     494      write(*,*) 'isotherm  : Isothermal Temperatures, wind set to zero'
     495      write(*,*) 'radequi   : Earth-like radiative equilibrium temperature
     496     $ profile (lat-alt) and winds set to zero'
    476497      write(*,*) 'coldstart : Start X K above the CO2 frost point and
    477498     $set wind to zero (assumes 100% CO2)'
    … …  
    479500      write(*,*) 'ptot : change total pressure'
    480501      write(*,*) 'emis : change surface emissivity'
    481       write(*,*) 'therm_ini_s: Set soil thermal inertia to reference sur
     502      write(*,*) 'therm_ini_s : Set soil thermal inertia to reference sur
    482503     &face values'
    483       write(*,*) 'subsoilice_n: Put deep underground ice layer in northe
    484      &rn hemisphere'
    485       write(*,*) 'subsoilice_s: Put deep underground ice layer in southe
    486      &rn hemisphere'
    487       write(*,*) 'mons_ice: Put underground ice layer according to MONS-
    488      &derived data'
     504!      write(*,*) 'subsoilice_n : Put deep underground ice layer in northe
     505!     &rn hemisphere'
     506!      write(*,*) 'subsoilice_s : Put deep underground ice layer in southe
     507!     &rn hemisphere'
     508!      write(*,*) 'mons_ice : Put underground ice layer according to MONS-
     509!     &derived data'
    489510
    490511        write(*,*)
    … …  
    510531     &    ' were not set to zero ! => set calllott to F'                   
    511532
    512 c        Choice for surface pressure
     533c        Choice of surface pressure
    513534         yes=' '
    514535         do while ((yes.ne.'y').and.(yes.ne.'n'))
    … …  
    533554         end if
    534555
    535 c       bilball : albedo, inertie thermique uniforme
    536 c       --------------------------------------------
     556c       'nuketharsis : no tharsis bulge for Early Mars'
     557c       ---------------------------------------------
     558        else if (modif(1:len_trim(modif)) .eq. 'nuketharsis') then
     559
     560           DO j=1,jjp1       
     561              DO i=1,iim
     562                 ig=1+(j-2)*iim +i
     563                 if(j.eq.1) ig=1
     564                 if(j.eq.jjp1) ig=ngridmx
     565
     566                 fact1=(((rlonv(i)*180./pi)+100)**2 +
     567     &                (rlatu(j)*180./pi)**2)/65**2
     568                 fact2=exp( -fact1**2.5 )
     569
     570                 phis(i,j) = phis(i,j) - (phis(i,j)+4000.*g)*fact2
     571
     572!                 if(phis(i,j).gt.2500.*g)then
     573!                    if(rlatu(j)*180./pi.gt.-80.)then ! avoid chopping south polar cap
     574!                       phis(i,j)=2500.*g
     575!                    endif
     576!                 endif
     577
     578              ENDDO
     579           ENDDO
     580          CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,phis,phisfi)
     581
     582
     583c       bilball : uniform albedo, thermal inertia
     584c       -----------------------------------------
    537585        else if (modif(1:len_trim(modif)) .eq. 'bilball') then
    538586          write(*,*) 'constante albedo and iner.therm:'
    … …  
    654702             enddo
    655703          enddo
     704
     705
    656706
    657707c        Correction pour la conservation des traceurs
    … …  
    908958c      --------------------------------------------------
    909959        else if (modif(1:len_trim(modif)) .eq. 'noglacier') then
     960           if (igcm_h2o_ice.eq.0) then
     961             write(*,*) "No water ice tracer! Can't use this option"
     962             stop
     963           endif
    910964           do ig=1,ngridmx
    911965             j=(ig-2)/iim +2
    … …  
    921975c      --------------------------------------------------
    922976        else if (modif(1:len_trim(modif)) .eq. 'watercapn') then
    923            do ig=1,ngridmx
    924              j=(ig-2)/iim +2
    925               if(ig.eq.1) j=1
    926               if (rlatu(j)*180./pi.gt.80.) then
    927                    qsurf(ig,igcm_h2o_ice)=1.e5
    928                    write(*,*) 'ig=',ig,'    H2O ice mass (kg/m2)= ',
    929      &              qsurf(ig,igcm_h2o_ice)
    930                    write(*,*)'     ==> Ice mesh South boundary (deg)= ',
    931      &              rlatv(j)*180./pi
    932                 end if
    933            enddo
     977           if (igcm_h2o_ice.eq.0) then
     978             write(*,*) "No water ice tracer! Can't use this option"
     979             stop
     980           endif
     981
     982           DO j=1,jjp1       
     983              DO i=1,iim
     984                 ig=1+(j-2)*iim +i
     985                 if(j.eq.1) ig=1
     986                 if(j.eq.jjp1) ig=ngridmx
     987
     988                 if (rlatu(j)*180./pi.gt.80.) then
     989                    do isoil=1,nsoilmx
     990                       ith(i,j,isoil) = 18000. ! thermal inertia
     991                    enddo
     992                   write(*,*)'     ==> Ice mesh North boundary (deg)= ',
     993     &                   rlatv(j-1)*180./pi
     994                 end if
     995              ENDDO
     996           ENDDO
     997           CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
     998
     999c$$$           do ig=1,ngridmx
     1000c$$$             j=(ig-2)/iim +2
     1001c$$$              if(ig.eq.1) j=1
     1002c$$$              if (rlatu(j)*180./pi.gt.80.) then
     1003c$$$
     1004c$$$                   qsurf(ig,igcm_h2o_ice)=1.e5
     1005c$$$                   qsurf(ig,igcm_h2o_vap)=0.0!1.e5
     1006c$$$
     1007c$$$                   write(*,*) 'ig=',ig,'    H2O ice mass (kg/m2)= ',
     1008c$$$     &              qsurf(ig,igcm_h2o_ice)
     1009c$$$
     1010c$$$                   write(*,*)'     ==> Ice mesh South boundary (deg)= ',
     1011c$$$     &              rlatv(j)*180./pi
     1012c$$$                end if
     1013c$$$           enddo
    9341014
    9351015c      watercaps : H20 ice on permanent southern cap
    9361016c      -------------------------------------------------
    9371017        else if (modif(1:len_trim(modif)) .eq. 'watercaps') then
    938            do ig=1,ngridmx
    939                j=(ig-2)/iim +2
    940                if(ig.eq.1) j=1
    941                if (rlatu(j)*180./pi.lt.-80.) then
    942                    qsurf(ig,igcm_h2o_ice)=1.e5
    943                    write(*,*) 'ig=',ig,'   H2O ice mass (kg/m2)= ',
    944      &              qsurf(ig,igcm_h2o_ice)
    945                    write(*,*)'     ==> Ice mesh North boundary (deg)= ',
    946      &              rlatv(j-1)*180./pi
    947                end if
    948            enddo
    949 
    950 c       oborealis : H2O ice across Vastitas Borealis
     1018           if (igcm_h2o_ice.eq.0) then
     1019              write(*,*) "No water ice tracer! Can't use this option"
     1020              stop
     1021           endif
     1022
     1023           DO j=1,jjp1       
     1024              DO i=1,iim
     1025                 ig=1+(j-2)*iim +i
     1026                 if(j.eq.1) ig=1
     1027                 if(j.eq.jjp1) ig=ngridmx
     1028
     1029                 if (rlatu(j)*180./pi.lt.-80.) then
     1030                    do isoil=1,nsoilmx
     1031                       ith(i,j,isoil) = 18000. ! thermal inertia
     1032                    enddo
     1033                   write(*,*)'     ==> Ice mesh South boundary (deg)= ',
     1034     &                   rlatv(j-1)*180./pi
     1035                 end if
     1036              ENDDO
     1037           ENDDO
     1038           CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
     1039
     1040c$$$           do ig=1,ngridmx
     1041c$$$               j=(ig-2)/iim +2
     1042c$$$               if(ig.eq.1) j=1
     1043c$$$               if (rlatu(j)*180./pi.lt.-80.) then
     1044c$$$                  qsurf(ig,igcm_h2o_ice)=1.e5
     1045c$$$                  qsurf(ig,igcm_h2o_vap)=0.0 !1.e5
     1046c$$$
     1047c$$$                  write(*,*) 'ig=',ig,'   H2O ice mass (kg/m2)= ',
     1048c$$$     &                 qsurf(ig,igcm_h2o_ice)
     1049c$$$                  write(*,*)'     ==> Ice mesh North boundary (deg)= ',
     1050c$$$     &                 rlatv(j-1)*180./pi
     1051c$$$               end if
     1052c$$$           enddo
     1053
     1054
     1055c       noacglac : H2O ice across highest terrain
    9511056c       --------------------------------------------
    952         else if (modif(1:len_trim(modif)) .eq. 'oborealis') then
     1057        else if (modif(1:len_trim(modif)) .eq. 'noacglac') then
     1058           if (igcm_h2o_ice.eq.0) then
     1059             write(*,*) "No water ice tracer! Can't use this option"
     1060             stop
     1061           endif
    9531062          DO j=1,jjp1       
    9541063             DO i=1,iim
    … …  
    9571066                if(j.eq.jjp1) ig=ngridmx
    9581067
    959                 if(phis(i,j).lt.-4000.)then
    960                     qsurf(ig,igcm_h2o_ice)=1.e5
    961                     phis(i,j)=-4000.0
     1068                if(phis(i,j).gt.1000.*g)then
     1069                    alb(i,j) = 0.5 ! snow value
     1070                    do isoil=1,nsoilmx
     1071                       ith(i,j,isoil) = 18000. ! thermal inertia
     1072                       ! this leads to rnat set to 'ocean' in physiq.F90
     1073                       ! actually no, because it is soil not surface
     1074                    enddo
    9621075                endif
    9631076             ENDDO
    9641077          ENDDO
     1078          CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
     1079          CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,alb,albfi)
     1080          CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,phis,phisfi)
     1081
     1082
     1083
     1084c       oborealis : H2O oceans across Vastitas Borealis
     1085c       -----------------------------------------------
     1086        else if (modif(1:len_trim(modif)) .eq. 'oborealis') then
     1087           if (igcm_h2o_ice.eq.0) then
     1088             write(*,*) "No water ice tracer! Can't use this option"
     1089             stop
     1090           endif
     1091          DO j=1,jjp1       
     1092             DO i=1,iim
     1093                ig=1+(j-2)*iim +i
     1094                if(j.eq.1) ig=1
     1095                if(j.eq.jjp1) ig=ngridmx
     1096
     1097                if(phis(i,j).lt.-4000.*g)then
     1098!                if( (phis(i,j).lt.-4000.*g)
     1099!     &               .and. (rlatu(j)*180./pi.lt.0.) )then ! south hemisphere only
     1100!                    phis(i,j)=-8000.0*g ! proper ocean
     1101                    phis(i,j)=-4000.0*g ! scanty ocean
     1102
     1103                    alb(i,j) = 0.07 ! oceanic value
     1104                    do isoil=1,nsoilmx
     1105                       ith(i,j,isoil) = 18000. ! thermal inertia
     1106                       ! this leads to rnat set to 'ocean' in physiq.F90
     1107                       ! actually no, because it is soil not surface
     1108                    enddo
     1109                endif
     1110             ENDDO
     1111          ENDDO
     1112          CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
     1113          CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,alb,albfi)
     1114          CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,phis,phisfi)
     1115
     1116c       iborealis : H2O ice in Northern plains
     1117c       --------------------------------------
     1118        else if (modif(1:len_trim(modif)) .eq. 'iborealis') then
     1119           if (igcm_h2o_ice.eq.0) then
     1120             write(*,*) "No water ice tracer! Can't use this option"
     1121             stop
     1122           endif
     1123          DO j=1,jjp1       
     1124             DO i=1,iim
     1125                ig=1+(j-2)*iim +i
     1126                if(j.eq.1) ig=1
     1127                if(j.eq.jjp1) ig=ngridmx
     1128
     1129                if(phis(i,j).lt.-4000.*g)then
     1130                   qsurf(ig,igcm_h2o_ice)=1.e3
     1131                endif
     1132             ENDDO
     1133          ENDDO
     1134          CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
     1135          CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,alb,albfi)
     1136          CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,phis,phisfi)
     1137
     1138
     1139c       oceanball : H2O liquid everywhere
     1140c       ----------------------------
     1141        else if (modif(1:len_trim(modif)) .eq. 'oceanball') then
     1142           if (igcm_h2o_ice.eq.0) then
     1143             write(*,*) "No water ice tracer! Can't use this option"
     1144             stop
     1145           endif
     1146          DO j=1,jjp1       
     1147             DO i=1,iim
     1148                ig=1+(j-2)*iim +i
     1149                if(j.eq.1) ig=1
     1150                if(j.eq.jjp1) ig=ngridmx
     1151
     1152                qsurf(ig,igcm_h2o_vap)=0.0    ! for ocean, this is infinite source
     1153                qsurf(ig,igcm_h2o_ice)=0.0
     1154                alb(i,j) = 0.07 ! ocean value
     1155
     1156                do isoil=1,nsoilmx
     1157                   ith(i,j,isoil) = 18000. ! thermal inertia
     1158                   !ith(i,j,isoil) = 50. ! extremely low for test
     1159                   ! this leads to rnat set to 'ocean' in physiq.F90
     1160                enddo
     1161
     1162             ENDDO
     1163          ENDDO
     1164          CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
     1165          CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,alb,albfi)
     1166          CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,phis,phisfi)
     1167
     1168c       iceball : H2O ice everywhere
     1169c       ----------------------------
     1170        else if (modif(1:len_trim(modif)) .eq. 'iceball') then
     1171           if (igcm_h2o_ice.eq.0) then
     1172             write(*,*) "No water ice tracer! Can't use this option"
     1173             stop
     1174           endif
     1175          DO j=1,jjp1       
     1176             DO i=1,iim
     1177                ig=1+(j-2)*iim +i
     1178                if(j.eq.1) ig=1
     1179                if(j.eq.jjp1) ig=ngridmx
     1180
     1181                qsurf(ig,igcm_h2o_vap)=-50.    ! for ocean, this is infinite source
     1182                qsurf(ig,igcm_h2o_ice)=50.     ! == to 0.05 m of oceanic ice
     1183                alb(i,j) = 0.6 ! ice albedo value
     1184
     1185                do isoil=1,nsoilmx
     1186                   !ith(i,j,isoil) = 18000. ! thermal inertia
     1187                   ! this leads to rnat set to 'ocean' in physiq.F90
     1188                enddo
     1189
     1190             ENDDO
     1191          ENDDO
     1192          CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
     1193          CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,alb,albfi)
    9651194
    9661195c       isotherm : Isothermal temperatures and no winds
    967 c       ------------------------------------------------
     1196c       -----------------------------------------------
    9681197        else if (modif(1:len_trim(modif)) .eq. 'isotherm') then
    9691198
    … …  
    9941223          call initial0(ngridmx*(llm+1),q2)
    9951224
     1225c       radequi : Radiative equilibrium profile of temperatures and no winds
     1226c       --------------------------------------------------------------------
     1227        else if (modif(1:len_trim(modif)) .eq. 'radequi') then
     1228
     1229          write(*,*)'radiative equilibrium temperature profile'       
     1230
     1231          do ig=1, ngridmx
     1232             teque= 335.0-60.0*sin(latfi(ig))*sin(latfi(ig))-
     1233     &            10.0*cos(latfi(ig))*cos(latfi(ig))
     1234             tsurf(ig) = MAX(220.0,teque)
     1235          end do
     1236          do l=2,nsoilmx
     1237             do ig=1, ngridmx
     1238                tsoil(ig,l) = tsurf(ig)
     1239             end do
     1240          end do
     1241          DO j=1,jjp1
     1242             DO i=1,iim
     1243                Do l=1,llm
     1244                   teque=335.-60.0*sin(rlatu(j))*sin(rlatu(j))-
     1245     &                  10.0*cos(rlatu(j))*cos(rlatu(j))
     1246                   Tset(i,j,l)=MAX(220.0,teque)
     1247                end do
     1248             end do
     1249          end do
     1250          flagtset=.true.
     1251          call initial0(llm*ip1jmp1,ucov)
     1252          call initial0(llm*ip1jm,vcov)
     1253          call initial0(ngridmx*(llm+1),q2)
    9961254
    9971255c       coldstart : T set 1K above CO2 frost point and no winds
    … …  
    10691327!        enddo
    10701328
    1071 !       subsoilice_n: Put deep ice layer in northern hemisphere soil
    1072 !       ------------------------------------------------------------
    1073 
    1074         else if (modif(1:len_trim(modif)).eq.'subsoilice_n') then
    1075 
    1076          write(*,*)'From which latitude (in deg.), up to the north pole,
    1077      &should we put subterranean ice?'
    1078          ierr=1
    1079          do while (ierr.ne.0)
    1080           read(*,*,iostat=ierr) val
    1081           if (ierr.eq.0) then ! got a value
    1082             ! do a sanity check
    1083             if((val.lt.0.).or.(val.gt.90)) then
    1084               write(*,*)'Latitude should be between 0 and 90 deg. !!!'
    1085               ierr=1
    1086             else ! find corresponding jref (nearest latitude)
    1087               ! note: rlatu(:) contains decreasing values of latitude
    1088               !       starting from PI/2 to -PI/2
    1089               do j=1,jjp1
    1090                 if ((rlatu(j)*180./pi.ge.val).and.
    1091      &              (rlatu(j+1)*180./pi.le.val)) then
    1092                   ! find which grid point is nearest to val:
    1093                   if (abs(rlatu(j)*180./pi-val).le.
    1094      &                abs((rlatu(j+1)*180./pi-val))) then
    1095                    jref=j
    1096                   else
    1097                    jref=j+1
    1098                   endif
    1099                  
    1100                  write(*,*)'Will use nearest grid latitude which is:',
    1101      &                     rlatu(jref)*180./pi
    1102                 endif
    1103               enddo ! of do j=1,jjp1
    1104             endif ! of if((val.lt.0.).or.(val.gt.90))
    1105           endif !of if (ierr.eq.0)
    1106          enddo ! of do while
    1107 
    1108          ! Build layers() (as in soil_settings.F)
    1109          val2=sqrt(mlayer(0)*mlayer(1))
    1110          val3=mlayer(1)/mlayer(0)
    1111          do isoil=1,nsoilmx
    1112            layer(isoil)=val2*(val3**(isoil-1))
    1113          enddo
    1114 
    1115          write(*,*)'At which depth (in m.) does the ice layer begin?'
    1116          write(*,*)'(currently, the deepest soil layer extends down to:'
    1117      &              ,layer(nsoilmx),')'
    1118          ierr=1
    1119          do while (ierr.ne.0)
    1120           read(*,*,iostat=ierr) val2
    1121 !         write(*,*)'val2:',val2,'ierr=',ierr
    1122           if (ierr.eq.0) then ! got a value, but do a sanity check
    1123             if(val2.gt.layer(nsoilmx)) then
    1124               write(*,*)'Depth should be less than ',layer(nsoilmx)
    1125               ierr=1
    1126             endif
    1127             if(val2.lt.layer(1)) then
    1128               write(*,*)'Depth should be more than ',layer(1)
    1129               ierr=1
    1130             endif
    1131           endif
    1132          enddo ! of do while
    1133          
    1134          ! find the reference index iref the depth corresponds to
    1135 !        if (val2.lt.layer(1)) then
    1136 !         iref=1
    1137 !        else
    1138           do isoil=1,nsoilmx-1
    1139            if((val2.gt.layer(isoil)).and.(val2.lt.layer(isoil+1)))
    1140      &       then
    1141              iref=isoil
    1142              exit
    1143            endif
    1144           enddo
    1145 !        endif
    1146          
    1147 !        write(*,*)'iref:',iref,'  jref:',jref
    1148 !        write(*,*)'layer',layer
    1149 !        write(*,*)'mlayer',mlayer
    1150          
    1151          ! thermal inertia of the ice:
    1152          ierr=1
    1153          do while (ierr.ne.0)
    1154           write(*,*)'What is the value of subterranean ice thermal inert
    1155      &ia? (e.g.: 2000)'
    1156           read(*,*,iostat=ierr)iceith
    1157          enddo ! of do while
    1158          
    1159          ! recast ithfi() onto ith()
    1160          call gr_fi_dyn(nsoilmx,ngridmx,iip1,jjp1,ithfi,ith)
    1161          
    1162          do j=1,jref
    1163 !           write(*,*)'j:',j,'rlatu(j)*180./pi:',rlatu(j)*180./pi
    1164             do i=1,iip1 ! loop on longitudes
    1165              ! Build "equivalent" thermal inertia for the mixed layer
    1166              ith(i,j,iref+1)=sqrt((layer(iref+1)-layer(iref))/
    1167      &                     (((val2-layer(iref))/(ith(i,j,iref)**2))+
    1168      &                      ((layer(iref+1)-val2)/(iceith)**2)))
    1169              ! Set thermal inertia of lower layers
    1170              do isoil=iref+2,nsoilmx
    1171               ith(i,j,isoil)=iceith ! ice
    1172              enddo
    1173             enddo ! of do i=1,iip1
    1174          enddo ! of do j=1,jjp1
    1175          
    1176 
    1177          CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
    1178 
    1179 !         do i=1,nsoilmx
    1180 !         write(*,*)'i:',i,'ithfi(1,i):',ithfi(1,i)
    1181 !        enddo
     1329
     1330
     1331
     1332c$$$!       subsoilice_n: Put deep ice layer in northern hemisphere soil
     1333c$$$!       ------------------------------------------------------------
     1334c$$$
     1335c$$$    else if (modif(1:len_trim(modif)).eq.'subsoilice_n') then
     1336c$$$
     1337c$$$         write(*,*)'From which latitude (in deg.), up to the north pole,
     1338c$$$     &should we put subterranean ice?'
     1339c$$$     ierr=1
     1340c$$$     do while (ierr.ne.0)
     1341c$$$      read(*,*,iostat=ierr) val
     1342c$$$      if (ierr.eq.0) then ! got a value
     1343c$$$        ! do a sanity check
     1344c$$$        if((val.lt.0.).or.(val.gt.90)) then
     1345c$$$          write(*,*)'Latitude should be between 0 and 90 deg. !!!'
     1346c$$$          ierr=1
     1347c$$$        else ! find corresponding jref (nearest latitude)
     1348c$$$          ! note: rlatu(:) contains decreasing values of latitude
     1349c$$$          !       starting from PI/2 to -PI/2
     1350c$$$          do j=1,jjp1
     1351c$$$            if ((rlatu(j)*180./pi.ge.val).and.
     1352c$$$     &              (rlatu(j+1)*180./pi.le.val)) then
     1353c$$$              ! find which grid point is nearest to val:
     1354c$$$              if (abs(rlatu(j)*180./pi-val).le.
     1355c$$$     &                abs((rlatu(j+1)*180./pi-val))) then
     1356c$$$               jref=j
     1357c$$$              else
     1358c$$$               jref=j+1
     1359c$$$              endif
     1360c$$$             
     1361c$$$             write(*,*)'Will use nearest grid latitude which is:',
     1362c$$$     &                     rlatu(jref)*180./pi
     1363c$$$            endif
     1364c$$$          enddo ! of do j=1,jjp1
     1365c$$$        endif ! of if((val.lt.0.).or.(val.gt.90))
     1366c$$$      endif !of if (ierr.eq.0)
     1367c$$$     enddo ! of do while
     1368c$$$
     1369c$$$         ! Build layers() (as in soil_settings.F)
     1370c$$$     val2=sqrt(mlayer(0)*mlayer(1))
     1371c$$$     val3=mlayer(1)/mlayer(0)
     1372c$$$     do isoil=1,nsoilmx
     1373c$$$       layer(isoil)=val2*(val3**(isoil-1))
     1374c$$$     enddo
     1375c$$$
     1376c$$$         write(*,*)'At which depth (in m.) does the ice layer begin?'
     1377c$$$         write(*,*)'(currently, the deepest soil layer extends down to:'
     1378c$$$     &              ,layer(nsoilmx),')'
     1379c$$$     ierr=1
     1380c$$$     do while (ierr.ne.0)
     1381c$$$      read(*,*,iostat=ierr) val2
     1382c$$$!     write(*,*)'val2:',val2,'ierr=',ierr
     1383c$$$      if (ierr.eq.0) then ! got a value, but do a sanity check
     1384c$$$        if(val2.gt.layer(nsoilmx)) then
     1385c$$$          write(*,*)'Depth should be less than ',layer(nsoilmx)
     1386c$$$          ierr=1
     1387c$$$        endif
     1388c$$$        if(val2.lt.layer(1)) then
     1389c$$$          write(*,*)'Depth should be more than ',layer(1)
     1390c$$$          ierr=1
     1391c$$$        endif
     1392c$$$      endif
     1393c$$$         enddo ! of do while
     1394c$$$     
     1395c$$$     ! find the reference index iref the depth corresponds to
     1396c$$$!    if (val2.lt.layer(1)) then
     1397c$$$!     iref=1
     1398c$$$!    else
     1399c$$$      do isoil=1,nsoilmx-1
     1400c$$$       if((val2.gt.layer(isoil)).and.(val2.lt.layer(isoil+1)))
     1401c$$$     &       then
     1402c$$$         iref=isoil
     1403c$$$         exit
     1404c$$$       endif
     1405c$$$      enddo
     1406c$$$!    endif
     1407c$$$     
     1408c$$$!    write(*,*)'iref:',iref,'  jref:',jref
     1409c$$$!    write(*,*)'layer',layer
     1410c$$$!    write(*,*)'mlayer',mlayer
     1411c$$$         
     1412c$$$     ! thermal inertia of the ice:
     1413c$$$     ierr=1
     1414c$$$     do while (ierr.ne.0)
     1415c$$$          write(*,*)'What is the value of subterranean ice thermal inert
     1416c$$$     &ia? (e.g.: 2000)'
     1417c$$$          read(*,*,iostat=ierr)iceith
     1418c$$$     enddo ! of do while
     1419c$$$     
     1420c$$$     ! recast ithfi() onto ith()
     1421c$$$     call gr_fi_dyn(nsoilmx,ngridmx,iip1,jjp1,ithfi,ith)
     1422c$$$     
     1423c$$$     do j=1,jref
     1424c$$$!       write(*,*)'j:',j,'rlatu(j)*180./pi:',rlatu(j)*180./pi
     1425c$$$        do i=1,iip1 ! loop on longitudes
     1426c$$$         ! Build "equivalent" thermal inertia for the mixed layer
     1427c$$$         ith(i,j,iref+1)=sqrt((layer(iref+1)-layer(iref))/
     1428c$$$     &                     (((val2-layer(iref))/(ith(i,j,iref)**2))+
     1429c$$$     &                      ((layer(iref+1)-val2)/(iceith)**2)))
     1430c$$$         ! Set thermal inertia of lower layers
     1431c$$$         do isoil=iref+2,nsoilmx
     1432c$$$          ith(i,j,isoil)=iceith ! ice
     1433c$$$         enddo
     1434c$$$        enddo ! of do i=1,iip1
     1435c$$$     enddo ! of do j=1,jjp1
     1436c$$$     
     1437c$$$
     1438c$$$     CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
     1439c$$$
     1440c$$$!         do i=1,nsoilmx
     1441c$$$!     write(*,*)'i:',i,'ithfi(1,i):',ithfi(1,i)
     1442c$$$!    enddo
    11821443
    11831444       
    1184 !       subsoilice_s: Put deep ice layer in southern hemisphere soil
    1185 !       ------------------------------------------------------------
    1186 
    1187         else if (modif(1:len_trim(modif)).eq.'subsoilice_s') then
    1188 
    1189          write(*,*)'From which latitude (in deg.), down to the south pol
    1190      &e, should we put subterranean ice?'
    1191          ierr=1
    1192          do while (ierr.ne.0)
    1193           read(*,*,iostat=ierr) val
    1194           if (ierr.eq.0) then ! got a value
    1195             ! do a sanity check
    1196             if((val.gt.0.).or.(val.lt.-90)) then
    1197               write(*,*)'Latitude should be between 0 and -90 deg. !!!'
    1198               ierr=1
    1199             else ! find corresponding jref (nearest latitude)
    1200               ! note: rlatu(:) contains decreasing values of latitude
    1201               !       starting from PI/2 to -PI/2
    1202               do j=1,jjp1
    1203                 if ((rlatu(j)*180./pi.ge.val).and.
    1204      &              (rlatu(j+1)*180./pi.le.val)) then
    1205                   ! find which grid point is nearest to val:
    1206                   if (abs(rlatu(j)*180./pi-val).le.
    1207      &                abs((rlatu(j+1)*180./pi-val))) then
    1208                    jref=j
    1209                   else
    1210                    jref=j+1
    1211                   endif
    1212                  
    1213                  write(*,*)'Will use nearest grid latitude which is:',
    1214      &                     rlatu(jref)*180./pi
    1215                 endif
    1216               enddo ! of do j=1,jjp1
    1217             endif ! of if((val.lt.0.).or.(val.gt.90))
    1218           endif !of if (ierr.eq.0)
    1219          enddo ! of do while
    1220 
    1221          ! Build layers() (as in soil_settings.F)
    1222          val2=sqrt(mlayer(0)*mlayer(1))
    1223          val3=mlayer(1)/mlayer(0)
    1224          do isoil=1,nsoilmx
    1225            layer(isoil)=val2*(val3**(isoil-1))
    1226          enddo
    1227 
    1228          write(*,*)'At which depth (in m.) does the ice layer begin?'
    1229          write(*,*)'(currently, the deepest soil layer extends down to:'
    1230      &              ,layer(nsoilmx),')'
    1231          ierr=1
    1232          do while (ierr.ne.0)
    1233           read(*,*,iostat=ierr) val2
    1234 !         write(*,*)'val2:',val2,'ierr=',ierr
    1235           if (ierr.eq.0) then ! got a value, but do a sanity check
    1236             if(val2.gt.layer(nsoilmx)) then
    1237               write(*,*)'Depth should be less than ',layer(nsoilmx)
    1238               ierr=1
    1239             endif
    1240             if(val2.lt.layer(1)) then
    1241               write(*,*)'Depth should be more than ',layer(1)
    1242               ierr=1
    1243             endif
    1244           endif
    1245          enddo ! of do while
    1246          
    1247          ! find the reference index iref the depth corresponds to
    1248           do isoil=1,nsoilmx-1
    1249            if((val2.gt.layer(isoil)).and.(val2.lt.layer(isoil+1)))
    1250      &       then
    1251              iref=isoil
    1252              exit
    1253            endif
    1254           enddo
    1255          
    1256 !        write(*,*)'iref:',iref,'  jref:',jref
    1257          
    1258          ! thermal inertia of the ice:
    1259          ierr=1
    1260          do while (ierr.ne.0)
    1261           write(*,*)'What is the value of subterranean ice thermal inert
    1262      &ia? (e.g.: 2000)'
    1263           read(*,*,iostat=ierr)iceith
    1264          enddo ! of do while
    1265          
    1266          ! recast ithfi() onto ith()
    1267          call gr_fi_dyn(nsoilmx,ngridmx,iip1,jjp1,ithfi,ith)
    1268          
    1269          do j=jref,jjp1
    1270 !           write(*,*)'j:',j,'rlatu(j)*180./pi:',rlatu(j)*180./pi
    1271             do i=1,iip1 ! loop on longitudes
    1272              ! Build "equivalent" thermal inertia for the mixed layer
    1273              ith(i,j,iref+1)=sqrt((layer(iref+1)-layer(iref))/
    1274      &                     (((val2-layer(iref))/(ith(i,j,iref)**2))+
    1275      &                      ((layer(iref+1)-val2)/(iceith)**2)))
    1276              ! Set thermal inertia of lower layers
    1277              do isoil=iref+2,nsoilmx
    1278               ith(i,j,isoil)=iceith ! ice
    1279              enddo
    1280             enddo ! of do i=1,iip1
    1281          enddo ! of do j=jref,jjp1
    1282          
    1283 
    1284          CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
    1285 
    1286 c       'mons_ice' : use MONS data to build subsurface ice table
    1287 c       --------------------------------------------------------
    1288         else if (modif(1:len_trim(modif)).eq.'mons_ice') then
    1289        
    1290        ! 1. Load MONS data
    1291         call load_MONS_data(MONS_Hdn,MONS_d21)
    1292        
    1293         ! 2. Get parameters from user
    1294         ierr=1
    1295         do while (ierr.ne.0)
    1296           write(*,*) "Coefficient to apply to MONS 'depth' in Northern",
    1297      &               " Hemisphere?"
    1298           write(*,*) " (should be somewhere between 3.2e-4 and 1.3e-3)"
    1299           read(*,*,iostat=ierr) MONS_coeffN
    1300         enddo
    1301         ierr=1
    1302         do while (ierr.ne.0)
    1303           write(*,*) "Coefficient to apply to MONS 'depth' in Southern",
    1304      &               " Hemisphere?"
    1305           write(*,*) " (should be somewhere between 3.2e-4 and 1.3e-3)"
    1306           read(*,*,iostat=ierr) MONS_coeffS
    1307         enddo
    1308         ierr=1
    1309         do while (ierr.ne.0)
    1310           write(*,*) "Value of subterranean ice thermal inertia?"
    1311           write(*,*) " (e.g.: 2000, or perhaps 2290)"
    1312           read(*,*,iostat=ierr) iceith
    1313         enddo
    1314        
    1315         ! 3. Build subterranean thermal inertia
    1316        
    1317         ! initialise subsurface inertia with reference surface values
    1318         do isoil=1,nsoilmx
    1319           ithfi(1:ngridmx,isoil)=surfithfi(1:ngridmx)
    1320         enddo
    1321         ! recast ithfi() onto ith()
    1322         call gr_fi_dyn(nsoilmx,ngridmx,iip1,jjp1,ithfi,ith)
    1323        
    1324         do i=1,iip1 ! loop on longitudes
    1325           do j=1,jjp1 ! loop on latitudes
    1326             ! set MONS_coeff
    1327             if (rlatu(j).ge.0) then ! northern hemisphere
    1328               ! N.B: rlatu(:) contains decreasing values of latitude
    1329               !       starting from PI/2 to -PI/2
    1330               MONS_coeff=MONS_coeffN
    1331             else ! southern hemisphere
    1332               MONS_coeff=MONS_coeffS
    1333             endif
    1334             ! check if we should put subterranean ice
    1335             if (MONS_Hdn(i,j).ge.14.0) then ! no ice if Hdn<14%
    1336               ! compute depth at which ice lies:
    1337               val=MONS_d21(i,j)*MONS_coeff
    1338               ! compute val2= the diurnal skin depth of surface inertia
    1339               ! assuming a volumetric heat cap. of C=1.e6 J.m-3.K-1
    1340               val2=ith(i,j,1)*1.e-6*sqrt(88775./3.14159)
    1341               if (val.lt.val2) then
    1342                 ! ice must be below the (surface inertia) diurnal skin depth
    1343                 val=val2
    1344               endif
    1345               if (val.lt.layer(nsoilmx)) then ! subterranean ice
    1346                 ! find the reference index iref that depth corresponds to
    1347                 iref=0
    1348                 do isoil=1,nsoilmx-1
    1349                  if ((val.ge.layer(isoil)).and.(val.lt.layer(isoil+1)))
    1350      &             then
    1351                    iref=isoil
    1352                    exit
    1353                  endif
    1354                 enddo
    1355                 ! Build "equivalent" thermal inertia for the mixed layer
    1356                 ith(i,j,iref+1)=sqrt((layer(iref+1)-layer(iref))/
    1357      &                     (((val-layer(iref))/(ith(i,j,iref+1)**2))+
    1358      &                      ((layer(iref+1)-val)/(iceith)**2)))
    1359                 ! Set thermal inertia of lower layers
    1360                 do isoil=iref+2,nsoilmx
    1361                   ith(i,j,isoil)=iceith
    1362                 enddo
    1363               endif ! of if (val.lt.layer(nsoilmx))
    1364             endif ! of if (MONS_Hdn(i,j).lt.14.0)
    1365           enddo ! do j=1,jjp1
    1366         enddo ! do i=1,iip1
    1367        
    1368 ! Check:
    1369 !         do i=1,iip1
    1370 !           do j=1,jjp1
    1371 !             do isoil=1,nsoilmx
    1372 !               write(77,*) i,j,isoil,"  ",ith(i,j,isoil)
    1373 !             enddo
    1374 !           enddo
    1375 !        enddo
    1376 
    1377         ! recast ith() into ithfi()
    1378         CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
    1379        
    1380         else
    1381           write(*,*) '       Unknown (misspelled?) option!!!'
     1445c$$$!       subsoilice_s: Put deep ice layer in southern hemisphere soil
     1446c$$$!       ------------------------------------------------------------
     1447c$$$
     1448c$$$    else if (modif(1:len_trim(modif)).eq.'subsoilice_s') then
     1449c$$$
     1450c$$$         write(*,*)'From which latitude (in deg.), down to the south pol
     1451c$$$     &e, should we put subterranean ice?'
     1452c$$$     ierr=1
     1453c$$$     do while (ierr.ne.0)
     1454c$$$      read(*,*,iostat=ierr) val
     1455c$$$      if (ierr.eq.0) then ! got a value
     1456c$$$        ! do a sanity check
     1457c$$$        if((val.gt.0.).or.(val.lt.-90)) then
     1458c$$$          write(*,*)'Latitude should be between 0 and -90 deg. !!!'
     1459c$$$          ierr=1
     1460c$$$        else ! find corresponding jref (nearest latitude)
     1461c$$$          ! note: rlatu(:) contains decreasing values of latitude
     1462c$$$          !       starting from PI/2 to -PI/2
     1463c$$$          do j=1,jjp1
     1464c$$$            if ((rlatu(j)*180./pi.ge.val).and.
     1465c$$$     &              (rlatu(j+1)*180./pi.le.val)) then
     1466c$$$              ! find which grid point is nearest to val:
     1467c$$$              if (abs(rlatu(j)*180./pi-val).le.
     1468c$$$     &                abs((rlatu(j+1)*180./pi-val))) then
     1469c$$$               jref=j
     1470c$$$              else
     1471c$$$               jref=j+1
     1472c$$$              endif
     1473c$$$             
     1474c$$$             write(*,*)'Will use nearest grid latitude which is:',
     1475c$$$     &                     rlatu(jref)*180./pi
     1476c$$$            endif
     1477c$$$          enddo ! of do j=1,jjp1
     1478c$$$        endif ! of if((val.lt.0.).or.(val.gt.90))
     1479c$$$      endif !of if (ierr.eq.0)
     1480c$$$     enddo ! of do while
     1481c$$$
     1482c$$$         ! Build layers() (as in soil_settings.F)
     1483c$$$     val2=sqrt(mlayer(0)*mlayer(1))
     1484c$$$     val3=mlayer(1)/mlayer(0)
     1485c$$$     do isoil=1,nsoilmx
     1486c$$$       layer(isoil)=val2*(val3**(isoil-1))
     1487c$$$     enddo
     1488c$$$
     1489c$$$         write(*,*)'At which depth (in m.) does the ice layer begin?'
     1490c$$$         write(*,*)'(currently, the deepest soil layer extends down to:'
     1491c$$$     &              ,layer(nsoilmx),')'
     1492c$$$     ierr=1
     1493c$$$     do while (ierr.ne.0)
     1494c$$$      read(*,*,iostat=ierr) val2
     1495c$$$!     write(*,*)'val2:',val2,'ierr=',ierr
     1496c$$$      if (ierr.eq.0) then ! got a value, but do a sanity check
     1497c$$$        if(val2.gt.layer(nsoilmx)) then
     1498c$$$          write(*,*)'Depth should be less than ',layer(nsoilmx)
     1499c$$$          ierr=1
     1500c$$$        endif
     1501c$$$        if(val2.lt.layer(1)) then
     1502c$$$          write(*,*)'Depth should be more than ',layer(1)
     1503c$$$          ierr=1
     1504c$$$        endif
     1505c$$$      endif
     1506c$$$         enddo ! of do while
     1507c$$$     
     1508c$$$     ! find the reference index iref the depth corresponds to
     1509c$$$      do isoil=1,nsoilmx-1
     1510c$$$       if((val2.gt.layer(isoil)).and.(val2.lt.layer(isoil+1)))
     1511c$$$     &       then
     1512c$$$         iref=isoil
     1513c$$$         exit
     1514c$$$       endif
     1515c$$$      enddo
     1516c$$$     
     1517c$$$!    write(*,*)'iref:',iref,'  jref:',jref
     1518c$$$         
     1519c$$$     ! thermal inertia of the ice:
     1520c$$$     ierr=1
     1521c$$$     do while (ierr.ne.0)
     1522c$$$          write(*,*)'What is the value of subterranean ice thermal inert
     1523c$$$     &ia? (e.g.: 2000)'
     1524c$$$          read(*,*,iostat=ierr)iceith
     1525c$$$     enddo ! of do while
     1526c$$$     
     1527c$$$     ! recast ithfi() onto ith()
     1528c$$$     call gr_fi_dyn(nsoilmx,ngridmx,iip1,jjp1,ithfi,ith)
     1529c$$$     
     1530c$$$     do j=jref,jjp1
     1531c$$$!       write(*,*)'j:',j,'rlatu(j)*180./pi:',rlatu(j)*180./pi
     1532c$$$        do i=1,iip1 ! loop on longitudes
     1533c$$$         ! Build "equivalent" thermal inertia for the mixed layer
     1534c$$$         ith(i,j,iref+1)=sqrt((layer(iref+1)-layer(iref))/
     1535c$$$     &                     (((val2-layer(iref))/(ith(i,j,iref)**2))+
     1536c$$$     &                      ((layer(iref+1)-val2)/(iceith)**2)))
     1537c$$$         ! Set thermal inertia of lower layers
     1538c$$$         do isoil=iref+2,nsoilmx
     1539c$$$          ith(i,j,isoil)=iceith ! ice
     1540c$$$         enddo
     1541c$$$        enddo ! of do i=1,iip1
     1542c$$$     enddo ! of do j=jref,jjp1
     1543c$$$     
     1544c$$$
     1545c$$$     CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
     1546
     1547
     1548c$$$c       'mons_ice' : use MONS data to build subsurface ice table
     1549c$$$c       --------------------------------------------------------
     1550c$$$        else if (modif(1:len_trim(modif)).eq.'mons_ice') then
     1551c$$$       
     1552c$$$       ! 1. Load MONS data
     1553c$$$        call load_MONS_data(MONS_Hdn,MONS_d21)
     1554c$$$       
     1555c$$$        ! 2. Get parameters from user
     1556c$$$        ierr=1
     1557c$$$    do while (ierr.ne.0)
     1558c$$$          write(*,*) "Coefficient to apply to MONS 'depth' in Northern",
     1559c$$$     &               " Hemisphere?"
     1560c$$$          write(*,*) " (should be somewhere between 3.2e-4 and 1.3e-3)"
     1561c$$$          read(*,*,iostat=ierr) MONS_coeffN
     1562c$$$        enddo
     1563c$$$        ierr=1
     1564c$$$    do while (ierr.ne.0)
     1565c$$$          write(*,*) "Coefficient to apply to MONS 'depth' in Southern",
     1566c$$$     &               " Hemisphere?"
     1567c$$$          write(*,*) " (should be somewhere between 3.2e-4 and 1.3e-3)"
     1568c$$$          read(*,*,iostat=ierr) MONS_coeffS
     1569c$$$        enddo
     1570c$$$        ierr=1
     1571c$$$        do while (ierr.ne.0)
     1572c$$$          write(*,*) "Value of subterranean ice thermal inertia?"
     1573c$$$          write(*,*) " (e.g.: 2000, or perhaps 2290)"
     1574c$$$          read(*,*,iostat=ierr) iceith
     1575c$$$        enddo
     1576c$$$       
     1577c$$$        ! 3. Build subterranean thermal inertia
     1578c$$$       
     1579c$$$        ! initialise subsurface inertia with reference surface values
     1580c$$$        do isoil=1,nsoilmx
     1581c$$$          ithfi(1:ngridmx,isoil)=surfithfi(1:ngridmx)
     1582c$$$        enddo
     1583c$$$        ! recast ithfi() onto ith()
     1584c$$$    call gr_fi_dyn(nsoilmx,ngridmx,iip1,jjp1,ithfi,ith)
     1585c$$$       
     1586c$$$        do i=1,iip1 ! loop on longitudes
     1587c$$$          do j=1,jjp1 ! loop on latitudes
     1588c$$$            ! set MONS_coeff
     1589c$$$            if (rlatu(j).ge.0) then ! northern hemisphere
     1590c$$$              ! N.B: rlatu(:) contains decreasing values of latitude
     1591c$$$          !       starting from PI/2 to -PI/2
     1592c$$$              MONS_coeff=MONS_coeffN
     1593c$$$            else ! southern hemisphere
     1594c$$$              MONS_coeff=MONS_coeffS
     1595c$$$            endif
     1596c$$$            ! check if we should put subterranean ice
     1597c$$$            if (MONS_Hdn(i,j).ge.14.0) then ! no ice if Hdn<14%
     1598c$$$              ! compute depth at which ice lies:
     1599c$$$              val=MONS_d21(i,j)*MONS_coeff
     1600c$$$              ! compute val2= the diurnal skin depth of surface inertia
     1601c$$$              ! assuming a volumetric heat cap. of C=1.e6 J.m-3.K-1
     1602c$$$              val2=ith(i,j,1)*1.e-6*sqrt(88775./3.14159)
     1603c$$$              if (val.lt.val2) then
     1604c$$$                ! ice must be below the (surface inertia) diurnal skin depth
     1605c$$$                val=val2
     1606c$$$              endif
     1607c$$$              if (val.lt.layer(nsoilmx)) then ! subterranean ice
     1608c$$$                ! find the reference index iref that depth corresponds to
     1609c$$$                iref=0
     1610c$$$                do isoil=1,nsoilmx-1
     1611c$$$                 if ((val.ge.layer(isoil)).and.(val.lt.layer(isoil+1)))
     1612c$$$     &             then
     1613c$$$               iref=isoil
     1614c$$$               exit
     1615c$$$             endif
     1616c$$$                enddo
     1617c$$$                ! Build "equivalent" thermal inertia for the mixed layer
     1618c$$$                ith(i,j,iref+1)=sqrt((layer(iref+1)-layer(iref))/
     1619c$$$     &                     (((val-layer(iref))/(ith(i,j,iref+1)**2))+
     1620c$$$     &                      ((layer(iref+1)-val)/(iceith)**2)))
     1621c$$$            ! Set thermal inertia of lower layers
     1622c$$$                do isoil=iref+2,nsoilmx
     1623c$$$                  ith(i,j,isoil)=iceith
     1624c$$$                enddo
     1625c$$$              endif ! of if (val.lt.layer(nsoilmx))
     1626c$$$            endif ! of if (MONS_Hdn(i,j).lt.14.0)
     1627c$$$          enddo ! do j=1,jjp1
     1628c$$$        enddo ! do i=1,iip1
     1629c$$$       
     1630c$$$! Check:
     1631c$$$!         do i=1,iip1
     1632c$$$!           do j=1,jjp1
     1633c$$$!             do isoil=1,nsoilmx
     1634c$$$!               write(77,*) i,j,isoil,"  ",ith(i,j,isoil)
     1635c$$$!             enddo
     1636c$$$!           enddo
     1637c$$$!    enddo
     1638c$$$
     1639c$$$        ! recast ith() into ithfi()
     1640c$$$        CALL gr_dyn_fi(nsoilmx,iip1,jjp1,ngridmx,ith,ithfi)
     1641c$$$       
     1642c$$$    else
     1643c$$$          write(*,*) '       Unknown (misspelled?) option!!!'
    13821644        end if ! of if (modif(1:len_trim(modif)) .eq. '...') elseif ...
    13831645       
     1646
     1647
     1648
     1649
     1650
     1651
     1652
     1653
     1654
     1655
    13841656       enddo ! of do ! infinite loop on liste of changes
    13851657
    … …  
    13871659
    13881660 
     1661c=======================================================================
     1662c   Initialisation for cloud fraction and oceanic ice (added by BC 2010)
     1663c=======================================================================
     1664      DO ig=1, ngridmx
     1665         totalfrac(ig)=0.5
     1666         DO l=1,llm
     1667            cloudfrac(ig,l)=0.5
     1668         ENDDO
     1669      ENDDO
     1670     
     1671c========================================================
     1672
     1673!      DO ig=1,ngridmx
     1674!         IF(tsurf(ig) .LT. 273.16-1.8) THEN
     1675!            hice(ig)=(273.16-1.8-tsurf(ig))/(273.16-1.8-240)*1.
     1676!            hice(ig)=min(hice(ig),1.0)
     1677!         ENDIF
     1678!      ENDDO
     1679
     1680
    13891681c=======================================================================
    13901682c   Correct pressure on the new grid (menu 0)
    … …  
    13931685      if ((choix_1.eq.0).and.(.not.flagps0)) then
    13941686        r = 1000.*8.31/mugaz
     1687
     1688        phi0=0.0
     1689        do j=1,jjp1
     1690          do i=1,iip1
     1691             phi0 = phi0+phis(i,j)*aire(i,j)
     1692          end do
     1693        end do
     1694        phi0=phi0/airetot
    13951695
    13961696        do j=1,jjp1
    … …  
    13981698             ps(i,j) = ps(i,j) *
    13991699!     .            exp((phisold_newgrid(i,j)-phis(i,j)) /
    1400      .            exp((-phis(i,j)) /
     1700     .            exp((phi0-phis(i,j)) /
    14011701     .                                  (t(i,j,1) * r))
    14021702          end do
    14031703        end do
    14041704 
    1405 c periodicity of surface ps in longitude
     1705!     we must renormalise pressures AGAIN, because exp(-phi) is nonlinear
     1706        ptot=0.0
    14061707        do j=1,jjp1
    1407           ps(1,j) = ps(iip1,j)
     1708           do i=1,iip1
     1709              ptot=ptot+ps(i,j)*aire(i,j)
     1710           enddo
     1711        enddo
     1712        do j=1,jjp1
     1713           do i=1,iip1
     1714              ps(i,j)=ps(i,j)*ptotn/ptot
     1715           enddo
     1716        enddo
     1717       
     1718!     periodicity of surface ps in longitude
     1719        do j=1,jjp1
     1720           ps(1,j) = ps(iip1,j)
    14081721        end do
     1722       
    14091723      end if
    14101724
     1725
    14111726c=======================================================================
    14121727c=======================================================================
    … …  
    14151730c    Initialisation de la physique / ecriture de newstartfi :
    14161731c=======================================================================
    1417 
    14181732
    14191733      CALL inifilr
    … …  
    14471761      endif
    14481762
     1763
    14491764C Calcul intermediaire
    14501765c
    … …  
    14901805C
    14911806
     1807!      do ig=1,ngridmx
     1808!         print*,'surface ice in newstart=',qsurf(ig,igcm_h2o_ice)
     1809!         print*,'surface liq in newstart=',qsurf(ig,igcm_h2o_vap)
     1810!      enddo
     1811!      stop
     1812
     1813
    14921814      call physdem1("restartfi.nc",lonfi,latfi,nsoilmx,nqmx,
    14931815     .              dtphys,float(day_ini),
    14941816     .              time,tsurf,tsoil,emis,q2,qsurf,
    1495      .              airefi,albfi,ithfi,zmea,zstd,zsig,zgam,zthe)
     1817     .              airefi,albfi,ithfi,zmea,zstd,zsig,zgam,zthe,
     1818     .              cloudfrac,totalfrac,hice)
    14961819
    14971820c=======================================================================

  • trunk/LMDZ.GENERIC/libf/dyn3d/start2archive.F

    r135 r253  
    6868      INTEGER*4 day_ini_fi
    6969
     70!     added by FF for cloud fraction setup
     71      REAL hice(ngridmx)
     72      REAL cloudfrac(ngridmx,nlayermx),totalcloudfrac(ngridmx)
     73
     74
    7075c Variable naturelle / grille scalaire
    7176c ------------------------------------
    … …  
    7883      REAL emisS(ip1jmp1)
    7984
     85!     added by FF for cloud fraction setup
     86      REAL hiceS(ip1jmp1)
     87      REAL cloudfracS(ip1jmp1,llm),totalcloudfracS(ip1jmp1)
     88
    8089c Variables intermediaires : vent naturel, mais pas coord scalaire
    8190c----------------------------------------------------------------
    … …  
    127136
    128137      CALL phyetat0 (fichnom,0,Lmodif,nsoilmx,nqmx,day_ini_fi,timefi,
    129      .      tsurf,tsoil,emis,q2,qsurf)
     138     .      tsurf,tsoil,emis,q2,qsurf,
     139!       change FF 05/2011
     140     .       cloudfrac,totalcloudfrac,hice)
     141
     142
    130143
    131144       ierr = NF_OPEN (fichnom, NF_NOWRITE,nid1)
    … …  
    233246      call gr_fi_dyn(llm+1,ngridmx,iip1,jjp1,q2,q2S)
    234247      call gr_fi_dyn(nqmx,ngridmx,iip1,jjp1,qsurf,qsurfS)
     248      call gr_fi_dyn(llm,ngridmx,iip1,jjp1,cloudfrac,cloudfracS)
     249      call gr_fi_dyn(1,ngridmx,iip1,jjp1,hice,hiceS)
     250      call gr_fi_dyn(1,ngridmx,iip1,jjp1,totalcloudfrac,totalcloudfracS)
    235251
    236252c=======================================================================
    … …  
    376392! Note: no need to write volcapa, it is stored in "controle" table
    377393
     394c-----------------------------------------------------------------------
     395c Ecriture du champs  cloudfrac,hice,totalcloudfrac
     396c-----------------------------------------------------------------------
     397      call write_archive(nid,ntime,'hice',
     398     &         'Height of oceanic ice','m',2,hiceS)
     399      call write_archive(nid,ntime,'totalcloudfrac',
     400     &        'Total cloud Fraction','',2,totalcloudfracS)
     401      call write_archive(nid,ntime,'cloudfrac'
     402     &        ,'Cloud fraction','',3,cloudfracS)
     403c-----------------------------------------------------------------------
     404c Fin
     405c-----------------------------------------------------------------------
    378406      ierr=NF_CLOSE(nid)
    379 c-----------------------------------------------------------------------
    380 c Fin
    381 c-----------------------------------------------------------------------
    382407
    383408      end

  • trunk/LMDZ.GENERIC/libf/dyn3d/tracvl.F

    r135 r253  
    7272c   Test pour savoir si on advecte a ce pas de temps
    7373      IF ( iadvtr.EQ.iapp_tracvl ) THEN
     74!      print*,'WARNING: ALL TRACER ADVECTION HALTED IN TRACVL.F'
     75!         if(2.eq.1)then
     76
    7477
    7578cc   ..  Modif P.Le Van  ( 20/12/97 )  ....

  • trunk/LMDZ.GENERIC/libf/filtrez/parafilt.h

    r135 r253  
    2121c      PARAMETER (nfilun=18, nfilus=17, nfilvn=17, nfilvs=17) !!NO fxyhyper
    2222!!        PARAMETER (nfilun=9,nfilus=8,nfilvn=8,nfilvs=8)
    23         PARAMETER (nfilun=9,nfilus=9,nfilvn=9,nfilvs=9)
     23!        PARAMETER (nfilun=9,nfilus=9,nfilvn=9,nfilvs=9)
     24
     25        PARAMETER (nfilun=11,nfilus=11,nfilvn=11,nfilvs=11)
     26!        PARAMETER (nfilun=12,nfilus=12,nfilvn=12,nfilvs=12)
     27
     28
    2429c 96 72 19 non-zoom:
    2530ccc      PARAMETER (nfilun=12, nfilus=11, nfilvn=12, nfilvs=12)

  • trunk/LMDZ.GENERIC/libf/phystd/aeropacity.F90

    r135 r253  
    1       subroutine aeropacity(ngrid,nlayer,nq,pplev,pq, &
    2          aerosol,reffrad,QREFvis3d,QREFir3d,tau_col)
    3 
    4        use radinc_h, only : naerkind
     1      Subroutine aeropacity(ngrid,nlayer,nq,pplay,pplev,pq, &
     2         aerosol,reffrad,QREFvis3d,QREFir3d,tau_col,cloudfrac,totcloudfrac,clearsky)
     3
     4       use radinc_h, only : naerkind, L_TAUMAX
    55                 
    66       implicit none
    … …  
    4646      INTEGER ngrid,nlayer,nq
    4747
     48      REAL pplay(ngrid,nlayer)
    4849      REAL pplev(ngrid,nlayer+1)
    4950      REAL pq(ngrid,nlayer,nq)
    … …  
    5354      REAL QREFir3d(ngridmx,nlayermx,naerkind)
    5455
    55       REAL tauref(ngrid), tau_col(ngrid)
     56      REAL tau_col(ngrid)
     57!      REAL tauref(ngrid), tau_col(ngrid)
     58
     59      real cloudfrac(ngridmx,nlayermx)
     60      real aerosol0
    5661
    5762      INTEGER l,ig,iq,iaer
    … …  
    6873      CHARACTER(LEN=20) :: tracername ! to temporarily store text
    6974
    70 
    71 ! identify tracers
     75      ! for fixed dust profiles
     76      real topdust, expfactor, zp
     77      REAL taudusttmp(ngridmx) ! Temporary dust opacity used before scaling
     78
     79      ! BENJAMIN MODIFS
     80      real CLFtot,CLF1,CLF2
     81      real totcloudfrac(ngridmx)
     82      logical clearsky
     83
     84      ! identify tracers
    7285      IF (firstcall) THEN
    7386
    74          ! are these tests of any real use?
     87         ! are these tests of any real use ?
    7588        IF(ngrid.NE.ngridmx) THEN
    7689            PRINT*,'STOP in aeropacity!'
    … …  
    8699           stop
    87100        endif
    88 
    89101
    90102        do iq=1,nqmx
    … …  
    101113        write(*,*) "            i_h2oice=",i_h2oice
    102114       
    103         !if((i_h2oice.lt.1) .and. (naerkind.gt.1))then
    104         !   print*,'naerkind > 1 but no h2o ice, this will not work.'
    105         !   stop
    106         !endif
     115      if(watercond.and.(.not.aerofixed))then
     116         if(naerkind.lt.2)then
     117            print*,'Cannot have active H2O clouds with naerkind less than 2!'
     118            call abort
     119         endif
     120      endif
     121
     122      if(dusttau.gt.0.0)then
     123         if(naerkind.lt.3)then
     124            print*,'Cannot have active dust with naerkind less than 3!'
     125            call abort
     126         endif
     127      endif
    107128
    108129        firstcall=.false.
    … …  
    110131
    111132
    112       aerosol(:,:,:)=0.0
    113 
    114133      DO iaer = 1, naerkind ! Loop on aerosol kind (NOT tracer)
    115134!     ---------------------------------------------------------
    116         aerkind: SELECT CASE (iaer)
    117 !==================================================================
    118         CASE(1) aerkind                          ! CO2 ice (iaer=1)
     135         aerkind: SELECT CASE (iaer)
     136!==================================================================
     137         CASE(1) aerkind                         ! CO2 ice (iaer=1)
    119138!==================================================================
    120139
    121140!       1. Initialization
    122         CALL zerophys(ngrid*nlayer,aerosol(1,1,iaer))
     141            aerosol(:,:,iaer)=0.0
    123142
    124143!       2. Opacity calculation
    125         if (aerofixed.or.(i_co2ice.eq.0)) then !  CO2 ice cloud prescribed
    126            do ig=1, ngrid
    127               do l=1,nlayer
    128                  aerosol(ig,l,iaer) =1.e-9
    129               end do
    130               aerosol(ig,14,iaer)=1.e-9 ! single cloud layer option
    131            end do
    132         else
    133            DO ig=1, ngrid
    134               DO l=1,nlayer
    135                  aerosol(ig,l,iaer) =                   &
    136                       (  0.75 * QREFvis3d(ig,l,iaer) /  &
    137                       ( rho_co2 * reffrad(ig,l,iaer) )  ) * &
    138                       ( pq(ig,l,i_co2ice) + 1.E-9 ) *   &
    139                       ( pplev(ig,l) - pplev(ig,l+1) ) / g
    140               ENDDO
    141            ENDDO
    142         end if
    143 
    144 !==================================================================
    145         CASE(2) aerkind               ! Water ice crystals (iaer=2)
    146 !==================================================================
    147 
     144            if (aerofixed.or.(i_co2ice.eq.0)) then !  CO2 ice cloud prescribed
     145               do ig=1, ngrid
     146                  do l=1,nlayer
     147                     aerosol(ig,l,iaer)=1.e-9
     148                  end do
     149                  !aerosol(ig,12,iaer)=4.0 ! single cloud layer option
     150               end do
     151            else
     152               DO ig=1, ngrid
     153                  DO l=1,nlayer-1 ! to stop the rad tran bug
     154
     155                     aerosol0 =                         &
     156                          (  0.75 * QREFvis3d(ig,l,iaer) /        &
     157                          ( rho_co2 * reffrad(ig,l,iaer) )  ) *   &
     158                          ( pq(ig,l,i_co2ice) + 1.E-9 ) *         &
     159                          ( pplev(ig,l) - pplev(ig,l+1) ) / g
     160                     aerosol0           = max(aerosol0,1.e-9)
     161                     aerosol0           = min(aerosol0,L_TAUMAX)
     162                     aerosol(ig,l,iaer) = aerosol0
     163!                     aerosol(ig,l,iaer) = 0.0
     164
     165!        using cloud fraction
     166!                     aerosol(ig,l,iaer) = -log(1 - CLF + CLF*exp(-aerosol0/CLF))
     167!                     aerosol(ig,l,iaer) = min(aerosol(ig,l,iaer),L_TAUMAX)
     168
     169
     170                  ENDDO
     171               ENDDO
     172            end if
     173           
     174!==================================================================
     175         CASE(2) aerkind              ! Water ice / liquid (iaer=2)
     176!==================================================================
    148177
    149178!       1. Initialization
    150         CALL zerophys(ngrid*nlayer,aerosol(1,1,iaer))
     179            aerosol(:,:,iaer)=0.0
    151180
    152181!       2. Opacity calculation
    153 !     if (1.eq.1) then
    154      if (aerofixed.or.(i_h2oice.eq.0)) then
    155 !        print*,'No H2O clouds in the radiative transfer!'
    156         do ig=1, ngrid
    157            do l=1,nlayer
    158               aerosol(ig,l,iaer) =1.e-9
    159            end do
    160            aerosol(ig,5,iaer)=1.e-9 ! single cloud layer option
    161         end do
    162      else
    163         DO ig=1, ngrid
    164           DO l=1,nlayer
    165              aerosol(ig,l,iaer) =                   &
    166             (  0.75 * QREFvis3d(ig,l,iaer) /        &
    167               ( rho_ice * reffrad(ig,l,iaer) )  ) * &
    168               ( pq(ig,l,i_h2oice) + 1.E-9 ) *   &
    169               ( pplev(ig,l) - pplev(ig,l+1) ) / g
    170           ENDDO
    171         ENDDO
    172 
    173      end if
    174 
    175 
    176 !==================================================================
    177         END SELECT aerkind
    178 
     182            if (aerofixed.or.(i_h2oice.eq.0).or.clearsky) then
     183               do ig=1, ngrid ! to stop the rad tran bug
     184                  do l=1,nlayer
     185                     aerosol(ig,l,iaer) =1.e-9
     186                  end do
     187               end do
     188            else
     189               do ig=1, ngrid
     190                  do l=1,nlayer-1 ! to stop the rad tran bug
     191
     192                     if(CLFvarying)then
     193                        CLF1    = max(cloudfrac(ig,l),0.01)
     194                        CLFtot  = max(totcloudfrac(ig),0.01)
     195                        CLF2    = CLF1/CLFtot
     196                        CLF2    = min(1.,CLF2)
     197                     else
     198                        CLF1=1.0
     199                        CLF2=CLFfixval
     200                     endif
     201                     
     202                     aerosol0 =                                   &
     203                          (  0.75 * QREFvis3d(ig,l,iaer) /        &
     204                          ( rho_ice * reffrad(ig,l,iaer) )  ) *   &
     205                          ( pq(ig,l,i_h2oice) + 1.E-9 ) *         &
     206                          ( pplev(ig,l) - pplev(ig,l+1) ) / g /   &
     207                            CLF1
     208
     209                     aerosol(ig,l,iaer) = -log(1 - CLF2 + CLF2*exp(-aerosol0))
     210                     ! why no division in exponential?
     211                     ! because its already done in aerosol0
     212                     
     213                     aerosol(ig,l,iaer) = max(aerosol(ig,l,iaer),1.e-9)
     214                     aerosol(ig,l,iaer) = min(aerosol(ig,l,iaer),aerosol0)                     
     215                     
     216                  enddo
     217               enddo
     218            end if
     219
     220
     221!==================================================================
     222         CASE(3) aerkind                            ! Dust (iaer=3)
     223!==================================================================
     224
     225!       1. Initialization
     226            aerosol(:,:,iaer)=0.0
     227
     228            topdust=10.0 ! km
     229
     230            print*,'WARNING, dust is experimental for Early Mars'
     231
     232!       2. Opacity calculation
     233
     234            do l=1,nlayer
     235               do ig=1,ngrid-1 ! to stop the rad tran bug
     236                  zp=700./pplay(ig,l)
     237                  aerosol(ig,l,1)=(dusttau/700.)*(pplev(ig,l)-pplev(ig,l+1)) &
     238                       *max( exp(.03*(1.-max(zp,1.))) , 1.E-3 ) &
     239                       *QREFvis3d(ig,l,iaer) / QREFvis3d(ig,1,iaer)
     240                  ! takes into account particle variation
     241              enddo
     242            enddo
     243
     244!==================================================================
     245         END SELECT aerkind
    179246      ENDDO ! iaer (loop on aerosol kind)
    180247
    … …  
    183250! Column integrated visible optical depth in each point (used for diagnostic)
    184251
    185       call zerophys(ngrid,tau_col)
     252      tau_col(:)=0.0
    186253      do iaer = 1, naerkind
    187254         do l=1,nlayer
    … …  
    192259      end do
    193260
     261      do ig=1, ngrid
     262         do l=1,nlayer
     263            do iaer = 1, naerkind
     264               if(aerosol(ig,l,iaer).gt.1.e3)then
     265                  print*,'WARNING: aerosol=',aerosol(ig,l,iaer)
     266                  print*,'at ig=',ig,',  l=',l,', iaer=',iaer
     267                  print*,'QREFvis3d=',QREFvis3d(ig,l,iaer)
     268                  print*,'reffrad=',reffrad(ig,l,iaer)
     269               endif
     270            end do
     271         end do
     272      end do
     273
     274      do ig=1, ngrid
     275         if(tau_col(ig).gt.1.e3)then
     276            print*,'WARNING: tau_col=',tau_col(ig)
     277            print*,'at ig=',ig
     278            print*,'aerosol=',aerosol(ig,:,:)
     279            print*,'QREFvis3d=',QREFvis3d(ig,:,:)
     280            print*,'reffrad=',reffrad(ig,:,:)
     281         endif
     282      end do
     283
    194284      return
    195285    end subroutine aeropacity

  • trunk/LMDZ.GENERIC/libf/phystd/aeroptproperties.F90

    r135 r253  
    1       subroutine aeroptproperties(ngrid,nlayer,reffrad,nueffrad, &
    2                                  QVISsQREF3d,omegaVIS3d,gVIS3d, &
    3                                  QIRsQREF3d,omegaIR3d,gIR3d,    &
    4                                  QREFvis3d,QREFir3d)
     1      SUBROUTINE aeroptproperties(ngrid,nlayer,reffrad,nueffrad,   &
     2                                  QVISsQREF3d,omegaVIS3d,gVIS3d,   &
     3                                  QIRsQREF3d,omegaIR3d,gIR3d,      &
     4                                  QREFvis3d,QREFir3d)!,            &
     5!                                  omegaREFvis3d,omegaREFir3d)
    56
    67      use radinc_h,    only: L_NSPECTI,L_NSPECTV,naerkind,nsizemax
    78      use radcommon_h, only: QVISsQREF,omegavis,gvis,QIRsQREF,omegair,gir
    8       use radcommon_h, only: radiustab,nsize,qrefvis,qrefir
     9      use radcommon_h, only: qrefvis,qrefir,omegarefvis,omegarefir
     10      use radcommon_h, only: radiustab,nsize
    911
    1012      implicit none
    1113
    12 !==================================================================
    13 !     
    14 !     Purpose
    15 !     -------
    16 !     Compute the scattering parameters in each grid
    17 !     box, depending on aerosol grain sizes.
     14!     =============================================================
     15!     Aerosol Optical Properties
    1816!
    19 !     Notes
    20 !     -----
    21 !     Don't forget to set the value of varyingnueff below; If
    22 !     the effective variance of the distribution for the given
    23 !     aerosol is considered homogeneous in the atmosphere, please
    24 !     set varyingnueff(iaer) to .false. Resulting computational
    25 !     time will be much better.
    26 !
    27 !     Authors
    28 !     -------
    29 !     J.-B. Madeleine, F. Montmessin
     17!     Description:
     18!       Compute the scattering parameters in each grid
     19!       box, depending on aerosol grain sizes. Log-normal size
     20!       distribution and Gauss-Legendre integration are used.
     21
     22!     Parameters:
     23!       Don't forget to set the value of varyingnueff below; If
     24!       the effective variance of the distribution for the given
     25!       aerosol is considered homogeneous in the atmosphere, please
     26!       set varyingnueff(iaer) to .false. Resulting computational
     27!       time will be much better.
     28
     29!     Authors: J.-B. Madeleine, F. Forget, F. Montmessin
    3030!     Slightly modified and converted to F90 by R. Wordsworth (2009)
    3131!     Varying nueff section removed by R. Wordsworth for simplicity
    32 !     
    33 !==================================================================
     32!     ==============================================================
    3433
    3534#include "dimensions.h"
    … …  
    4039!     ---------------
    4140
     41
     42
    4243!     =============================================================
    4344      LOGICAL, PARAMETER :: varyingnueff(naerkind) = .false.
    4445!     =============================================================
    4546
    46 !     Radius axis used for integration
    47       DOUBLE PRECISION :: radiusint(nsizemax+1)
    48 !     Min. and max radii of the interpolation grid (in METERS)
    49       REAL, PARAMETER :: refftabmin = 2e-8
     47!     Min. and max radius of the interpolation grid (in METERS)
     48      REAL, PARAMETER :: refftabmin = 2e-8 !2e-8
    5049!      REAL, PARAMETER :: refftabmax = 35e-6
    51       REAL, PARAMETER :: refftabmax = 1e-3 ! CHANGED BY RDW
     50      REAL, PARAMETER :: refftabmax = 1e-3
    5251!     Log of the min and max variance of the interpolation grid
    5352      REAL, PARAMETER :: nuefftabmin = -4.6
    5453      REAL, PARAMETER :: nuefftabmax = 0.
    55 !     Number of effective radii of the interpolation grid
     54!     Number of effective radius of the interpolation grid
    5655      INTEGER, PARAMETER :: refftabsize = 200
    5756!     Number of effective variances of the interpolation grid
    5857!      INTEGER, PARAMETER :: nuefftabsize = 100
    59       INTEGER, PARAMETER :: nuefftabsize = 1  ! CHANGED BY RDW
     58      INTEGER, PARAMETER :: nuefftabsize = 1
    6059!     Interpolation grid indices (reff,nueff)
    6160      INTEGER :: grid_i,grid_j
    62 !     Volume ratio of the look-up table (different in VIS and IR)
    63       DOUBLE PRECISION :: vrat
    64 !     r_g and sigma_g for the log-normal distribution
    65 !       as defined by [hansen_1974]
    66       REAL :: r_g,sigma_g
    67 !     Error function used for integration
    68       DOUBLE PRECISION :: derf
    69 !     Density function f(x)dx of the log-normal distribution
    70       REAL :: dfi
    71       DOUBLE PRECISION :: dfi_tmp(nsizemax+1)
    7261!     Intermediate variable
    7362      REAL :: var_tmp,var3d_tmp(ngridmx,nlayermx)
    7463!     Bilinear interpolation factors
    7564      REAL :: kx,ky,k1,k2,k3,k4
     65!     Size distribution parameters
     66      REAL :: sizedistk1,sizedistk2
     67!     Pi!
     68      REAL,SAVE :: pi
     69!     Variables used by the Gauss-Legendre integration:
     70      INTEGER radius_id,gausind
     71      REAL kint
     72      REAL drad
     73      INTEGER, PARAMETER :: ngau = 10
     74      REAL weightgaus(ngau),radgaus(ngau)
     75      SAVE weightgaus,radgaus
     76!      DATA weightgaus/.2955242247,.2692667193,.2190863625,.1494513491,.0666713443/
     77!      DATA radgaus/.1488743389,.4333953941,.6794095682,.8650633666,.9739065285/
     78      DATA    radgaus/0.07652652113350,0.22778585114165, &
     79                      0.37370608871528,0.51086700195146, &
     80                      0.63605368072468,0.74633190646476, &
     81                      0.83911697181213,0.91223442826796, &
     82                      0.96397192726078,0.99312859919241/
     83
     84      DATA weightgaus/0.15275338723120,0.14917298659407, &
     85                      0.14209610937519,0.13168863843930, &
     86                      0.11819453196154,0.10193011980823, &
     87                      0.08327674160932,0.06267204829828, &
     88                      0.04060142982019,0.01761400714091/
    7689!     Indices
    7790      INTEGER :: i,j,k,l,m,iaer,idomain
    … …  
    8295
    8396!     Radius axis of the interpolation grid
    84       DOUBLE PRECISION,SAVE :: refftab(refftabsize)
     97      REAL,SAVE :: refftab(refftabsize)
    8598!     Variance axis of the interpolation grid
    86       DOUBLE PRECISION,SAVE :: nuefftab(nuefftabsize)
     99      REAL,SAVE :: nuefftab(nuefftabsize)
    87100!     Volume ratio of the grid
    88       DOUBLE PRECISION,SAVE :: logvratgrid,vratgrid
     101      REAL,SAVE :: logvratgrid,vratgrid
    89102!     Grid used to remember which calculation is done
    90       LOGICAL,SAVE :: checkgrid(refftabsize,nuefftabsize,naerkind,2) &
    91                      = .false.
     103      LOGICAL,SAVE :: checkgrid(refftabsize,nuefftabsize,naerkind,2) = .false.
    92104!     Optical properties of the grid (VISIBLE)
    93       REAL,SAVE :: epVISgrid(refftabsize,nuefftabsize,L_NSPECTV,naerkind)
     105      REAL,SAVE :: qsqrefVISgrid(refftabsize,nuefftabsize,L_NSPECTV,naerkind)
     106      REAL,SAVE :: qextVISgrid(refftabsize,nuefftabsize,L_NSPECTV,naerkind)
     107      REAL,SAVE :: qscatVISgrid(refftabsize,nuefftabsize,L_NSPECTV,naerkind)
    94108      REAL,SAVE :: omegVISgrid(refftabsize,nuefftabsize,L_NSPECTV,naerkind)
    95109      REAL,SAVE :: gVISgrid(refftabsize,nuefftabsize,L_NSPECTV,naerkind)
    96110!     Optical properties of the grid (INFRARED)
    97       REAL,SAVE :: epIRgrid(refftabsize,nuefftabsize,L_NSPECTI,naerkind)
     111      REAL,SAVE :: qsqrefIRgrid(refftabsize,nuefftabsize,L_NSPECTI,naerkind)
     112      REAL,SAVE :: qextIRgrid(refftabsize,nuefftabsize,L_NSPECTI,naerkind)
     113      REAL,SAVE :: qscatIRgrid(refftabsize,nuefftabsize,L_NSPECTI,naerkind)
    98114      REAL,SAVE :: omegIRgrid(refftabsize,nuefftabsize,L_NSPECTI,naerkind)
    99115      REAL,SAVE :: gIRgrid(refftabsize,nuefftabsize,L_NSPECTI,naerkind)
    100116!     Optical properties of the grid (REFERENCE WAVELENGTHS)
    101       REAL,SAVE :: eprefVISgrid(refftabsize,nuefftabsize,naerkind)
    102       REAL,SAVE :: eprefIRgrid(refftabsize,nuefftabsize,naerkind)
     117      REAL,SAVE :: qrefVISgrid(refftabsize,nuefftabsize,naerkind)
     118      REAL,SAVE :: qscatrefVISgrid(refftabsize,nuefftabsize,naerkind)
     119      REAL,SAVE :: qrefIRgrid(refftabsize,nuefftabsize,naerkind)
     120      REAL,SAVE :: qscatrefIRgrid(refftabsize,nuefftabsize,naerkind)
     121      REAL,SAVE :: omegrefVISgrid(refftabsize,nuefftabsize,naerkind)
     122      REAL,SAVE :: omegrefIRgrid(refftabsize,nuefftabsize,naerkind)
    103123!     Firstcall
    104124      LOGICAL,SAVE :: firstcall = .true.
     125!     Variables used by the Gauss-Legendre integration:
     126      REAL,SAVE :: normd(refftabsize,nuefftabsize,naerkind,2)
     127      REAL,SAVE :: dista(refftabsize,nuefftabsize,naerkind,2,ngau)
     128      REAL,SAVE :: distb(refftabsize,nuefftabsize,naerkind,2,ngau)
     129
     130      REAL,SAVE :: radGAUSa(ngau,naerkind,2)
     131      REAL,SAVE :: radGAUSb(ngau,naerkind,2)
     132
     133      REAL,SAVE :: qsqrefVISa(L_NSPECTV,ngau,naerkind)
     134      REAL,SAVE :: qrefVISa(ngau,naerkind)
     135      REAL,SAVE :: qsqrefVISb(L_NSPECTV,ngau,naerkind)
     136      REAL,SAVE :: qrefVISb(ngau,naerkind)
     137      REAL,SAVE :: omegVISa(L_NSPECTV,ngau,naerkind)
     138      REAL,SAVE :: omegrefVISa(ngau,naerkind)
     139      REAL,SAVE :: omegVISb(L_NSPECTV,ngau,naerkind)
     140      REAL,SAVE :: omegrefVISb(ngau,naerkind)
     141      REAL,SAVE :: gVISa(L_NSPECTV,ngau,naerkind)
     142      REAL,SAVE :: gVISb(L_NSPECTV,ngau,naerkind)
     143
     144      REAL,SAVE :: qsqrefIRa(L_NSPECTI,ngau,naerkind)
     145      REAL,SAVE :: qrefIRa(ngau,naerkind)
     146      REAL,SAVE :: qsqrefIRb(L_NSPECTI,ngau,naerkind)
     147      REAL,SAVE :: qrefIRb(ngau,naerkind)
     148      REAL,SAVE :: omegIRa(L_NSPECTI,ngau,naerkind)
     149      REAL,SAVE :: omegrefIRa(ngau,naerkind)
     150      REAL,SAVE :: omegIRb(L_NSPECTI,ngau,naerkind)
     151      REAL,SAVE :: omegrefIRb(ngau,naerkind)
     152      REAL,SAVE :: gIRa(L_NSPECTI,ngau,naerkind)
     153      REAL,SAVE :: gIRb(L_NSPECTI,ngau,naerkind)
     154
     155      REAL :: radiusm
     156      REAL :: radiusr
    105157
    106158!     Inputs
    … …  
    127179      REAL :: QREFir3d(ngridmx,nlayermx,naerkind)
    128180
     181      REAL :: omegaREFvis3d(ngridmx,nlayermx,naerkind)
     182      REAL :: omegaREFir3d(ngridmx,nlayermx,naerkind)
     183
    129184      DO iaer = 1, naerkind ! Loop on aerosol kind
    130 
    131185        IF ( (nsize(iaer,1).EQ.1).AND.(nsize(iaer,2).EQ.1) ) THEN
    132 
    133186!==================================================================
    134187!       If there is one single particle size, optical
    … …  
    148201              QREFvis3d(ig,lg,iaer)=QREFvis(iaer,1)
    149202              QREFir3d(ig,lg,iaer)=QREFir(iaer,1)
     203              omegaREFvis3d(ig,lg,iaer)=omegaREFvis(iaer,1)
     204              omegaREFir3d(ig,lg,iaer)=omegaREFir(iaer,1)
    150205            ENDDO
    151206          ENDDO
     207
    152208
    153209          if (firstcall) then
    … …  
    162218!     --------------------------------------------------
    163219      IF (firstcall) THEN
    164 !       1.1 Effective radius
     220
     221!       1.1 Pi!
     222        pi = 2. * asin(1.e0)
     223
     224!       1.2 Effective radius
    165225        refftab(1)    = refftabmin
    166226        refftab(refftabsize) = refftabmax
    167227
    168         logvratgrid = log(refftabmax/refftabmin) / &
    169                      float(refftabsize-1)*3.
     228        logvratgrid = log(refftabmax/refftabmin) / float(refftabsize-1)*3.
    170229        vratgrid = exp(logvratgrid)
    171230
    … …  
    174233        enddo
    175234
    176 !       1.2 Effective variance
    177         do i = 0, nuefftabsize-1
    178           nuefftab(i+1) = exp( nuefftabmin + &
    179                   i*(nuefftabmax-nuefftabmin)/(nuefftabsize-1) )
    180         enddo
     235!       1.3 Effective variance
     236        if(nuefftabsize.eq.1)then ! addded by RDW
     237           print*,'Warning: no variance range in aeroptproperties'
     238           nuefftab(1)=0.2
     239        else
     240           do i = 0, nuefftabsize-1
     241              nuefftab(i+1) = exp( nuefftabmin + i*(nuefftabmax-nuefftabmin)/(nuefftabsize-1) )
     242           enddo
     243        endif
     244
    181245        firstcall = .false.
    182246      ENDIF
    183247
    184 
     248!       1.4 Radius middle point and range for Gauss integration
     249        radiusm=0.5*(radiustab(iaer,idomain,nsize(iaer,idomain)) + radiustab(iaer,idomain,1))
     250        radiusr=0.5*(radiustab(iaer,idomain,nsize(iaer,idomain)) - radiustab(iaer,idomain,1))
     251
     252!       1.5 Interpolating data at the Gauss quadrature points:
     253        DO gausind=1,ngau
     254          drad=radiusr*radgaus(gausind)
     255          radGAUSa(gausind,iaer,idomain)=radiusm-drad
     256
     257          radius_id=minloc(abs(radiustab(iaer,idomain,:) - (radiusm-drad)),DIM=1)
     258          IF ((radiustab(iaer,idomain,radius_id) - (radiusm-drad)).GT.0) THEN
     259            radius_id=radius_id-1
     260          ENDIF
     261          IF (radius_id.GE.nsize(iaer,idomain)) THEN
     262            radius_id=nsize(iaer,idomain)-1
     263            kint = 1.
     264          ELSEIF (radius_id.LT.1) THEN
     265            radius_id=1
     266            kint = 0.
     267          ELSE
     268          kint = ( (radiusm-drad) -                             &
     269                   radiustab(iaer,idomain,radius_id) ) /        &
     270                 ( radiustab(iaer,idomain,radius_id+1) -        &
     271                   radiustab(iaer,idomain,radius_id) )
     272          ENDIF
     273          IF (idomain.EQ.1) THEN ! VISIBLE DOMAIN -----------------
     274            DO m=1,L_NSPECTV
     275               qsqrefVISa(m,gausind,iaer)=                      &
     276                    (1-kint)*QVISsQREF(m,iaer,radius_id) +      &
     277                    kint*QVISsQREF(m,iaer,radius_id+1)
     278            omegVISa(m,gausind,iaer)=                           &
     279                    (1-kint)*omegaVIS(m,iaer,radius_id) +       &
     280                    kint*omegaVIS(m,iaer,radius_id+1)
     281            gVISa(m,gausind,iaer)=                              &
     282                    (1-kint)*gVIS(m,iaer,radius_id) +           &
     283                    kint*gVIS(m,iaer,radius_id+1)
     284            ENDDO
     285            qrefVISa(gausind,iaer)=                             &
     286                    (1-kint)*QREFvis(iaer,radius_id) +          &
     287                    kint*QREFvis(iaer,radius_id+1)
     288            omegrefVISa(gausind,iaer)=                          &
     289                    (1-kint)*omegaREFvis(iaer,radius_id) +      &
     290                    kint*omegaREFvis(iaer,radius_id+1)
     291          ELSE ! INFRARED DOMAIN ----------------------------------
     292            DO m=1,L_NSPECTI
     293            qsqrefIRa(m,gausind,iaer)=                          &
     294                    (1-kint)*QIRsQREF(m,iaer,radius_id) +       &
     295                    kint*QIRsQREF(m,iaer,radius_id+1)
     296            omegIRa(m,gausind,iaer)=                            &
     297                    (1-kint)*omegaIR(m,iaer,radius_id) +        &
     298                    kint*omegaIR(m,iaer,radius_id+1)
     299            gIRa(m,gausind,iaer)=                               &
     300                    (1-kint)*gIR(m,iaer,radius_id) +            &
     301                    kint*gIR(m,iaer,radius_id+1)
     302            ENDDO
     303            qrefIRa(gausind,iaer)=                              &
     304                    (1-kint)*QREFir(iaer,radius_id) +           &
     305                    kint*QREFir(iaer,radius_id+1)
     306            omegrefIRa(gausind,iaer)=                           &
     307                    (1-kint)*omegaREFir(iaer,radius_id) +       &
     308                    kint*omegaREFir(iaer,radius_id+1)
     309          ENDIF
     310        ENDDO
     311
     312        DO gausind=1,ngau
     313          drad=radiusr*radgaus(gausind)
     314          radGAUSb(gausind,iaer,idomain)=radiusm+drad
     315
     316          radius_id=minloc(abs(radiustab(iaer,idomain,:) -      &
     317                               (radiusm+drad)),DIM=1)
     318          IF ((radiustab(iaer,idomain,radius_id) -              &
     319               (radiusm+drad)).GT.0) THEN
     320            radius_id=radius_id-1
     321          ENDIF
     322          IF (radius_id.GE.nsize(iaer,idomain)) THEN
     323            radius_id=nsize(iaer,idomain)-1
     324            kint = 1.
     325          ELSEIF (radius_id.LT.1) THEN
     326            radius_id=1
     327            kint = 0.
     328          ELSE
     329            kint = ( (radiusm+drad) -                           &
     330                     radiustab(iaer,idomain,radius_id) ) /      &
     331                   ( radiustab(iaer,idomain,radius_id+1) -      &
     332                     radiustab(iaer,idomain,radius_id) )
     333          ENDIF
     334          IF (idomain.EQ.1) THEN ! VISIBLE DOMAIN -----------------
     335            DO m=1,L_NSPECTV
     336            qsqrefVISb(m,gausind,iaer)=                         &
     337                    (1-kint)*QVISsQREF(m,iaer,radius_id) +      &
     338                    kint*QVISsQREF(m,iaer,radius_id+1)   
     339            omegVISb(m,gausind,iaer)=                           &
     340                    (1-kint)*omegaVIS(m,iaer,radius_id) +       &
     341                    kint*omegaVIS(m,iaer,radius_id+1)
     342            gVISb(m,gausind,iaer)=                              &
     343                    (1-kint)*gVIS(m,iaer,radius_id) +           &
     344                    kint*gVIS(m,iaer,radius_id+1)
     345            ENDDO
     346            qrefVISb(gausind,iaer)=                             &
     347                    (1-kint)*QREFvis(iaer,radius_id) +          &
     348                    kint*QREFvis(iaer,radius_id+1)
     349            omegrefVISb(gausind,iaer)=                          &
     350                    (1-kint)*omegaREFvis(iaer,radius_id) +      &
     351                    kint*omegaREFvis(iaer,radius_id+1)
     352          ELSE ! INFRARED DOMAIN ----------------------------------
     353            DO m=1,L_NSPECTI
     354            qsqrefIRb(m,gausind,iaer)=                          &
     355                    (1-kint)*QIRsQREF(m,iaer,radius_id) +       &
     356                    kint*QIRsQREF(m,iaer,radius_id+1)
     357            omegIRb(m,gausind,iaer)=                            &
     358                    (1-kint)*omegaIR(m,iaer,radius_id) +        &
     359                    kint*omegaIR(m,iaer,radius_id+1)
     360            gIRb(m,gausind,iaer)=                               &
     361                    (1-kint)*gIR(m,iaer,radius_id) +            &
     362                    kint*gIR(m,iaer,radius_id+1)
     363            ENDDO
     364            qrefIRb(gausind,iaer)=                              &
     365                    (1-kint)*QREFir(iaer,radius_id) +           &
     366                    kint*QREFir(iaer,radius_id+1)
     367            omegrefIRb(gausind,iaer)=                           &
     368                    (1-kint)*omegaREFir(iaer,radius_id) +       &
     369                    kint*omegaREFir(iaer,radius_id+1)
     370          ENDIF
     371        ENDDO
     372
     373!==================================================================
     374! CONSTANT NUEFF FROM HERE
     375!==================================================================
    185376
    186377!     2. Compute the scattering parameters using linear
    187378!       interpolation over grain sizes and constant nueff
    188379!     ---------------------------------------------------
    189 
    190 !     2.1 Initialization
    191 
    192       vrat = log(radiustab(iaer,idomain,nsize(iaer,idomain)) / &
    193               radiustab(iaer,idomain,1)) / &
    194               float(nsize(iaer,idomain)-1)*3.
    195       vrat = exp(vrat)
    196 
    197       radiusint(1) = 1.e-9
    198       DO i = 2,nsize(iaer,idomain)
    199         radiusint(i) = ( (2.*vrat) / (vrat+1.) )**(1./3.) * &
    200                       radiustab(iaer,idomain,i-1)
    201       ENDDO
    202       radiusint(nsize(iaer,idomain)+1) = 1.e-2
    203380
    204381      DO lg = 1,nlayer
    … …  
    210387          grid_i=floor(var_tmp)
    211388          IF (grid_i.GE.refftabsize) THEN
    212            WRITE(*,*) 'Warning: Aerosol particle size in grid box #'
    213            WRITE(*,*) ig,' is too large to be used by the '
    214            WRITE(*,*) 'radiative transfer; please extend the '
    215            WRITE(*,*) 'interpolation grid to larger sizes.'
    216 
     389!           WRITE(*,*) 'Warning: particle size in grid box #'
     390!           WRITE(*,*) ig,' is too large to be used by the '
     391!           WRITE(*,*) 'radiative transfer; please extend the '
     392!           WRITE(*,*) 'interpolation grid to larger grain sizes.'
    217393            grid_i=refftabsize-1
    218394            kx = 1.
    219395          ELSEIF (grid_i.LT.1) THEN
    220            WRITE(*,*) 'Warning: Aerosol particle size in grid box #'
    221            WRITE(*,*) ig,' is too small to be used by the '
    222            WRITE(*,*) 'radiative transfer; please extend the '
    223            WRITE(*,*) 'interpolation grid to smaller sizes.'
     396!           WRITE(*,*) 'Warning: particle size in grid box #'
     397!           WRITE(*,*) ig,' is too small to be used by the '
     398!           WRITE(*,*) 'radiative transfer; please extend the '
     399!           WRITE(*,*) 'interpolation grid to smaller grain sizes.'
    224400            grid_i=1
    225401            kx = 0.
    226402          ELSE
    227             kx = ( reffrad(ig,lg,iaer)-refftab(grid_i) ) / &
    228                 ( refftab(grid_i+1)-refftab(grid_i) )
     403            kx = ( reffrad(ig,lg,iaer)-refftab(grid_i) ) /            &
     404                 ( refftab(grid_i+1)-refftab(grid_i) )
    229405          ENDIF
    230406!         2.3 Integration
    231407          DO j=grid_i,grid_i+1
    232 !             2.3.1 Check if the calculation has been completed
     408!             2.3.1 Check if the calculation has been done
    233409              IF (.NOT.checkgrid(j,1,iaer,idomain)) THEN
    234 !               2.3.2 Compute r_g and sigma_g for the log-normal
    235 !                 distribution as defined by [hansen_1974], "Light
    236 !                 scattering in planetary atmospheres", Space
    237 !                 Science Reviews 16 527-610, p558
    238                 sigma_g = log(1.+nueffrad(1,1,iaer))
    239                 r_g = exp(2.5*sigma_g)
    240                 sigma_g = sqrt(sigma_g)
    241                 r_g = refftab(j) / r_g
     410!               2.3.2 Log-normal dist., r_g and sigma_g are defined
     411!                 in [hansen_1974], "Light scattering in planetary
     412!                 atmospheres", Space Science Reviews 16 527-610.
     413!                 Here, sizedistk1=r_g and sizedistk2=sigma_g^2
     414                sizedistk2 = log(1.+nueffrad(1,1,iaer))
     415                sizedistk1 = exp(2.5*sizedistk2)
     416                sizedistk1 = refftab(j) / sizedistk1
     417
     418                normd(j,1,iaer,idomain) = 1e-30
     419                DO gausind=1,ngau
     420                  drad=radiusr*radgaus(gausind)
     421                  dista(j,1,iaer,idomain,gausind) = LOG((radiusm-drad)/sizedistk1)
     422                  dista(j,1,iaer,idomain,gausind) =                   &
     423                    EXP(-dista(j,1,iaer,idomain,gausind) *            &
     424                    dista(j,1,iaer,idomain,gausind) *                 &
     425                    0.5e0/sizedistk2)/(radiusm-drad)                 
     426                  dista(j,1,iaer,idomain,gausind) =                   &
     427                    dista(j,1,iaer,idomain,gausind) /                 &
     428                    (sqrt(2e0*pi*sizedistk2))
     429
     430                  distb(j,1,iaer,idomain,gausind) = LOG((radiusm+drad)/sizedistk1)
     431                  distb(j,1,iaer,idomain,gausind) =                   &
     432                    EXP(-distb(j,1,iaer,idomain,gausind) *            &
     433                    distb(j,1,iaer,idomain,gausind) *                 &
     434                    0.5e0/sizedistk2)/(radiusm+drad)
     435                  distb(j,1,iaer,idomain,gausind) =                   &
     436                    distb(j,1,iaer,idomain,gausind) /                 &
     437                    (sqrt(2e0*pi*sizedistk2))
     438
     439                  normd(j,1,iaer,idomain)=normd(j,1,iaer,idomain) +   &
     440                    weightgaus(gausind) *                             &
     441                    (                                                 &
     442                    distb(j,1,iaer,idomain,gausind) * pi *            &
     443                    radGAUSb(gausind,iaer,idomain) *                  &
     444                    radGAUSb(gausind,iaer,idomain) +                  &
     445                    dista(j,1,iaer,idomain,gausind) * pi *            &
     446                    radGAUSa(gausind,iaer,idomain) *                  &
     447                    radGAUSa(gausind,iaer,idomain)                    &
     448                    )
     449                ENDDO
    242450                IF (idomain.EQ.1) THEN ! VISIBLE DOMAIN -----------
    243451!                 2.3.3.vis Initialization
    244                   epVISgrid(j,1,:,iaer)=0.
     452                  qsqrefVISgrid(j,1,:,iaer)=0.
     453                  qextVISgrid(j,1,:,iaer)=0.
     454                  qscatVISgrid(j,1,:,iaer)=0.
    245455                  omegVISgrid(j,1,:,iaer)=0.
    246456                  gVISgrid(j,1,:,iaer)=0.
    247                   eprefVISgrid(j,1,iaer)=0.
    248 !                 2.3.4.vis Log-normal distribution
    249                   DO l=1,nsize(iaer,idomain)+1
    250                     dfi_tmp(l) = log(radiusint(l)/r_g) /  &
    251                                 sqrt(2.)/sigma_g
     457                  qrefVISgrid(j,1,iaer)=0.
     458                  qscatrefVISgrid(j,1,iaer)=0.
     459                  omegrefVISgrid(j,1,iaer)=0.
     460
     461                  DO gausind=1,ngau
     462                    DO m=1,L_NSPECTV
     463!                     Convolution:
     464                      qextVISgrid(j,1,m,iaer) =              &
     465                        qextVISgrid(j,1,m,iaer) +            &
     466                        weightgaus(gausind) *                &
     467                        (                                    &
     468                        qsqrefVISb(m,gausind,iaer) *         &
     469                        qrefVISb(gausind,iaer) *             &
     470                        pi*radGAUSb(gausind,iaer,idomain) *  &
     471                        radGAUSb(gausind,iaer,idomain) *     &
     472                        distb(j,1,iaer,idomain,gausind) +    &
     473                        qsqrefVISa(m,gausind,iaer) *         &
     474                        qrefVISa(gausind,iaer) *             &
     475                        pi*radGAUSa(gausind,iaer,idomain) *  &
     476                        radGAUSa(gausind,iaer,idomain) *     &
     477                        dista(j,1,iaer,idomain,gausind)      &
     478                        )
     479                      qscatVISgrid(j,1,m,iaer) =             &
     480                        qscatVISgrid(j,1,m,iaer) +           &
     481                        weightgaus(gausind) *                &
     482                        (                                    &
     483                        omegVISb(m,gausind,iaer) *           &
     484                        qsqrefVISb(m,gausind,iaer) *         &
     485                        qrefVISb(gausind,iaer) *             &
     486                        pi*radGAUSb(gausind,iaer,idomain) *  &
     487                        radGAUSb(gausind,iaer,idomain) *     &
     488                        distb(j,1,iaer,idomain,gausind) +    &
     489                        omegVISa(m,gausind,iaer) *           &
     490                        qsqrefVISa(m,gausind,iaer) *         &
     491                        qrefVISa(gausind,iaer) *             &
     492                        pi*radGAUSa(gausind,iaer,idomain) *  &
     493                        radGAUSa(gausind,iaer,idomain) *     &
     494                        dista(j,1,iaer,idomain,gausind)      &
     495                        )
     496                      gVISgrid(j,1,m,iaer) =                 &
     497                        gVISgrid(j,1,m,iaer) +               &
     498                        weightgaus(gausind) *                &
     499                        (                                    &
     500                        omegVISb(m,gausind,iaer) *           &
     501                        qsqrefVISb(m,gausind,iaer) *         &
     502                        qrefVISb(gausind,iaer) *             &
     503                        gVISb(m,gausind,iaer) *              &
     504                        pi*radGAUSb(gausind,iaer,idomain) *  &
     505                        radGAUSb(gausind,iaer,idomain) *     &
     506                        distb(j,1,iaer,idomain,gausind) +    &
     507                        omegVISa(m,gausind,iaer) *           &
     508                        qsqrefVISa(m,gausind,iaer) *         &
     509                        qrefVISa(gausind,iaer) *             &
     510                        gVISa(m,gausind,iaer) *              &
     511                        pi*radGAUSa(gausind,iaer,idomain) *  &
     512                        radGAUSa(gausind,iaer,idomain) *     &
     513                        dista(j,1,iaer,idomain,gausind)      &
     514                        )
     515                    ENDDO
     516                    qrefVISgrid(j,1,iaer) =                  &
     517                      qrefVISgrid(j,1,iaer) +                &
     518                      weightgaus(gausind) *                  &
     519                      (                                      &
     520                      qrefVISb(gausind,iaer) *               &
     521                      pi*radGAUSb(gausind,iaer,idomain) *    &
     522                      radGAUSb(gausind,iaer,idomain) *       &
     523                      distb(j,1,iaer,idomain,gausind) +      &
     524                      qrefVISa(gausind,iaer) *               &
     525                      pi*radGAUSa(gausind,iaer,idomain) *    &
     526                      radGAUSa(gausind,iaer,idomain) *       &
     527                      dista(j,1,iaer,idomain,gausind)        &
     528                      )
     529                    qscatrefVISgrid(j,1,iaer) =              &
     530                      qscatrefVISgrid(j,1,iaer) +            &
     531                      weightgaus(gausind) *                  &
     532                      (                                      &
     533                      omegrefVISb(gausind,iaer) *            &
     534                      qrefVISb(gausind,iaer) *               &
     535                      pi*radGAUSb(gausind,iaer,idomain) *    &
     536                      radGAUSb(gausind,iaer,idomain) *       &
     537                      distb(j,1,iaer,idomain,gausind) +      &
     538                      omegrefVISa(gausind,iaer) *            &
     539                      qrefVISa(gausind,iaer) *               &
     540                      pi*radGAUSa(gausind,iaer,idomain) *    &
     541                      radGAUSa(gausind,iaer,idomain) *       &
     542                      dista(j,1,iaer,idomain,gausind)        &
     543                      )
    252544                  ENDDO
    253                   DO l=1,nsize(iaer,idomain)
    254                     dfi = 0.5*( derf(dfi_tmp(l+1)) -  &
    255                                derf(dfi_tmp(l)) )
    256                     DO m=1,L_NSPECTV
    257                       epVISgrid(j,1,m,iaer) = &
    258                                epVISgrid(j,1,m,iaer) &
    259                                + QVISsQREF(m,iaer,l)*dfi
    260                       omegVISgrid(j,1,m,iaer) = &
    261                                omegVISgrid(j,1,m,iaer) &
    262                                + omegaVIS(m,iaer,l)*dfi
    263                       gVISgrid(j,1,m,iaer) = &
    264                                gVISgrid(j,1,m,iaer)  &
    265                                + gVIS(m,iaer,l)*dfi
    266                     ENDDO !L_NSPECTV
    267                     eprefVISgrid(j,1,iaer) =  &
    268                                eprefVISgrid(j,1,iaer)  &
    269                                + QREFvis(iaer,l)*dfi
    270                   ENDDO !nsize
     545
     546                  qrefVISgrid(j,1,iaer)=qrefVISgrid(j,1,iaer) /          &
     547                                normd(j,1,iaer,idomain)       
     548                  qscatrefVISgrid(j,1,iaer)=qscatrefVISgrid(j,1,iaer) /  &
     549                                normd(j,1,iaer,idomain)
     550                  omegrefVISgrid(j,1,iaer)=qscatrefVISgrid(j,1,iaer) /   &
     551                               qrefVISgrid(j,1,iaer)
     552                  DO m=1,L_NSPECTV
     553                    qextVISgrid(j,1,m,iaer)=qextVISgrid(j,1,m,iaer) /    &
     554                                normd(j,1,iaer,idomain)
     555                    qscatVISgrid(j,1,m,iaer)=qscatVISgrid(j,1,m,iaer) /  &
     556                                normd(j,1,iaer,idomain)
     557                    gVISgrid(j,1,m,iaer)=gVISgrid(j,1,m,iaer) /          &
     558                                qscatVISgrid(j,1,m,iaer) /               &
     559                                normd(j,1,iaer,idomain)
     560
     561                    qsqrefVISgrid(j,1,m,iaer)=qextVISgrid(j,1,m,iaer) /  &
     562                                qrefVISgrid(j,1,iaer)
     563                    omegVISgrid(j,1,m,iaer)=qscatVISgrid(j,1,m,iaer) /   &
     564                                qextVISgrid(j,1,m,iaer)
     565                  ENDDO
    271566                ELSE                   ! INFRARED DOMAIN ----------
    272567!                 2.3.3.ir Initialization
    273                   epIRgrid(j,1,:,iaer)=0.
     568                  qsqrefIRgrid(j,1,:,iaer)=0.
     569                  qextIRgrid(j,1,:,iaer)=0.
     570                  qscatIRgrid(j,1,:,iaer)=0.
    274571                  omegIRgrid(j,1,:,iaer)=0.
    275572                  gIRgrid(j,1,:,iaer)=0.
    276                   eprefIRgrid(j,1,iaer)=0.
    277 !                 2.3.4.ir Log-normal distribution
    278                   DO l=1,nsize(iaer,idomain)+1
    279                     dfi_tmp(l) = log(radiusint(l)/r_g) / &
    280                                 sqrt(2.)/sigma_g
     573                  qrefIRgrid(j,1,iaer)=0.
     574                  qscatrefIRgrid(j,1,iaer)=0.
     575                  omegrefIRgrid(j,1,iaer)=0.
     576
     577                  DO gausind=1,ngau
     578                    DO m=1,L_NSPECTI
     579!                     Convolution:
     580                      qextIRgrid(j,1,m,iaer) =                  &
     581                        qextIRgrid(j,1,m,iaer) +                &
     582                        weightgaus(gausind) *                   &
     583                        (                                       &
     584                        qsqrefIRb(m,gausind,iaer) *             &
     585                        qrefVISb(gausind,iaer) *                &
     586                        pi*radGAUSb(gausind,iaer,idomain) *     &
     587                        radGAUSb(gausind,iaer,idomain) *        &
     588                        distb(j,1,iaer,idomain,gausind) +       &
     589                        qsqrefIRa(m,gausind,iaer) *             &
     590                        qrefVISa(gausind,iaer) *                &
     591                        pi*radGAUSa(gausind,iaer,idomain) *     &
     592                        radGAUSa(gausind,iaer,idomain) *        &
     593                        dista(j,1,iaer,idomain,gausind)         &
     594                        )
     595                      qscatIRgrid(j,1,m,iaer) =                 &
     596                        qscatIRgrid(j,1,m,iaer) +               &
     597                        weightgaus(gausind) *                   &
     598                        (                                       &
     599                        omegIRb(m,gausind,iaer) *               &
     600                        qsqrefIRb(m,gausind,iaer) *             &
     601                        qrefVISb(gausind,iaer) *                &
     602                        pi*radGAUSb(gausind,iaer,idomain) *     &
     603                        radGAUSb(gausind,iaer,idomain) *        &
     604                        distb(j,1,iaer,idomain,gausind) +       &
     605                        omegIRa(m,gausind,iaer) *               &
     606                        qsqrefIRa(m,gausind,iaer) *             &
     607                        qrefVISa(gausind,iaer) *                &
     608                        pi*radGAUSa(gausind,iaer,idomain) *     &
     609                        radGAUSa(gausind,iaer,idomain) *        &
     610                        dista(j,1,iaer,idomain,gausind)         &
     611                        )
     612                      gIRgrid(j,1,m,iaer) =                     &
     613                        gIRgrid(j,1,m,iaer) +                   &
     614                        weightgaus(gausind) *                   &
     615                        (                                       &
     616                        omegIRb(m,gausind,iaer) *               &
     617                        qsqrefIRb(m,gausind,iaer) *             &
     618                        qrefVISb(gausind,iaer) *                &
     619                        gIRb(m,gausind,iaer) *                  &
     620                        pi*radGAUSb(gausind,iaer,idomain) *     &
     621                        radGAUSb(gausind,iaer,idomain) *        &
     622                        distb(j,1,iaer,idomain,gausind) +       &
     623                        omegIRa(m,gausind,iaer) *               &
     624                        qsqrefIRa(m,gausind,iaer) *             &
     625                        qrefVISa(gausind,iaer) *                &
     626                        gIRa(m,gausind,iaer) *                  &
     627                        pi*radGAUSa(gausind,iaer,idomain) *     &
     628                        radGAUSa(gausind,iaer,idomain) *        &
     629                        dista(j,1,iaer,idomain,gausind)         &
     630                        )
     631                    ENDDO
     632                    qrefIRgrid(j,1,iaer) =                      &
     633                      qrefIRgrid(j,1,iaer) +                    &
     634                      weightgaus(gausind) *                     &
     635                      (                                         &
     636                      qrefIRb(gausind,iaer) *                   &
     637                      pi*radGAUSb(gausind,iaer,idomain) *       &
     638                      radGAUSb(gausind,iaer,idomain) *          &
     639                      distb(j,1,iaer,idomain,gausind) +         &
     640                      qrefIRa(gausind,iaer) *                   &
     641                      pi*radGAUSa(gausind,iaer,idomain) *       &
     642                      radGAUSa(gausind,iaer,idomain) *          &
     643                      dista(j,1,iaer,idomain,gausind)           &
     644                      )
     645                    qscatrefIRgrid(j,1,iaer) =                  &
     646                      qscatrefIRgrid(j,1,iaer) +                &
     647                      weightgaus(gausind) *                     &
     648                      (                                         &
     649                      omegrefIRb(gausind,iaer) *                &
     650                      qrefIRb(gausind,iaer) *                   &
     651                      pi*radGAUSb(gausind,iaer,idomain) *       &
     652                      radGAUSb(gausind,iaer,idomain) *          &
     653                      distb(j,1,iaer,idomain,gausind) +         &
     654                      omegrefIRa(gausind,iaer) *                &
     655                      qrefIRa(gausind,iaer) *                   &
     656                      pi*radGAUSa(gausind,iaer,idomain) *       &
     657                      radGAUSa(gausind,iaer,idomain) *          &
     658                      dista(j,1,iaer,idomain,gausind)           &
     659                      )
    281660                  ENDDO
    282                   DO l=1,nsize(iaer,idomain)
    283                     dfi = 0.5*( derf(dfi_tmp(l+1)) - &
    284                                derf(dfi_tmp(l)) )
    285                     DO m=1,L_NSPECTI
    286                       epIRgrid(j,1,m,iaer) = &
    287                                epIRgrid(j,1,m,iaer) &
    288                                + QIRsQREF(m,iaer,l)*dfi
    289                       omegIRgrid(j,1,m,iaer) = &
    290                                omegIRgrid(j,1,m,iaer) &
    291                                + omegaIR(m,iaer,l)*dfi
    292                       gIRgrid(j,1,m,iaer) = &
    293                                gIRgrid(j,1,m,iaer) &
    294                                + gIR(m,iaer,l)*dfi
    295                     ENDDO !L_NSPECTI
    296                     eprefIRgrid(j,1,iaer) = &
    297                                eprefIRgrid(j,1,iaer) &
    298                                + QREFir(iaer,l)*dfi
    299                   ENDDO !nsize
     661 
     662                  qrefIRgrid(j,1,iaer)=qrefIRgrid(j,1,iaer) /          &
     663                                normd(j,1,iaer,idomain)
     664                  qscatrefIRgrid(j,1,iaer)=qscatrefIRgrid(j,1,iaer) /  &
     665                                normd(j,1,iaer,idomain)
     666                  omegrefIRgrid(j,1,iaer)=qscatrefIRgrid(j,1,iaer) /   &
     667                               qrefIRgrid(j,1,iaer)
     668                  DO m=1,L_NSPECTI
     669                    qextIRgrid(j,1,m,iaer)=qextIRgrid(j,1,m,iaer) /    &
     670                                normd(j,1,iaer,idomain)
     671                    qscatIRgrid(j,1,m,iaer)=qscatIRgrid(j,1,m,iaer) /  &
     672                                normd(j,1,iaer,idomain)
     673                    gIRgrid(j,1,m,iaer)=gIRgrid(j,1,m,iaer) /          &
     674                                qscatIRgrid(j,1,m,iaer) /              &
     675                                normd(j,1,iaer,idomain)
     676
     677                    qsqrefIRgrid(j,1,m,iaer)=qextIRgrid(j,1,m,iaer) /  &
     678                                qrefVISgrid(j,1,iaer)
     679                    omegIRgrid(j,1,m,iaer)=qscatIRgrid(j,1,m,iaer) /   &
     680                                qextIRgrid(j,1,m,iaer)
     681                  ENDDO
    300682                ENDIF                  ! --------------------------
    301683                checkgrid(j,1,iaer,idomain) = .true.
    … …  
    307689          IF (idomain.EQ.1) THEN ! VISIBLE ------------------------
    308690          DO m=1,L_NSPECTV
    309             QVISsQREF3d(ig,lg,m,iaer) = &
    310                        k1*epVISgrid(grid_i,1,m,iaer) + &
    311                        k2*epVISgrid(grid_i+1,1,m,iaer)
    312             omegaVIS3d(ig,lg,m,iaer) = &
    313                        k1*omegVISgrid(grid_i,1,m,iaer) + &
    314                        k2*omegVISgrid(grid_i+1,1,m,iaer)
    315             gVIS3d(ig,lg,m,iaer) = &
    316                        k1*gVISgrid(grid_i,1,m,iaer) + &
    317                        k2*gVISgrid(grid_i+1,1,m,iaer)
     691             QVISsQREF3d(ig,lg,m,iaer) =                          &
     692                        k1*qsqrefVISgrid(grid_i,1,m,iaer) +        &
     693                        k2*qsqrefVISgrid(grid_i+1,1,m,iaer)
     694            omegaVIS3d(ig,lg,m,iaer) =                             &
     695                        k1*omegVISgrid(grid_i,1,m,iaer) +          &
     696                        k2*omegVISgrid(grid_i+1,1,m,iaer)
     697            gVIS3d(ig,lg,m,iaer) =                                 &
     698                        k1*gVISgrid(grid_i,1,m,iaer) +            &
     699                        k2*gVISgrid(grid_i+1,1,m,iaer)
    318700          ENDDO !L_NSPECTV
    319           QREFvis3d(ig,lg,iaer) = &
    320                        k1*eprefVISgrid(grid_i,1,iaer) + &
    321                        k2*eprefVISgrid(grid_i+1,1,iaer)
     701          QREFvis3d(ig,lg,iaer) =                                  &
     702                        k1*qrefVISgrid(grid_i,1,iaer) +            &
     703                        k2*qrefVISgrid(grid_i+1,1,iaer)
     704          omegaREFvis3d(ig,lg,iaer) =                              &
     705                        k1*omegrefVISgrid(grid_i,1,iaer) +         &
     706                        k2*omegrefVISgrid(grid_i+1,1,iaer)
    322707          ELSE                   ! INFRARED -----------------------
    323708          DO m=1,L_NSPECTI
    324             QIRsQREF3d(ig,lg,m,iaer) = &
    325                        k1*epIRgrid(grid_i,1,m,iaer) + &
    326                        k2*epIRgrid(grid_i+1,1,m,iaer)
    327             omegaIR3d(ig,lg,m,iaer) = &
    328                        k1*omegIRgrid(grid_i,1,m,iaer) + &
    329                        k2*omegIRgrid(grid_i+1,1,m,iaer)
    330             gIR3d(ig,lg,m,iaer) = &
    331                        k1*gIRgrid(grid_i,1,m,iaer) + &
    332                        k2*gIRgrid(grid_i+1,1,m,iaer)
     709            QIRsQREF3d(ig,lg,m,iaer) =                             &
     710                        k1*qsqrefIRgrid(grid_i,1,m,iaer) +        &
     711                        k2*qsqrefIRgrid(grid_i+1,1,m,iaer)
     712            omegaIR3d(ig,lg,m,iaer) =                              &
     713                        k1*omegIRgrid(grid_i,1,m,iaer) +          &
     714                        k2*omegIRgrid(grid_i+1,1,m,iaer)
     715            gIR3d(ig,lg,m,iaer) =                                  &
     716                        k1*gIRgrid(grid_i,1,m,iaer) +              &
     717                        k2*gIRgrid(grid_i+1,1,m,iaer)
    333718          ENDDO !L_NSPECTI
    334           QREFir3d(ig,lg,iaer) = &
    335                        k1*eprefIRgrid(grid_i,1,iaer) + &
    336                        k2*eprefIRgrid(grid_i+1,1,iaer)
     719          QREFir3d(ig,lg,iaer) =                                   &
     720                        k1*qrefIRgrid(grid_i,1,iaer) +             &
     721                        k2*qrefIRgrid(grid_i+1,1,iaer)
     722          omegaREFir3d(ig,lg,iaer) =                               &
     723                        k1*omegrefIRgrid(grid_i,1,iaer) +          &
     724                        k2*omegrefIRgrid(grid_i+1,1,iaer)
    337725          ENDIF                  ! --------------------------------
    338726        ENDDO !nlayermx
    339727      ENDDO !ngridmx
    340728
     729!==================================================================
     730
     731
     732
    341733      ENDDO ! idomain
    342734
    343 
    344         ENDIF ! nsize = 1
     735      ENDIF ! nsize = 1
     736
    345737      ENDDO ! iaer (loop on aerosol kind)
    346738
    347 !      open(116,file='QIRsQREF3dO.dat')
    348 !      write(116,*) QIRsQREF3d
    349 !      close(116)
    350 !      open(117,file='omegaIR3dO.dat')
    351 !      write(117,*) omegaIR3d
    352 !      close(117)
    353 !      open(118,file='gIR3dO.dat')
    354 !      write(118,*) gIR3d
    355 !      close(118)
    356 !      stop
    357 
    358739      RETURN
    359     END subroutine aeroptproperties
     740    END SUBROUTINE aeroptproperties
     741
     742
     743
     744     

  • trunk/LMDZ.GENERIC/libf/phystd/ave_stelspec.F90

    r135 r253  
    1       subroutine ave_stelspec(startype,STELLAR)
     1      subroutine ave_stelspec(STELLAR)
    22
    33!==================================================================
    … …  
    2828
    2929#include "datafile.h"
     30#include "callkeys.h"
    3031
    3132      real*8 STELLAR(L_NSPECTV)
    32       integer startype
     33!      integer startype
    3334
    3435      integer Nfine
    … …  
    4344      character(len=50)  :: file_id
    4445      character(len=100) :: file_path
     46
     47      real lam_temp
     48      double precision stel_temp
    4549
    4650      STELLAR(:)=0.0
    … …  
    5862      dl=lam(2)-lam(1)
    5963
    60       ! load high resolution stellar data
    61       if(startype.eq.1)then
    62          file_id='/stellar_spectra/sol.txt'
    63          tstellar=5800.
    64       elseif(startype.eq.2)then
    65          file_id='/stellar_spectra/gl581.txt'
    66          tstellar=3200.
    67       elseif(startype.eq.3)then
    68          file_id='/stellar_spectra/adleo.txt'
    69          tstellar=3200.
    70       elseif(startype.eq.4)then
    71          file_id='/stellar_spectra/gj644.txt'
    72          print*,'Find out tstellar before using this star!'
    73          call abort
    74       elseif(startype.eq.5)then
    75          file_id='/stellar_spectra/hd128167.txt'
    76          tstellar=6700. ! Segura et al. (2003)
     64
     65      if(stelbbody)then
     66         tstellar=stelTbb
     67         do ifine=1,Nfine
     68            lam_temp=lam(ifine)
     69            call blackl(dble(lam_temp*1e-6),dble(tstellar),stel_temp)
     70            stel_f(ifine)=stel_temp
     71         enddo
    7772      else
    78          print*,'Error: unknown star type chosen'
    79          call abort
     73         ! load high resolution stellar data
     74         if(startype.eq.1)then
     75            file_id='/stellar_spectra/sol.txt'
     76            tstellar=5800.
     77         elseif(startype.eq.2)then
     78            file_id='/stellar_spectra/gl581.txt'
     79            tstellar=3200.
     80         elseif(startype.eq.3)then
     81            file_id='/stellar_spectra/adleo.txt'
     82            tstellar=3200.
     83         elseif(startype.eq.4)then
     84            file_id='/stellar_spectra/gj644.txt'
     85            print*,'Find out tstellar before using this star!'
     86            call abort
     87         elseif(startype.eq.5)then
     88            file_id='/stellar_spectra/hd128167.txt'
     89            tstellar=6700. ! Segura et al. (2003)
     90         else
     91            print*,'Error: unknown star type chosen'
     92            call abort
     93         endif
     94         file_path=datafile(1:LEN_TRIM(datafile))//file_id(1:LEN_TRIM(file_id))
     95
     96         open(111,file=file_path,form='formatted')
     97         do ifine=1,Nfine
     98            read(111,*) stel_f(ifine)
     99         enddo
     100         close(111)
    80101      endif
    81       file_path=datafile(1:LEN_TRIM(datafile))//file_id(1:LEN_TRIM(file_id))
    82102
    83       open(111,file=file_path,form='formatted')
    84       do ifine=1,Nfine
    85          read(111,*) stel_f(ifine)
    86       enddo
    87       close(111)
    88      
     103
    89104      ! sum data by band
    90105      band=1
    … …  
    104119      STELLAR=STELLAR/sum(STELLAR)
    105120
     121
    106122      end subroutine ave_stelspec

  • trunk/LMDZ.GENERIC/libf/phystd/blackl.F

    r135 r253  
    11      subroutine blackl(blalong,blat,blae)
    2 c.......................................................................
     2
    33      implicit double precision (a-h,o-z)
    4 c.......................................................................
    5 c.....donnees de fond
     4
     5      ! physical constants
    66      sigma=5.6693d-08
    77      pi=datan(1.d0)*4.d0
    … …  
    1313      c1=h*(c**2)
    1414      c2=h*c/cbol
    15 c.....fin de donnees de fond
    16 c.......................................................................
     15
     16
    1717      blae=2.d0*pi*c1/blalong**5/(dexp(c2/blalong/blat)-1.d0)
    18 c.......................................................................
     18
     19
    1920      return
    2021      end

  • trunk/LMDZ.GENERIC/libf/phystd/calc_cpp3d.F90

    r135 r253  
    1313!==================================================================
    1414
    15         ! you still need to validate this equation vs something....
    16 
    1715      implicit none
    1816
    1917#include "comcstfi.h"
     18#include "callkeys.h"
     19#include "cpdet.h"
    2020
    21       real cp0, dB2dT2
     21      !real cp0, dB2dT2
    2222      real cppNI      ! specific heat capacity at const. pressure
    2323      real rcpNI      ! R / specific heat capacity
    2424      real t
    2525      real p
    26       real calmol
    27       real bar
    2826
    29       calmol = 94.9784 ! 4.18/(mco2/1000)
    30       bar    = 100000
     27      ! dummy function until I decide what to do!
    3128
    32       cp0    = (7.70+5.3e-3*t - 8.3e-7*t**2)*calmol
    33       dB2dT2 = 2.69e-5*t - 0.0098
    34       cppNI  = cp0 - t*(p/bar)*dB2dT2
    35       !cppNI  = 1000*(t/460)**0.35 ! Sebastian's version
    36 
     29      cppNI  = cpp
    3730      rcpNI  = R/cppNI
    3831

  • trunk/LMDZ.GENERIC/libf/phystd/calc_rayleigh.F90

    r135 r253  
    77!     Average the Rayleigh scattering in each band, weighting the
    88!     average by the blackbody function at temperature tstellar.
     9!     Works for an arbitrary mix of gases (currently CO2, N2 and
     10!     H2 are possible).
    911!     
    1012!     Authors
    1113!     -------
    1214!     Robin Wordsworth (2010)
    13 !     Benjamin Charnay (2010)
    1415!
    1516!     Called by
    … …  
    2425
    2526      use radinc_h, only: L_NSPECTV
    26       use radcommon_h, only: WAVEV, BWNV, DWNV, tstellar, gastype, tauray, scalep
     27      use radcommon_h, only: WAVEV, BWNV, DWNV, tstellar, tauray, scalep
    2728
    2829      implicit none
    2930
    3031#include "comcstfi.h"
     32#include "callkeys.h"
     33#include "gases.h"
    3134
    3235      real*8 wl
    33       integer N,Nfine,ifine
     36      integer N,Nfine,ifine,igas
    3437      parameter(Nfine=500.0)
    3538      real*8 :: P0 = 9.423D+6   ! Rayleigh scattering reference pressure in pascals.   
    3639
    37       logical waverage
    38       real*8 tauconst,tauvar,tausum,tauwei,bwidth,bstart
     40      logical typeknown
     41      real*8 tauvar,tausum,tauwei,bwidth,bstart
    3942      double precision df
    4043
    41       waverage=.true. ! do we perform a blackbody weighted average by band?
     44      real*8 tauconsti(ngasmx)
     45      real*8 tauvari(ngasmx)
    4246
    43       if(waverage)then
    44          if(gastype(1).eq.'CO2')then
    45             print*,'Rayleigh scattering is for a CO2 atmosphere.'
    46             tauconst = (8.7/g)*1.527*scalep/P0
    47          elseif(gastype(1).eq.'AIR')then ! AIR = Earth air
    48             print*,'Rayleigh scattering is for an Earth-like atmosphere.'
    49             tauconst = (9.81/g)*8.569E-3*scalep/(P0/93.0)
     47      ! tau0/p0=tau/p (Hansen 1974)
     48      ! Then calculate tau0 = (8*pi^3*p_1atm)/(3*N0)  *  4*delta^2/(g*mugaz*lambda^4)
     49      ! Then calculate tau0 = 1.16e-20 * 4*delta^2/(g*mugaz*lambda^4 [in um])
     50      ! where delta=n-1
     51
     52      typeknown=.false.
     53      do igas=1,ngasmx
     54         !if((igas.eq.vgas).or.(gfrac(igas).lt.1.e-4))then
     55         if(igas.eq.vgas)then
     56            print*,'Ignoring ',gnom(igas),' in Rayleigh scattering '// &
     57            'as it is variable.'
     58         elseif(gfrac(igas).lt.5.e-2)then
     59            print*,'Ignoring ',gnom(igas),' in Rayleigh scattering '// &
     60            'as its mixing ratio is less than 0.05.'
     61            ! ignore variable gas in Rayleigh calculation
     62            ! ignore gases of mixing ratio < 1e-4 in Rayleigh calculation
     63            tauconsti(igas) = 0.0
    5064         else
    51             print*,'Rayleigh scattering not defined for gas type ',gastype(n)
    52             print*,'exiting.'
    53             call abort
     65            if(gnom(igas).eq.'CO2')then
     66               tauconsti(igas) = (8.7/g)*1.527*scalep/P0
     67            elseif(gnom(igas).eq.'N2_')then
     68               tauconsti(igas) = (9.81/g)*8.569E-3*scalep/(P0/93.0)
     69            elseif(gnom(igas).eq.'H2_')then
     70               tauconsti(igas) = (10.0/g)*0.0487*scalep/(101325.0)
     71               ! uses n=1.000132 from Optics, Fourth Edition.
     72               ! around four times more opaque than CO2
     73               ! around 5.5 times more opaque than air
     74            elseif(gnom(igas).eq.'He_')then
     75               print*,'Helium not ready yet!'
     76            else
     77               print*,'Error in calc_rayleigh: Gas species not recognised!'
     78               call abort
     79            endif
     80
     81            if(gfrac(igas).eq.1.0)then
     82               print*,'Rayleigh scattering is for a pure ',gnom(igas),' atmosphere.'
     83               typeknown=.true.
     84            endif
     85
    5486         endif
     87      enddo
     88
     89      if(.not.typeknown)then
     90         print*,'Rayleigh scattering is for a mixed gas atmosphere.'
     91         typeknown=.true.
    5592      endif
     93
    5694 
    5795      do N=1,L_NSPECTV
    5896         
    59          if(waverage)then
    60             tausum = 0.0
    61             tauwei = 0.0
    62             bstart = 10000.0/BWNV(N+1)
    63             bwidth = (10000.0/BWNV(N)) - (10000.0/BWNV(N+1))
    64             do ifine=1,Nfine
    65                 wl=bstart+dble(ifine)*bwidth/Nfine
     97         tausum = 0.0
     98         tauwei = 0.0
     99         bstart = 10000.0/BWNV(N+1)
     100         bwidth = (10000.0/BWNV(N)) - (10000.0/BWNV(N+1))
     101         do ifine=1,Nfine
     102            wl=bstart+dble(ifine)*bwidth/Nfine
    66103
    67                 if(gastype(1).eq.'CO2')then
    68                    tauvar = (1.0+0.013/wl**2)/wl**4
    69                 elseif(gastype(1).eq.'AIR')then
    70                    tauvar = (1.0+0.0113/wl**2+0.00013/wl**4)/wl**4
    71                 endif
     104            tauvar=0.0
     105            do igas=1,ngasmx
     106               !if((igas.eq.vgas).or.(gfrac(igas).lt.1.e-4))then
     107               if((igas.eq.vgas).or.(gfrac(igas).lt.5.e-2))then
     108                  ! ignore variable gas in Rayleigh calculation
     109                  ! ignore gases of mixing ratio < 1e-4 in Rayleigh calculation
     110                  tauvari(igas)   = 0.0
     111               else
     112                  if(gnom(igas).eq.'CO2')then
     113                     tauvari(igas) = (1.0+0.013/wl**2)/wl**4
     114                  elseif(gnom(igas).eq.'N2_')then
     115                     tauvari(igas) = (1.0+0.0113/wl**2+0.00013/wl**4)/wl**4
     116                  elseif(gnom(igas).eq.'H2_')then
     117                     tauvari(igas) = 1.0/wl**4 ! no wvl dependence of ref. index here - improve?
     118                  else
     119                     print*,'Error in calc_rayleigh: Gas species not recognised!'
     120                     call abort
     121                  endif
     122               endif
    72123
    73                 call blackl(dble(wl*1e-6),dble(tstellar),df)
    74                 df=df*bwidth/Nfine
    75                 tauwei=tauwei+df
    76                 tausum=tausum+tauvar*df
     124               tauvar=tauvar+tauconsti(igas)*tauvari(igas)*gfrac(igas)
     125
    77126            enddo
    78             TAURAY(N)=tauconst*tausum/tauwei
    79          else
    80             wl = WAVEV(N)
    81             if(gastype(1).eq.'CO2')then
    82                if(N.eq.1) print*,'Rayleigh scattering is for a CO2 atmosphere.'
    83                TAURAY(N) = (8.7/g)*(1.527*(1.0+0.013/wl**2)/wl**4)*scalep/P0
    84             elseif(gastype(1).eq.'AIR')then ! AIR = Earth air
    85                if(N.eq.1) print*,'Rayleigh scattering is for an Earth-like atmosphere.'
    86                TAURAY(N) = (9.81/g)*(8.569E-3*(1.0+0.0113/wl**2+0.00013/wl**4)/wl**4)*scalep/(P0/93.0)
    87             else
    88                print*,'Rayleigh scattering not defined for gas type ',gastype(n)
    89                print*,'exiting.'
    90                call abort
    91             endif
    92          endif       
    93127
     128            call blackl(dble(wl*1e-6),dble(tstellar),df)
     129            df=df*bwidth/Nfine
     130            tauwei=tauwei+df
     131            tausum=tausum+tauvar*df
     132         
     133         enddo
     134         TAURAY(N)=tausum/tauwei
    94135         ! we multiply by scalep here (100) because plev, which is used in optcv,
    95136         ! is in units of mBar, so we need to convert.
     137
    96138      end do
    97139
     140      print*,'At 1 atm and lambda = ',WAVEV(L_NSPECTV-5), &
     141           ' um, tau_R = ',TAURAY(L_NSPECTV-5)*1013.25
     142      print*,'At 1 atm and lambda = ',WAVEV(L_NSPECTV-6), &
     143           ' um, tau_R = ',TAURAY(L_NSPECTV-6)*1013.25
     144
    98145    end subroutine calc_rayleigh

  • trunk/LMDZ.GENERIC/libf/phystd/callkeys.h

    r135 r253  
    33! symbols '&' in columns 73 and 6
    44!
    5       COMMON/callkeys/callrad,corrk,calldifv,calladj,                   &
    6      &   co2cond,callsoil,                                              &
    7      &   season,diurnal,tlocked,iradia,lwrite,calllott                  &
    8      &   ,iaervar,iddist,topdustref,callstats,calleofdump               &
    9      &   ,enertest                                                      &
    10      &   ,callgasvis,callnlte,callthermos,callconduct,                  &
    11      &        calleuv,callmolvis,callmoldiff,thermochem                 &
    12      &   , solarcondate, Nmix_co2, Nmix_h2o, thermoswater               &
    13      &   , semi                                                         &
    14      &   , callemis                                                     &
    15      &   , callg2d                                                      &
    16      &   , linear                                                       &
    17      &   , ilwd                                                         &
    18      &   , ilwb                                                         &
    19      &   , ilwn                                                         &
    20      &   , ncouche                                                      &
    21      &   , alphan                                                       &
     5      COMMON/callkeys/callrad,corrk,calldifv,calladj                    &
     6     &   , co2cond,callsoil                                             &
     7     &   , season,diurnal,tlocked,iradia,lwrite                         &
     8     &   , iaervar,iddist,topdustref,callstats,calleofdump              &
     9     &   , enertest                                                     &
     10     &   , callgasvis                                                   &
     11     &   , Nmix_co2, Nmix_h2o                                           &
     12     &   , dusttau                                                      &
    2213     &   , nonideal                                                     &
    2314     &   , meanOLR                                                      &
    2415     &   , specOLR                                                      &
     16     &   , kastprof                                                     &
     17     &   , noradsurf                                                    &
     18     &   , Tsurfk                                                       &
     19     &   , Tstrat                                                       &
     20     &   , newtonian                                                    &
     21     &   , tau_relax                                                    &
     22     &   , testradtimes                                                 &
    2523     &   , rayleigh                                                     &
    26      &   , ozone                                                        &
     24     &   , stelbbody                                                    &
     25     &   , stelTbb                                                      &
    2726     &   , tplanet                                                      &
    2827     &   , startype                                                     &
    … …  
    3635     &   , rainthreshold                                                &
    3736     &   , aerofixed                                                    &
    38      &   , photochem,nqchem_min                                         
     37     &   , szangle                                                      &
     38     &   , hydrology                                                    &
     39     &   , sourceevol                                                   &
     40     &   , albedosnow                                                   &
     41     &   , maxicethick                                                  &
     42     &   , Tsaldiff                                                     &
     43     &   , CLFfixval                                                    &
     44     &   , CLFvarying                                                   &
     45     &   , n2mixratio                                                   &
     46     &   , co2supsat                                                    &
     47     &   , pceil                                                   
    3948
    40       logical callrad,corrk,calldifv,calladj,co2cond,callsoil,          &
    41      &   season,diurnal,tlocked,lwrite,calllott                         &
    42      &   ,callstats,calleofdump                                         &
    43      &   ,callgasvis,callnlte,callthermos,callconduct,                  &
    44      &    calleuv,callmolvis,callmoldiff,thermochem,thermoswater
     49      logical callrad,corrk,calldifv,calladj,co2cond,callsoil           &
     50     &   , season,diurnal,tlocked,lwrite                                &
     51     &   , callstats,calleofdump                                        &
     52     &   , callgasvis
    4553
    4654      logical enertest
    47       logical callemis
    48       logical callg2d
    49       logical linear
    5055      logical nonideal
    5156      logical meanOLR
    5257      logical specOLR
     58      logical kastprof
     59      logical newtonian
     60      logical testradtimes
    5361      logical rayleigh
     62      logical stelbbody
    5463      logical ozone
    5564      logical nearco2cond
    … …  
    6069      logical water,watercond,waterrain
    6170      logical aerofixed
    62       logical photochem
     71      logical hydrology
     72      logical sourceevol
     73      logical CLFvarying
     74      logical noradsurf
    6375
    6476      integer iddist
    6577      integer iaervar
    6678      integer iradia
    67       integer ilwd
    68       integer ilwb
    69       integer ilwn
    70       integer ncouche
    71       integer dustbin
    7279      integer startype
    73       integer nqchem_min
    7480
    7581      real topdustref
    76       real semi
    77       real alphan
    78       real solarcondate
    7982      real Nmix_co2
    8083      real Nmix_h2o
     84      real dusttau
    8185      real Fat1AU
     86      real stelTbb
     87      real Tstrat
    8288      real tplanet
    8389      real satval
    8490      real rainthreshold
     91      real szangle
     92      real CLFfixval
     93      real n2mixratio
     94      real co2supsat
     95      real pceil
     96      real albedosnow
     97      real maxicethick
     98      real Tsaldiff
     99      real Tsurfk
     100      real tau_relax

  • trunk/LMDZ.GENERIC/libf/phystd/callsedim.F

    r135 r253  
    11      SUBROUTINE callsedim(ngrid,nlay, ptimestep,
    22     $                pplev,zlev, pt,
    3      &                pq, pdqfi, pdqsed,pdqs_sed,nq)
     3     &                pq, pdqfi, pdqsed,pdqs_sed,nq,rfall)
    44      IMPLICIT NONE
    55
    … …  
    2929
    3030#include "fisice.h"
    31 c
     31
    3232c   arguments:
    3333c   ----------
    … …  
    8484!     (mass (kg.m-2), thickness (m), etc.
    8585
    86 
    8786      do  l=1,nlay
    8887        do ig=1, ngrid
    … …  
    9291      end do
    9392
    94       do iq=1,nq
    95         if(radius(iq).gt.1.e-9) then   ! no sedimentation for gases (defined by radius=0)
     93      iq=igcm_h2o_ice
    9694
    9795!     The value of q is updated after the other parameterisations
    … …  
    10199              ! store locally updated tracers
    102100              zqi(ig,l)=pq(ig,l,iq)+pdqfi(ig,l,iq)*ptimestep
    103 !              if (iceparty.and.(iq.eq.igcm_h2o_ice)) then
    104               if (iq.eq.igcm_h2o_ice) then
    105 c               On affecte un rayon moyen aux poussieres a chaque altitude du type :
    106 c               r(z)=r0*exp(-z/H) avec r0=0.8 micron et H=18 km.
    107 c               ''''''''''''''''''''''''''''''''''''''''''''''''
    108                 rfall(ig,l)=max( rice(ig,l)*1.5,rdust(ig,l) )
    109 c modif FranckMM pour ameliorer cycle H2O: rfall= 20 microns
    110                 rfall(ig,l)=min(rfall(ig,l),1.e-4)
    111               endif
    112101            enddo
    113102          enddo ! of do l=1,nlay
     103
     104
    114105
    115106!=======================================================================
    116107!     Calculate the transport due to sedimentation for each tracer
    117108
    118           if (iq.eq.igcm_h2o_ice) then
    119           !if (iceparty.and.(iq.eq.igcm_h2o_ice)) then
    120             call newsedim(ngrid,nlay,ngrid*nlay,ptimestep,
    121      &      pplev,masse,epaisseur,pt,rfall,rho_q(iq),zqi,wq)
    122           else
    123             call newsedim(ngrid,nlay,1,ptimestep,
    124      &      pplev,masse,epaisseur,pt,radius(iq),rho_q(iq),zqi,wq)
    125           endif
     109          call newsedim(ngrid,nlay,ngrid*nlay,ptimestep,
     110     &         pplev,masse,epaisseur,pt,rfall,rho_q(iq),zqi,wq)
    126111
    127112!=======================================================================
    … …  
    140125          ENDDO
    141126
    142         endif ! of if(radius(iq).gt.1.e-9)
    143       enddo ! of do iq=1,nq
    144  
    145       RETURN
    146       END
     127      return
     128      end
    147129

  • trunk/LMDZ.GENERIC/libf/phystd/comcstfi.h

    r135 r253  
    33
    44      common/comcstfi/pi,rad,g,r,cpp,rcp,dtphys,daysec,mugaz,omeg
    5       common/comcstfi/avocado,molrad,visc
     5      common/comcstfi/avocado!,molrad,visc
    66
    77      real pi,rad,g,r,cpp,rcp,dtphys,daysec,mugaz,omeg
    8       real avocado,molrad,visc
     8      real avocado!,molrad,visc
    99

  • trunk/LMDZ.GENERIC/libf/phystd/comdiurn.h

    r135 r253  
    1       COMMON/comdiurn/ldiurn,
    2      s     sinlon(ngridmx),coslon(ngridmx),
    3      s     sinlat(ngridmx),coslat(ngridmx)
    4       REAL sinlon,coslon,sinlat,coslat
    5       LOGICAL ldiurn
     1      COMMON/comdiurn/ldiurn,                                           &
     2     &     sinlon(ngridmx),coslon(ngridmx),                             &
     3     &     sinlat(ngridmx),coslat(ngridmx)
     4     
     5      real sinlon,coslon,sinlat,coslat
     6      logical ldiurn

  • trunk/LMDZ.GENERIC/libf/phystd/comg1d.h

    r135 r253  
    1 c.......................................................................
    2 c  le COMMON pour GRADS-1D
    3 c  (Utilise pour les sorties format Grads dans la version 1D du modele)
    4 c
    5 c  on peut se dire : "on ne sauvera pas plus de 1000 variables ... hein ?"
    6 c
     1!.......................................................................
     2!  le COMMON pour GRADS-1D
     3!  (Utilise pour les sorties format Grads dans la version 1D du modele)
     4!
     5!  on peut se dire : "on ne sauvera pas plus de 1000 variables ... hein ?"
     6!
    77      INTEGER g1d_nvarmx
    88      PARAMETER(g1d_nvarmx=1000)
    9 c
    10 c         * g1d_nlayer     ---> nombre de couches verticales
    11 c         * g1d_nomfich    ---> nom du fichier grads
    12 c         * g1d_unitfich   ---> code du fichier grads
    13 c         * g1d_nomctl     ---> nom du fichier ctl
    14 c         * g1d_unitctl    ---> code du fichier ctl
    15 c         * g1d_premier    ---> variable logique pour dire si le fichier
    16 c                               est deja ouvert
    17 c         * g1d_irec       ---> indice de derniere ecriture
    18 c         * g1d_nvar       ---> nombre de variables deja definies a la
    19 c                               derniere ecriture
    20 c         * g1d_nomvar     ---> noms des vecteurs existants
    21 c         * g1d_dimvar     ---> taille des vecteurs
    22 c         * g1d_titrevar   ---> titres des vecteurs
    23 c         * g1d_tmp1       ---> caractere
    24 c         * g1d_tmp2       ---> caractere
    25 c
     9
     10!         * g1d_nlayer     ---> nombre de couches verticales
     11!         * g1d_nomfich    ---> nom du fichier grads
     12!         * g1d_unitfich   ---> code du fichier grads
     13!         * g1d_nomctl     ---> nom du fichier ctl
     14!         * g1d_unitctl    ---> code du fichier ctl
     15!         * g1d_premier    ---> variable logique pour dire si le fichier
     16!                               est deja ouvert
     17!         * g1d_irec       ---> indice de derniere ecriture
     18!         * g1d_nvar       ---> nombre de variables deja definies a la
     19!                               derniere ecriture
     20!         * g1d_nomvar     ---> noms des vecteurs existants
     21!         * g1d_dimvar     ---> taille des vecteurs
     22!         * g1d_titrevar   ---> titres des vecteurs
     23!         * g1d_tmp1       ---> caractere
     24!         * g1d_tmp2       ---> caractere
     25
    2626      INTEGER g1d_nlayer
    2727      CHARACTER*100 g1d_nomfich
    … …  
    4343      integer saveG1D
    4444
    45       COMMON/COMG1DI/g1d_nlayer
    46      &             ,g1d_unitfich
    47      &             ,g1d_unitctl
    48      &             ,g1d_irec
    49      &             ,g2d_irec
    50      &             ,g2d_appel
    51      &             ,g1d_nvar
     45      COMMON/COMG1DI/g1d_nlayer                                         &
     46     &             ,g1d_unitfich                                        &
     47     &             ,g1d_unitctl                                         &
     48     &             ,g1d_irec                                            &
     49     &             ,g2d_irec                                            &
     50     &             ,g2d_appel                                           &
     51     &             ,g1d_nvar                                            &
    5252     &             ,saveG1D
    53       COMMON/COMG1DC/g1d_dimvar(0:g1d_nvarmx)
    54      &             ,g1d_nomfich
    55      &             ,g1d_nomctl
    56      &             ,g1d_nomvar(0:g1d_nvarmx)
    57      &             ,g1d_titrevar(0:g1d_nvarmx)
    58      &             ,g1d_tmp1
    59      &             ,g1d_tmp2
    60       COMMON/COMG1DL/g1d_premier
     53      COMMON/COMG1DC/g1d_dimvar(0:g1d_nvarmx)                           &
     54     &             ,g1d_nomfich                                         &
     55     &             ,g1d_nomctl                                          &
     56     &             ,g1d_nomvar(0:g1d_nvarmx)                            &
     57     &             ,g1d_titrevar(0:g1d_nvarmx)                          &
     58     &             ,g1d_tmp1                                            &
     59     &             ,g1d_tmp2                                           
     60      COMMON/COMG1DL/g1d_premier                                        &
    6161     &             ,g2d_premier
    62 c
    63 c.......................................................................
     62!
     63!.......................................................................

  • trunk/LMDZ.GENERIC/libf/phystd/comsaison.h

    r135 r253  
    1 c-----------------------------------------------------------------------
    2 c   INCLUDE saison.h
     1!-----------------------------------------------------------------------
     2!   INCLUDE saison.h
    33
    4       COMMON/saison/callsais,isaison,dist_sol,declin,
    5      $             mu0(ngridmx),fract(ngridmx)
     4      COMMON/saison/callsais,isaison,dist_star,declin,                   &
     5     &             mu0(ngridmx),fract(ngridmx)
    66
    7       INTEGER isaison
    8       LOGICAL callsais
    9       REAL dist_sol,declin,mu0,fract
     7      integer isaison
     8      logical callsais
     9      real dist_star,declin,mu0,fract
    1010
    11 c-----------------------------------------------------------------------
     11!-----------------------------------------------------------------------

  • trunk/LMDZ.GENERIC/libf/phystd/condens_co2cloud.F90

    r135 r253  
    1717! 
    1818!     Inputs
    19 !     ------ 
     19!     ------
    2020!     ngrid                 Number of vertical columns
    2121!     nlayer                Number of layers
    … …  
    5656#include "callkeys.h"
    5757#include "tracer.h"
     58#include "gases.h"
    5859
    5960!-----------------------------------------------------------------------
    … …  
    142143      CHARACTER(LEN=20) :: tracername ! to temporarily store text
    143144
     145      integer igas
     146      integer,save :: igasco2=0
     147      character(len=3) :: gasname
     148
    144149      real reffradmin, reffradmax
     150
     151      real ppco2
    145152
    146153!-----------------------------------------------------------------------
    … …  
    154161      !reffradmin=1.e-7
    155162      !reffradmax=5.e-4
    156       reffradmin=0.5e-7
    157       reffradmax=0.1e-3 ! FF data
    158       !reffradmin=0.1e-5
    159       !reffradmax=0.5e-3 ! JB data
     163      !reffradmin=0.5e-7
     164      !reffradmax=0.1e-3 ! FF data
     165      reffradmin=0.1e-5
     166      reffradmax=0.1e-3 ! JB data
    160167!     improve this in the future...
    161168
    162169!     Initialisation
    163170      IF (firstcall) THEN
    164         do iq=1,nqmx
    165           tracername=noms(iq)
    166           if (tracername.eq."co2_ice") then
    167             i_co2ice=iq
    168           endif
    169         enddo
    170        
     171
     172         ! find CO2 ice tracer
     173         do iq=1,nqmx
     174            tracername=noms(iq)
     175            if (tracername.eq."co2_ice") then
     176               i_co2ice=iq
     177            endif
     178         enddo
     179         
     180         ! find CO2 gas
     181         do igas=1,ngasmx
     182            gasname=gnom(igas)
     183!            gasname=noms(igas) ! was a bug
     184            if (gasname.eq."CO2") then
     185               igasco2=igas
     186            endif
     187         enddo
     188
    171189        write(*,*) "condense_co2cloud: i_co2ice=",i_co2ice       
    172190
    … …  
    179197         print*,'In condens_co2cloud: ccond=',ccond,' latcond=',latcond
    180198
    181          firstcall=.false.
     199!          Prepare special treatment if gas is not pure CO2
     200             !if (addn2) then
     201             !   m_co2   = 44.01E-3 ! CO2 molecular mass (kg/mol)   
     202             !   m_noco2 = 28.02E-3 ! N2 molecular mass (kg/mol) 
     203!               Compute A and B coefficient use to compute
     204!               mean molecular mass Mair defined by
     205!               1/Mair = q(ico2)/m_co2 + (1-q(ico2))/m_noco2
     206!               1/Mair = A*q(ico2) + B
     207             !   A = (1/m_co2 - 1/m_noco2)
     208             !   B = 1/m_noco2
     209             !endif
     210
     211!          Minimum CO2 mixing ratio below which mixing occurs with layer above:
     212           !qco2min =0.75 
     213
     214           firstcall=.false.
    182215      ENDIF
    183216      zcpi=1./cpp
    … …  
    217250!     Atmospheric condensation
    218251
     252
     253!     Compute CO2 Volume mixing ratio
     254!     -------------------------------
     255!      if (addn2) then
     256!         DO l=1,nlayer
     257!            DO ig=1,ngrid
     258!              qco2=pq(ig,l,ico2)+pdq(ig,l,ico2)*ptimestep
     259!!             Mean air molecular mass = 1/(q(ico2)/m_co2 + (1-q(ico2))/m_noco2)
     260!              mmean=1/(A*qco2 +B)
     261!              vmr_co2(ig,l) = qco2*mmean/m_co2
     262!            ENDDO
     263!         ENDDO
     264!      else
     265!         DO l=1,nlayer
     266!            DO ig=1,ngrid
     267!              vmr_co2(ig,l)=0.5
     268!            ENDDO
     269!         ENDDO
     270!      end if
     271
    219272!     Forecast the atmospheric frost temperature 'ztcond'
    220273      DO l=1,nlayer
    221274         DO ig=1,ngrid
    222             call get_tcond_co2(pplay(ig,l),ztcond(ig,l),1,1)
     275            ppco2=gfrac(igasco2)*pplay(ig,l)
     276            call get_tcond_co2(ppco2,ztcond(ig,l))
    223277         ENDDO
    224278      ENDDO
    … …  
    234288                  print*,'Perhaps the atmosphere is collapsing on surface...?'
    235289               endif
    236                stop
    237 
    238290            END IF
    239291         ENDDO
    … …  
    275327               ! there should be a more elegant way of doing this...
    276328               if(reff.lt.1.e-16) reff=1.e-16
    277 
    278329
    279330               ! update reffrad for radiative transfer
    … …  
    290341               call stokes                      &
    291342                   (pplev(ig,ilay),pt(ig,ilay), &
    292                     reff,vstokes,rho_co2)
    293 
     343                    reff,vstokes,rho_co2)
     344
     345               !w(ig,ilay,i_co2ice) = 0.0
    294346               w(ig,ilay,i_co2ice) = vstokes *  subptimestep * &
    295347                   pplev(ig,ilay)/(r*pt(ig,ilay))
    … …  
    369421!     forecast of ground temperature ztsrf and frost temperature ztcondsol
    370422      DO ig=1,ngrid
    371 
    372          call get_tcond_co2(pplev(ig,1),ztcondsol(ig))
    373 
     423         ppco2=gfrac(igasco2)*pplay(ig,1)
     424         call get_tcond_co2(ppco2,ztcondsol(ig))
     425         
    374426         ztsrf(ig) = ptsrf(ig)
    375427
    … …  
    466518      implicit none
    467519
    468       real p, tcond
    469       tcond = (-3167.8)/(log(.01*p)-23.23) ! Fanale's formula
     520#include "callkeys.h"
     521
     522      real p, peff, tcond
     523      real, parameter :: ptriple=518000.0
     524
     525      peff=p!/co2supsat
     526
     527      if(peff.lt.ptriple)then
     528         tcond = (-3167.8)/(log(.01*peff)-23.23) ! Fanale's formula
     529      else
     530         tcond = 684.2-92.3*log(peff)+4.32*log(peff)**2
     531         ! liquid-vapour transition (based on CRC handbook 2003 data)
     532      endif
    470533      return
    471534

  • trunk/LMDZ.GENERIC/libf/phystd/convadj.F

    r135 r253  
    1       SUBROUTINE convadj(ngrid,nlay,nq,ptimestep,
    2      S                   pplay,pplev,ppopsk,
    3      $                   pu,pv,ph,pq,
    4      $                   pdufi,pdvfi,pdhfi,pdqfi,
    5      $                   pduadj,pdvadj,pdhadj,
    6      $                   pdqadj)
    7       IMPLICIT NONE
    8 
    9 c=======================================================================
    10 c
    11 c   ajustement convectif sec
    12 c   on ajoute les tendances pdhfi au profil pdh avant l'ajustement
    13 c   SPECIAL VERSION : if one tracer is CO2, take into account the
    14 c   Molecular mass variation (e.g. when CO2 condense) to trigger
    15 c   convection  F. Forget 01/2005
    16 c
    17 c=======================================================================
    18 
    19 c-----------------------------------------------------------------------
    20 c   declarations:
    21 c   -------------
     1      subroutine convadj(ngrid,nlay,nq,ptimestep,
     2     &                   pplay,pplev,ppopsk,
     3     &                   pu,pv,ph,pq,
     4     &                   pdufi,pdvfi,pdhfi,pdqfi,
     5     &                   pduadj,pdvadj,pdhadj,
     6     &                   pdqadj)
     7
     8      implicit none
     9
     10!==================================================================
     11!     
     12!     Purpose
     13!     -------
     14!     Calculates dry convective adjustment. If one tracer is CO2,
     15!     we take into account the molecular mass variation (e.g. when
     16!     CO2 condenses) to trigger convection (F. Forget 01/2005)
     17!
     18!     Authors
     19!     -------
     20!     Original author unknown.
     21!     Modif. 2005 by F. Forget.
     22!     
     23!==================================================================
     24
     25!     ------------
     26!     Declarations
     27!     ------------
    2228
    2329#include "dimensions.h"
    … …  
    2834
    2935
    30 c   arguments:
    31 c   ----------
     36!     Arguments
     37!     ---------
    3238
    3339      INTEGER ngrid,nlay
    … …  
    3844      REAL pv(ngrid,nlay),pdvfi(ngrid,nlay),pdvadj(ngrid,nlay)
    3945
    40 c    Traceurs :
     46!     Tracers
    4147      integer nq
    4248      real pq(ngrid,nlay,nq), pdqfi(ngrid,nlay,nq)
    … …  
    4450
    4551
    46 c   local:
    47 c   ------
     52!     Local
     53!     -----
    4854
    4955      INTEGER ig,i,l,l1,l2,jj
    … …  
    5662      REAL zh2(ngridmx,nlayermx), zhc(ngridmx,nlayermx)
    5763      REAL zhm,zsm,zdsm,zum,zvm,zalpha,zhmc
    58      
    59 
    60 c    Traceurs :
     64
     65!     Tracers
    6166      INTEGER iq,ico2
    6267      save ico2
    … …  
    6570      real m_co2, m_noco2, A , B
    6671      save A, B
    67 c    Temporaire (for diagnostic)
    68 c      REAL diag_alpha(ngridmx)
    6972
    7073      real mtot1, mtot2 , mm1, mm2
    … …  
    7477      data firstcall/.true./
    7578
     79!     for conservation test
     80      real masse,cadjncons
     81
    7682      EXTERNAL SCOPY
    77 c
    78 c-----------------------------------------------------------------------
    79 c   initialisation:
    80 c   ---------------
    81 c
     83
     84!     --------------
     85!     Initialisation
     86!     --------------
     87
    8288      IF (firstcall) THEN
    8389        IF(ngrid.NE.ngridmx) THEN
    8490           PRINT*
    85            PRINT*,'STOP dans convadj'
     91           PRINT*,'STOP in convadj'
    8692           PRINT*,'ngrid    =',ngrid
    8793           PRINT*,'ngridmx  =',ngridmx
    … …  
    8995        ico2=0
    9096        if (tracer) then
    91 c          Prepare Special treatment if one of the tracer is CO2 gas
     97!     Prepare Special treatment if one of the tracers is CO2 gas
    9298           do iq=1,nqmx
    9399             if (noms(iq).eq."co2") then
    … …  
    97103                m_co2 = 44.01E-3  ! CO2 molecular mass (kg/mol)   
    98104                m_noco2 = 33.37E-3  ! Non condensible mol mass (kg/mol)   
    99 c               Compute A and B coefficient use to compute
    100 c               mean molecular mass Mair defined by
    101 c               1/Mair = q(ico2)/m_co2 + (1-q(ico2))/m_noco2
    102 c               1/Mair = A*q(ico2) + B
     105!               Compute A and B coefficient use to compute
     106!               mean molecular mass Mair defined by
     107!               1/Mair = q(ico2)/m_co2 + (1-q(ico2))/m_noco2
     108!               1/Mair = A*q(ico2) + B
    103109                A =(1/m_co2 - 1/m_noco2)
    104110                B=1/m_noco2
    … …  
    108114        firstcall=.false.
    109115      ENDIF ! of IF (firstcall)
    110 
    111 c
    112 c-----------------------------------------------------------------------
    113 c   detection des profils a modifier:
    114 c   ---------------------------------
    115 c   si le profil est a modifier
    116 c   (i.e. ph(niv_sup) < ph(niv_inf) )
    117 c   alors le tableau "vtest" est mis a .TRUE. ;
    118 c   sinon, il reste a sa valeur initiale (.FALSE.)
    119 c   cette operation est vectorisable
    120 c   On en profite pour copier la valeur initiale de "ph"
    121 c   dans le champ de travail "zh"
    122 
    123116
    124117      DO l=1,nlay
    … …  
    140133      end if
    141134
    142 
    143135      CALL scopy(ngrid*nlay,zh,1,zh2,1)
    144136      CALL scopy(ngrid*nlay,zu,1,zu2,1)
    … …  
    146138      CALL scopy(ngrid*nlay*nq,zq,1,zq2,1)
    147139
     140!     -----------------------------
     141!     Detection of unstable columns
     142!     -----------------------------
     143!     If ph(above) < ph(below) we set vtest=.true.
     144
    148145      DO ig=1,ngrid
    149         vtest(ig)=.FALSE.
    150       ENDDO
    151 c
     146        vtest(ig)=.false.
     147      ENDDO
     148
    152149      if (ico2.ne.0) then
    153 c        Special case if one of the tracer is CO2 gas
     150!     Special case if one of the tracers is CO2 gas
    154151         DO l=1,nlay
    155152           DO ig=1,ngrid
    … …  
    161158       end if
    162159
    163        
    164 
     160!     Find out which grid points are convectively unstable
    165161      DO l=2,nlay
    166162        DO ig=1,ngrid
    167           IF(zhc(ig,l).LT.zhc(ig,l-1)) vtest(ig)=.TRUE.
     163          IF(zhc(ig,l).LT.zhc(ig,l-1)) vtest(ig)=.true.
    168164        ENDDO
    169165      ENDDO
    170 c
     166
     167!     Make a list of them
    171168      jcnt=0
    172169      DO ig=1,ngrid
    … …  
    178175
    179176
    180 c-----------------------------------------------------------------------
    181 c  Ajustement des "jcnt" profils instables indices par "jadrs":
    182 c  ------------------------------------------------------------
    183 c
     177!     ---------------------------------------------------------------
     178!     Adjustment of the "jcnt" unstable profiles indicated by "jadrs"
     179!     ---------------------------------------------------------------
     180
    184181      DO jj = 1, jcnt   ! loop on every convective grid point
    185 c
     182
    186183          i = jadrs(jj)
    187184 
    188 c   Calcul des niveaux sigma sur cette colonne
     185!     Calculate sigma in this column
    189186          DO l=1,nlay+1
    190187            sig(l)=pplev(i,l)/pplev(i,1)
    … …  
    196193         ENDDO
    197194          l2 = 1
    198 c
    199 c      -- boucle de sondage vers le haut
    200 c
    201 cins$     Loop  vers le haut sur l2
     195
     196!     Test loop upwards on l2
     197
    202198          DO
    203 c
    204199            l2 = l2 + 1
    205200            IF (l2 .GT. nlay) EXIT
    206201            IF (zhc(i, l2) .LT. zhc(i, l2-1)) THEN
    207202 
    208 c          -- l2 est le niveau le plus haut de la colonne instable
     203!     l2 is the highest level of the unstable column
    209204 
    210205              l1 = l2 - 1
    … …  
    214209              zhm = zh2(i, l2)
    215210              if(ico2.ne.0) zqco2m = zq2(i,l2,ico2)
    216 c
    217 c          -- boucle de sondage vers le bas
    218 c             Loop
     211
     212!     Test loop downwards
     213
    219214              DO
    220 c
    221215                zsm = zsm + sdsig(l)
    222216                zdsm = zdsm + dsig(l)
    … …  
    230224                end if
    231225 
    232 c            -- doit on etendre la colonne vers le bas ?
    233  
    234                 down = .FALSE.
    235                 IF (l1 .NE. 1) THEN    !--  and then
    236                   IF (zhmc .LT. zhc(i, l1-1)) THEN
    237                     down = .TRUE.
     226!     do we have to extend the column downwards?
     227 
     228                down = .false.
     229                IF (l1 .ne. 1) then    !--  and then
     230                  IF (zhmc .lt. zhc(i, l1-1)) then
     231                    down = .true.
    238232                  END IF
    239233                END IF
    240234 
    241                 IF (down) THEN
     235                ! this could be a problem...
     236
     237                if (down) then
    242238 
    243239                  l1 = l1 - 1
    244240                  l  = l1
    245241 
    246                 ELSE
    247  
    248 c              -- peut on etendre la colonne vers le haut ?
    249  
    250                   IF (l2 .EQ. nlay) EXIT
    251  
    252                   IF (zhc(i, l2+1) .GE. zhmc) EXIT
    253 c
     242                else
     243 
     244!     can we extend the column upwards?
     245 
     246                  if (l2 .eq. nlay) exit
     247 
     248                  if (zhc(i, l2+1) .ge. zhmc) exit
     249
    254250                  l2 = l2 + 1
    255251                  l  = l2
    256 c
    257                 END IF
    258 c
    259 cins$         End Loop
    260               ENDDO
    261 c
    262 c          -- nouveau profil : constant (valeur moyenne)
    263 c
     252
     253                end if
     254
     255              enddo
     256
     257!     New constant profile (average value)
     258
     259
    264260              zalpha=0.
    265261              zum=0.
    … …  
    276272                endif
    277273                zh2(i, l) = zhm
    278                 zum=zum+dsig(l)*zu(i,l)
    279                 zvm=zvm+dsig(l)*zv(i,l)
     274!     modifs by RDW !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     275                zum=zum+dsig(l)*zu2(i,l)
     276                zvm=zvm+dsig(l)*zv2(i,l)
     277!                zum=zum+dsig(l)*zu(i,l)
     278!                zvm=zvm+dsig(l)*zv(i,l)
    280279                do iq=1,nq
    281                    zqm(iq) = zqm(iq)+dsig(l)*zq(i,l,iq)
     280                   zqm(iq) = zqm(iq)+dsig(l)*zq2(i,l,iq)
     281!                   zqm(iq) = zqm(iq)+dsig(l)*zq(i,l,iq)
     282!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     283
     284!     to conserve tracers/ KE, we must calculate zum, zvm and zqm using
     285!     the up-to-date column values. If we do not do this, there are cases
     286!     where convection stops at one level and starts at the next where we
     287!     can break conservation of stuff (particularly tracers) significantly.
     288
    282289                end do
    283290              ENDDO
    … …  
    292299                 zalpha=1.
    293300              ELSE
    294 c                IF(zalpha.LT.0.) STOP
     301!                IF(zalpha.LT.0.) STOP
    295302                 IF(zalpha.LT.1.e-4) zalpha=1.e-4
    296303              ENDIF
    … …  
    300307                 zv2(i,l)=zv2(i,l)+zalpha*(zvm-zv2(i,l))
    301308                 do iq=1,nq
    302 c                  zq2(i,l,iq)=zq2(i,l,iq)+zalpha*(zqm(iq)-zq2(i,l,iq))
     309!                  zq2(i,l,iq)=zq2(i,l,iq)+zalpha*(zqm(iq)-zq2(i,l,iq))
    303310                   zq2(i,l,iq)=zqm(iq)
    304311                 end do
    305312              ENDDO
    306 c              diag_alpha(i)=zalpha  !temporaire
    307313              if (ico2.ne.0) then
    308314                DO l=l1, l2
    … …  
    311317              end if
    312318
    313  
     319
    314320              l2 = l2 + 1
    315 c
    316             END IF   ! fin traitement instabilité entre l1 et l2.
    317 c                      On repart pour test à partir du l2 au dessus...
    318           ENDDO   ! End Loop sur l2 vers le haut
    319 c
    320       ENDDO
    321 c
     321
     322            END IF   ! End of l1 to l2 instability treatment
     323                     ! We now continue to test from l2 upwards
     324
     325          ENDDO   ! End of upwards loop on l2
     326
     327
     328!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     329!     check conservation
     330         cadjncons=0.0
     331         if(water)then
     332         do l = 1, nlay
     333            masse = (pplev(i,l) - pplev(i,l+1))/g
     334            iq    = igcm_h2o_vap
     335            cadjncons = cadjncons +
     336     &           masse*(zq2(i,l,iq)-zq(i,l,iq))/ptimestep
     337         end do
     338         endif
     339
     340         if(cadjncons.lt.-1.e-6)then
     341            print*,'convadj has just crashed...'
     342            print*,'i  = ',i
     343            print*,'l1 = ',l1
     344            print*,'l2 = ',l2
     345            print*,'cadjncons        = ',cadjncons
     346         do l = 1, nlay
     347            print*,'dsig         = ',dsig(l)
     348         end do         
     349         do l = 1, nlay
     350            print*,'dsig         = ',dsig(l)
     351         end do
     352         do l = 1, nlay
     353            print*,'sig         = ',sig(l)
     354         end do
     355         do l = 1, nlay
     356            print*,'pplay(ig,:)         = ',pplay(i,l)
     357         end do
     358         do l = 1, nlay+1
     359            print*,'pplev(ig,:)         = ',pplev(i,l)
     360         end do
     361         do l = 1, nlay
     362            print*,'ph(ig,:)         = ',ph(i,l)
     363         end do
     364         do l = 1, nlay
     365            print*,'ph(ig,:)         = ',ph(i,l)
     366         end do
     367         do l = 1, nlay
     368            print*,'ph(ig,:)         = ',ph(i,l)
     369         end do
     370         do l = 1, nlay
     371            print*,'zh(ig,:)         = ',zh(i,l)
     372         end do
     373         do l = 1, nlay
     374            print*,'zh2(ig,:)        = ',zh2(i,l)
     375         end do
     376         do l = 1, nlay
     377            print*,'zq(ig,:,vap)     = ',zq(i,l,igcm_h2o_vap)
     378         end do
     379         do l = 1, nlay
     380            print*,'zq2(ig,:,vap)    = ',zq2(i,l,igcm_h2o_vap)
     381         end do
     382            print*,'zqm(vap)         = ',zqm(igcm_h2o_vap)
     383            print*,'jadrs=',jadrs
     384
     385            call abort
     386         endif
     387!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     388
     389
     390      ENDDO
     391
    322392      DO l=1,nlay
    323393        DO ig=1,ngrid
    … …  
    338408      end if
    339409
    340 c     output
     410
     411!     output
    341412!      if (ngrid.eq.1) then
    342413!         ig=1
    … …  
    349420
    350421
    351       RETURN
    352       END
     422      return
     423      end

  • trunk/LMDZ.GENERIC/libf/phystd/datafile.h

    r135 r253  
    44!  Address of the directory containing tables of data needed by the UCM
    55
    6       character (len=100) :: datafile
    7 !      data datafile /'/san/home/rdword/gcm/datagcm'/  ! gnome iDataPlex
    8       data datafile /'/u/rwlmd/datagcm'/  ! planetary cluster
     6      character (len=300) :: datafile
     7!      data datafile /'/home/rdword/gcm/datagcm_lite'/  ! laptop
     8      data datafile /'/san/home/rdword/gcm/datagcm'/  ! gnome iDataPlex
     9!      data datafile /'/u/rwlmd/datagcm'/  ! planetary cluster
    910!-----------------------------------------------------------------------

  • trunk/LMDZ.GENERIC/libf/phystd/dimphys.h

    r135 r253  
    88      integer, parameter :: nlayermx = llm
    99! nsoilmx : number of subterranean layers
    10        integer, parameter :: nsoilmx = 18
     10      !integer, parameter :: nsoilmx = 4 ! for a test
     11      integer, parameter :: nsoilmx = 18 ! for z1=0.02 cm, depth = 104.8 m
    1112!-----------------------------------------------------------------------

  • trunk/LMDZ.GENERIC/libf/phystd/dsolver.F

    r135 r253  
    9393        IF(XK2(N) .EQ. 0.0) GO TO 28
    9494c        IF (ABS (XK2(N)/XK(2*N-1)) .LT. 1.E-30) XK2(N)=0.0
     95
    9596        IF (ABS (XK2(N)/(XK(2*N-1)+1.e-20)) .LT. 1.E-30) XK2(N)=0.0   ! For debug only (with -Ktrap=fp option)
     97
    9698
    9799   28 CONTINUE

  • trunk/LMDZ.GENERIC/libf/phystd/fisice.h

    r135 r253  
    1 c-----------------------------------------------------------------------
    2 c INCLUDE fisice.h
     1!-----------------------------------------------------------------------
     2! INCLUDE fisice.h
    33
    44      COMMON/fisice/dqsf,rice,nuice,rdust,zcondicea
    … …  
    1010                                   !   MODIF_JBM_08W45
    1111      REAL rdust(ngridmx,nlayermx) ! Prescribed dust radius in each layer (m)
    12 c Variables used to define water ice scavenging by atmos. CO2 condensing
     12! Variables used to define water ice scavenging by atmos. CO2 condensing
    1313      REAL zcondicea(ngridmx,nlayermx)
    14 c-----------------------------------------------------------------------
     14!-----------------------------------------------------------------------

  • trunk/LMDZ.GENERIC/libf/phystd/gfluxi.F

    r135 r253  
    7070        LAMDA(L) = ALPHA(L)*(1.0-W0(L)*COSBAR(L))/UBARI
    7171
    72         NT2   = TLEV(2*L+2)*10.0D0-499
    73         NT    = TLEV(2*L)*10.0D0-499
     72        !NT2   = TLEV(2*L+2)*10.0D0-499
     73        !NT    = TLEV(2*L)*10.0D0-499
     74        NT    = int(TLEV(2*L)*10.0D0)   - NTstar+1
     75        NT2   = int(TLEV(2*L+2)*10.0D0) - NTstar+1
    7476
    7577        B1(L) = (PLANCKIR(NW,NT2)-PLANCKIR(NW,NT))/DTAU(L)
    … …  
    8385      LAMDA(L) = ALPHA(L)*(1.0-W0(L)*COSBAR(L))/UBARI
    8486
    85       NT    = TLEV(2*L+1)*10.0D0-499
    86       NT2   = TLEV(2*L)*10.0D0-499
     87      !NT    = TLEV(2*L+1)*10.0D0-499
     88      !NT2   = TLEV(2*L)*10.0D0-499
     89      NT    = int(TLEV(2*L+1)*10.0D0) - NTstar+1
     90      NT2   = int(TLEV(2*L)*10.0D0)   - NTstar+1
    8791      B1(L) = (PLANCKIR(NW,NT)-PLANCKIR(NW,NT2))/DTAU(L)
    8892      B0(L) = PLANCKIR(NW,NT2)

  • trunk/LMDZ.GENERIC/libf/phystd/gfluxv.F

    r135 r253  
    6666
    6767
     68
    6869      NAYER  = L_NLAYRAD
    6970      TAUMAX = L_TAUMAX    !Default is 35.0
    … …  
    8485        W0(L)       = WDEL(L)*(1.0D0-CDEL(L)**2)/FACTOR
    8586        COSBAR(L)   = CDEL(L)/(1.0D0+CDEL(L))
     87
    8688        DTAU(L)     = DTDEL(L)*FACTOR
    8789        TAU(L+1)    = TAU(L)+DTAU(L)
    … …  
    9092        TAUCUM(K+1) = TAUCUM(K) + (TAUCUMIN(K+1)-TAUCUMIN(K))*FACTOR
    9193      END DO
    92 
    9394
    9495!  Bottom layer
    … …  
    102103      TAUCUM(2*L+1) = TAU(L+1)
    103104
    104 
    105105      BSURF = RSF*UBAR0*F0PI*EXP(-MIN(TAU(L+1),TAUMAX)/UBAR0)
    106106      ! new definition of BSURF
    … …  
    109109      ! of the radiation scattered in the forward direction
    110110
    111 
    112111C     WE GO WITH THE QUADRATURE APPROACH HERE.  THE "SQRT(3)" factors
    113112C     ARE THE UBARV TERM.
    114113
    115114      DO L=1,L_NLAYRAD
    116        
    117         ALPHA(L)=SQRT( (1.0-W0(L))/(1.0-W0(L)*COSBAR(L)) )
    118 
     115
     116        ALPHA(L)=SQRT( (1.0-W0(L))/(1.0-W0(L)*COSBAR(L) ) )
    119117
    120118C       SET OF CONSTANTS DETERMINED BY DOM
    121119
     120!     Quadrature method
    122121        G1(L)    = (SQRT(3.0)*0.5)*(2.0- W0(L)*(1.0+COSBAR(L)))
    123122        G2(L)    = (SQRT(3.0)*W0(L)*0.5)*(1.0-COSBAR(L))
    124123        G3(L)    = 0.5*(1.0-SQRT(3.0)*COSBAR(L)*UBAR0)
    125124
    126 
    127 c     this is Quadrature
     125!     ----- some other methods... (RDW) ------
     126
     127!     Eddington method
     128!        G1(L)    =  0.25*(7.0 - W0(L)*(4.0 - 3.0*COSBAR(L)))
     129!        G2(L)    = -0.25*(1.0 - W0(L)*(4.0 - 3.0*COSBAR(L)))
     130!        G3(L)    =  0.25*(2.0 - 3.0*COSBAR(L)*UBAR0)
     131
     132!     delta-Eddington method
     133!        G1(L)    =  (7.0 - 3.0*g^2 - W0(L)*(4.0 + 3.0*g) + W0(L)*g^2*(4*beta0 + 3*g)) / &
     134!                             (4* (1 - g^2*()   ))  0.25*(7.0 - W0(L)*(4.0 - 3.0*COSBAR(L)))
     135
     136!     Hybrid modified Eddington-delta function method
     137
     138!     ----------------------------------------
     139
     140c     So they use Quadrature
    128141c     but the scaling is Eddington?
    129142
    … …  
    255268
    256269      fluxdn = fluxdn+UBAR0*F0PI*EXP(-MIN(TAUCUM(1),TAUMAX)/UBAR0)
    257  
     270
    258271C     This is for the "special" bottom layer, where we take
    259272C     DTAU instead of DTAU/2.
    … …  
    269282
    270283
    271 
    272284C     THERE IS A POTENTIAL PROBLEM HERE IF W0=0 AND UBARV=UBAR0
    273285C     THEN DENOM WILL VANISH. THIS ONLY HAPPENS PHYSICALLY WHEN
    … …  
    304316
    305317
    306 
    307 
    308318      RETURN
    309 
    310 
    311319      END

  • trunk/LMDZ.GENERIC/libf/phystd/inifis.F

    r135 r253  
    33     $           plat,plon,parea,
    44     $           prad,pg,pr,pcpp)
    5 !
     5
     6      use radinc_h, only : naerkind
     7
     8
    69!=======================================================================
    710!
    … …  
    7073      logical :: parameter, doubleq=.false.
    7174
     75      real psurf,pN2 ! added by RW for Gliese 581d N2+CO2
     76
    7277      rad=prad
    7378      daysec=pdaysec
    … …  
    7883      rcp=r/cpp
    7984
    80 
    8185      avocado = 6.02214179e23   ! added by RW
    82 
    8386
    8487! --------------------------------------------------------
    … …  
    117120         PRINT*,'--------------------------------------------'
    118121
    119 
    120122         write(*,*) "Run with or without tracer transport ?"
    121123         tracer=.false. ! default value
    … …  
    168170         write(*,*) " enertest = ",enertest
    169171
    170          write(*,*) "Save EOF profiles in file 'profiles' for ",
    171      &              "Climate Database?"
    172          calleofdump=.false. ! default value
    173          call getin("calleofdump",calleofdump)
    174          write(*,*) " calleofdump = ",calleofdump
    175 
    176          write(*,*) "Dust scenario:"
    177          iaervar=3 ! default value
    178          call getin("iaervar",iaervar)
    179          write(*,*) " iaervar = ",iaervar
    180 
    181          write(*,*) "Dust vertical distribution:"
    182          write(*,*) "(=1 Dust opt.deph read in startfi;",
    183      & " =2 Viking scenario; =3 MGS scenario,",
    184      & " =4 Mars Year 24 from TES assimilation)"
    185          iddist=3 ! default value
    186          call getin("iddist",iddist)
    187          write(*,*) " iddist = ",iddist
    188 
    189          write(*,*) "Dust top altitude (km). (Matters only if iddist=1)"
    190          topdustref= 90.0 ! default value
    191          call getin("topdustref",topdustref)
    192          write(*,*) " topdustref = ",topdustref
    193 
    194 
    195172         write(*,*) "call radiative transfer ?"
    196173         callrad=.true. ! default value
    … …  
    203180         write(*,*) " corrk = ",corrk
    204181
    205 !         write(*,*) "call NLTE radiative schemes ?",
    206 !     &              "(matters only if callrad=T)"
    207 !         callnlte=.false. ! default value
    208 !         call getin("callnlte",callnlte)
    209 !         write(*,*) " callnlte = ",callnlte
    210          
    211182         write(*,*) "call gaseous absorption in the visible bands?",
    212183     &              "(matters only if callrad=T)"
    … …  
    242213         write(*,*) " co2cond = ",co2cond
    243214
     215         write(*,*) "CO2 supersaturation level ?"
     216         co2supsat=1.0 ! default value
     217         call getin("co2supsat",co2supsat)
     218         write(*,*) " co2supsat = ",co2supsat
     219
     220         write(*,*) "Radiative timescale for Newtonian cooling ?"
     221         tau_relax=30. ! default value
     222         call getin("tau_relax",tau_relax)
     223         write(*,*) " tau_relax = ",tau_relax
     224         tau_relax=tau_relax*24*3600 ! convert Earth days --> seconds
     225
    244226         write(*,*)"call thermal conduction in the soil ?"
    245227         callsoil=.true. ! default value
    … …  
    247229         write(*,*) " callsoil = ",callsoil
    248230         
    249 !         write(*,*)"call Lott's gravity wave/subgrid topography ",
    250 !     &             "scheme ?"
    251 !         calllott=.true. ! default value
    252 !         call getin("calllott",calllott)
    253 !         write(*,*)" calllott = ",calllott
    254 
    255          write(*,*)"rad.transfer is computed every iradia",
     231         write(*,*)"Rad transfer is computed every iradia",
    256232     &             " physical timestep"
    257233         iradia=1 ! default value
    … …  
    264240         write(*,*)" rayleigh = ",rayleigh
    265241
    266          write(*,*)"Parametrized Earth-like ozone absorption ?"
    267          ozone=.false.     
    268          call getin("ozone",ozone)
    269          write(*,*) " ozone = ",ozone
     242         write(*,*) "Use blackbody for stellar spectrum ?"
     243         stelbbody=.false. ! default value
     244         call getin("stelbbody",stelbbody)
     245         write(*,*) " stelbbody = ",stelbbody
     246
     247         write(*,*) "Stellar blackbody temperature ?"
     248         stelTbb=5800.0 ! default value
     249         call getin("stelTbb",stelTbb)
     250         write(*,*) " stelTbb = ",stelTbb
    270251
    271252         write(*,*)"Output mean OLR in 1D?"
    … …  
    279260         write(*,*)" specOLR = ",specOLR
    280261
     262         write(*,*)"Operate in kastprof mode?"
     263         kastprof=.false.
     264         call getin("kastprof",kastprof)
     265         write(*,*)" kastprof = ",kastprof
     266
     267         write(*,*)"Surface temperature in kastprof mode?"
     268         Tsurfk=273.15
     269         call getin("Tsurfk",Tsurfk)
     270         write(*,*)" Tsurfk = ",Tsurfk
     271
     272! Test of incompatibility:
     273! if kastprof used, we must be in 1D
     274         if (kastprof.and.(ngridmx.gt.1)) then
     275           print*,'kastprof can only be used in 1D!'
     276           call abort
     277         endif
     278
     279         write(*,*)"Stratospheric temperature for kastprof mode?"
     280         Tstrat=167.0
     281         call getin("Tstrat",Tstrat)
     282         write(*,*)" Tstrat = ",Tstrat
     283
     284         write(*,*)"Remove lower boundary?"
     285         noradsurf=.false.
     286         call getin("noradsurf",noradsurf)
     287         write(*,*)" noradsurf = ",noradsurf
     288
     289! Tests of incompatibility:
     290         if (noradsurf.and.callsoil) then
     291           print*,'noradsurf not compatible with soil scheme!'
     292           call abort
     293         endif
     294         if (noradsurf.and.calldifv) then
     295           print*,'noradsurf not compatible with a boundary layer!'
     296           call abort
     297         endif
     298
     299
     300         write(*,*)"Use Newtonian cooling for radiative transfer?"
     301         newtonian=.false.
     302         call getin("newtonian",newtonian)
     303         write(*,*)" newtonian = ",newtonian
     304
     305! Tests of incompatibility:
     306         if (newtonian.and.corrk) then
     307           print*,'newtonian not compatible with correlated-k!'
     308           call abort
     309         endif
     310         if (newtonian.and.calladj) then
     311           print*,'newtonian not compatible with adjustment!'
     312           call abort
     313         endif
     314         if (newtonian.and.calldifv) then
     315           print*,'newtonian not compatible with a boundary layer!'
     316           call abort
     317         endif
     318
     319         write(*,*)"Test physics timescale in 1D?"
     320         testradtimes=.false.
     321         call getin("testradtimes",testradtimes)
     322         write(*,*)" testradtimes = ",testradtimes
     323
     324! Test of incompatibility:
     325! if testradtimes used, we must be in 1D
     326         if (testradtimes.and.(ngridmx.gt.1)) then
     327           print*,'testradtimes can only be used in 1D!'
     328           call abort
     329         endif
     330
    281331         write(*,*)"Default planetary temperature?"
    282332         tplanet=215.0
    … …  
    299349         write(*,*)" nearco2cond = ",nearco2cond
    300350
     351!     1D solar zenith angle
     352         write(*,*)"Solar zenith angle in 1D?"
     353         szangle=60.0
     354         call getin("szangle",szangle)
     355         write(*,*)" szangle = ",szangle
     356
    301357! TRACERS:
    302358
    303          write(*,*)"Transported dust ? (if >0, use 'dustbin' dust bins)"
    304          dustbin=0 ! default value
    305          call getin("dustbin",dustbin)
    306          write(*,*)" dustbin = ",dustbin
    307 
    308          write(*,*)"Radiatively active aerosols?"
    309          aerofixed=.true. ! default value
     359         write(*,*)"Fixed / inactive aerosol distribution?"
     360         aerofixed=.true.       ! default value
    310361         call getin("aerofixed",aerofixed)
    311362         write(*,*)" aerofixed = ",aerofixed
     363
     364         write(*,*)"Varying H2O cloud fraction?"
     365         CLFvarying=.false.     ! default value
     366         call getin("CLFvarying",CLFvarying)
     367         write(*,*)" CLFvarying = ",CLFvarying
     368
     369         write(*,*)"Value of fixed H2O cloud fraction?"
     370         CLFfixval=1.0                ! default value
     371         call getin("CLFfixval",CLFfixval)
     372         write(*,*)" CLFfixval = ",CLFfixval
    312373
    313374         write(*,*)"Number mixing ratio of CO2 ice particles:"
    … …  
    321382         write(*,*)" Nmix_h2o = ",Nmix_h2o
    322383
     384         write(*,*)"Opacity of dust (if used):"
     385         dusttau=0. ! default value
     386         call getin("dusttau",dusttau)
     387         write(*,*)" dusttau = ",dusttau
     388
     389! Test of incompatibility:
     390! if less than 3 aerosols, then dusttau should = 0
     391         if ((naerkind.lt.3).and.dusttau.gt.0.) then
     392           print*,'Need naer>2 for radiatively active dust!'
     393           stop
     394         endif
     395
    323396         write(*,*)"Is the variable gas species radiatively active?"
    324397         varactive=.false.
    … …  
    336409         write(*,*)" satval = ",satval
    337410
    338 !         write(*,*)"Radiatively active dust ? (matters if dustbin>0)"
    339 !         active=.false. ! default value
    340 !         call getin("active",active)
    341 !         write(*,*)" active = ",active
    342 
    343411! Test of incompatibility:
    344412! if no tracers, then aerofixed should be true
    … …  
    356424
    357425! Test of incompatibility:
    358 ! if active is used, then dustbin should be > 0
    359 
    360 !         if (active.and.(dustbin.lt.1)) then
    361 !           print*,'if active is used, then dustbin should > 0'
    362 !           stop
    363 !         endif
    364 
    365 !         write(*,*)"use mass and number mixing ratios to predict",
    366 !     &             " dust size ?"
    367 !         doubleq=.false. ! default value
    368 !         call getin("doubleq",doubleq)
    369 !         write(*,*)" doubleq = ",doubleq
    370 
    371 ! Test of incompatibility:
    372 ! if doubleq is used, then dustbin should be 1
    373 
    374 !         if (doubleq.and.(dustbin.ne.1)) then
    375 !           print*,'if doubleq is used, then dustbin should be 1'
    376 !           stop
    377 !         endif
    378 
    379 !         write(*,*)"dust lifted by GCM surface winds ?"
    380 !         lifting=.false. ! default value
    381 !         call getin("lifting",lifting)
    382 !         write(*,*)" lifting = ",lifting
    383 
    384 ! Test of incompatibility:
    385 ! if lifting is used, then dustbin should be > 0
    386 
    387 !         if (lifting.and.(dustbin.lt.1)) then
    388 !           print*,'if lifting is used, then dustbin should > 0'
    389 !           stop
    390 !         endif
    391 
    392 !         write(*,*)" dust lifted by dust devils ?"
    393 !         callddevil=.false. !default value
    394 !         call getin("callddevil",callddevil)
    395 !         write(*,*)" callddevil = ",callddevil
    396          
    397 
    398 ! Test of incompatibility:
    399 ! if dustdevil is used, then dustbin should be > 0
    400 
    401 !         if (callddevil.and.(dustbin.lt.1)) then
    402 !           print*,'if dustdevil is used, then dustbin should > 0'
    403 !           stop
    404 !         endif
    405 
    406 !         write(*,*)"Dust scavenging by CO2 snowfall ?"
    407 !         scavenging=.false. ! default value
    408 !         call getin("scavenging",scavenging)
    409 !         write(*,*)" scavenging = ",scavenging
    410          
    411 
    412 ! Test of incompatibility:
    413 ! if scavenging is used, then dustbin should be > 0
    414 
    415 !         if (scavenging.and.(dustbin.lt.1)) then
    416 !           print*,'if scavenging is used, then dustbin should > 0'
    417 !           stop
    418 !         endif
    419426
    420427         write(*,*) "Gravitationnal sedimentation ?"
    … …  
    423430         write(*,*) " sedimentation = ",sedimentation
    424431
    425 !         write(*,*) "includes water ice",
    426 !     &              "(if true, 'water' must also be .true.)"
    427 !         iceparty=.false. ! default value
    428 !         call getin("iceparty",iceparty)
    429 !         write(*,*) " iceparty = ",iceparty
    430 
    431 !         write(*,*) "Radiatively active transported atmospheric ",
    432 !     &              "water ice ?"
    433 !         activice=.false. ! default value
    434 !         call getin("activice",activice)
    435 !         write(*,*) " activice = ",activice
    436 
    437 
    438 ! Test of incompatibility:
    439 ! if activice is used, then iceparty should be used too
    440 
    441 !         if (activice.and..not.iceparty) then
    442 !           print*,'if activice is used, iceparty should be used too'
    443 !           stop
    444 !         endif
     432
     433! Test of incompatibility:
    445434
    446435         write(*,*) "Compute water cycle ?"
    … …  
    464453         write(*,*) " rainthreshold = ",rainthreshold
    465454
     455         write(*,*) "Include surface hydrology ?"
     456         hydrology=.false. ! default value
     457         call getin("hydrology",hydrology)
     458         write(*,*) " hydrology = ",hydrology
     459
     460         write(*,*) "Evolve surface water sources ?"
     461         sourceevol=.false. ! default value
     462         call getin("sourceevol",sourceevol)
     463         write(*,*) " sourceevol = ",sourceevol
     464
     465         write(*,*) "Snow albedo ?"
     466         albedosnow=0.5         ! default value
     467         call getin("albedosnow",albedosnow)
     468         write(*,*) " albedosnow = ",albedosnow
     469
     470         write(*,*) "Maximum ice thickness ?"
     471         maxicethick=2.0         ! default value
     472         call getin("maxicethick",maxicethick)
     473         write(*,*) " maxicethick = ",maxicethick
     474
     475         write(*,*) "Freezing point of seawater ?"
     476         Tsaldiff=-1.8          ! default value
     477         call getin("Tsaldiff",Tsaldiff)
     478         write(*,*) " Tsaldiff = ",Tsaldiff
     479
    466480! Test of incompatibility:
    467481! if watercond is used, then water should be used too
    … …  
    472486         endif
    473487
    474          write(*,*) "photochemistry: include chemical species"
    475          photochem=.false. ! default value
    476          call getin("photochem",photochem)
    477          write(*,*) " photochem = ",photochem
    478 
    479 
    480 ! THERMOSPHERE
    481 
    482          write(*,*) "call thermosphere ?"
    483          callthermos=.false. ! default value
    484          call getin("callthermos",callthermos)
    485          write(*,*) " callthermos = ",callthermos
    486          
    487          write(*,*) " water included without cycle ",
    488      &              "(only if water=.false.)"
    489          thermoswater=.false. ! default value
    490          call getin("thermoswater",thermoswater)
    491          write(*,*) " thermoswater = ",thermoswater
    492 
    493          write(*,*) "call thermal conduction ?",
    494      &    " (only if callthermos=.true.)"
    495          callconduct=.false. ! default value
    496          call getin("callconduct",callconduct)
    497          write(*,*) " callconduct = ",callconduct
    498 
    499          write(*,*) "call EUV heating ?",
    500      &   " (only if callthermos=.true.)"
    501          calleuv=.false.  ! default value
    502          call getin("calleuv",calleuv)
    503          write(*,*) " calleuv = ",calleuv
    504 
    505          write(*,*) "call molecular viscosity ?",
    506      &   " (only if callthermos=.true.)"
    507          callmolvis=.false. ! default value
    508          call getin("callmolvis",callmolvis)
    509          write(*,*) " callmolvis = ",callmolvis
    510 
    511          write(*,*) "call molecular diffusion ?",
    512      &   " (only if callthermos=.true.)"
    513          callmoldiff=.false. ! default value
    514          call getin("callmoldiff",callmoldiff)
    515          write(*,*) " callmoldiff = ",callmoldiff
    516          
    517          write(*,*) "call thermospheric photochemistry ?",
    518      &   " (only if callthermos=.true.)"
    519          thermochem=.false. ! default value
    520          call getin("thermochem",thermochem)
    521          write(*,*) " thermochem = ",thermochem
    522 
    523          write(*,*) "date for solar flux calculation:",
    524      &   " (1985 < date < 2002)"
    525          write(*,*) "(Solar min=1996.4 ave=1993.4 max=1990.6)"
    526          solarcondate=1993.4 ! default value
    527          call getin("solarcondate",solarcondate)
    528          write(*,*) " solarcondate = ",solarcondate
    529          
    530 
    531          if (.not.callthermos) then
    532            if (thermoswater) then
    533              print*,'if thermoswater is set, callthermos must be true'
    534              stop
    535            endif         
    536            if (callconduct) then
    537              print*,'if callconduct is set, callthermos must be true'
    538              stop
    539            endif       
    540            if (calleuv) then
    541              print*,'if calleuv is set, callthermos must be true'
    542              stop
    543            endif         
    544            if (callmolvis) then
    545              print*,'if callmolvis is set, callthermos must be true'
    546              stop
    547            endif       
    548            if (callmoldiff) then
    549              print*,'if callmoldiff is set, callthermos must be true'
    550              stop
    551            endif         
    552            if (thermochem) then
    553              print*,'if thermochem is set, callthermos must be true'
    554              stop
    555            endif         
    556         endif
    557 
    558 ! Test of incompatibility:
    559 ! if photochem is used, then water should be used too
    560 
    561          if (photochem.and..not.water) then
    562            print*,'if photochem is used, water should be used too'
    563            stop
    564          endif
    565 
    566 ! if callthermos is used, then thermoswater should be used too
    567 ! (if water not used already)
    568 
    569          if (callthermos .and. .not.water) then
    570            if (callthermos .and. .not.thermoswater) then
    571              print*,'if callthermos is used, water or thermoswater
    572      &               should be used too'
    573              stop
    574            endif
    575          endif
     488         mugaz=0.
     489         cpp=0.
     490         call su_gases
     491         call calc_cpp_mugaz
    576492
    577493         PRINT*,'--------------------------------------------'
    … …  
    594510      PRINT*,'        or each ',iradia*dtphys,' seconds'
    595511      PRINT*
    596 ! --------------------------------------------------------------
    597 !  Managing the Longwave radiative transfer
    598 ! --------------------------------------------------------------
    599 
    600 !     In most cases, the run just use the following values :
    601 !     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    602       callemis=.true.     
    603 !     ilwd=10*int(daysec/dtphys) ! bug before 22/10/01       
    604       ilwd=10*int(daysec/dtphys)
    605       ilwn=2               
    606       linear=.true.       
    607       ncouche=3
    608       alphan=0.4
    609       ilwb=2
    610       semi=0
    611 
    612 c$$$!     BUT people working hard on the LW may want to read them in 'radia.def'
    613 c$$$!     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    614 c$$$
    615 c$$$      OPEN(99,file='radia.def',status='old',form='formatted'
    616 c$$$     .     ,iostat=ierr)
    617 c$$$      IF(ierr.EQ.0) THEN
    618 c$$$         write(*,*) 'inifis: Reading radia.def !!!'
    619 c$$$         READ(99,fmt='(a)') ch1
    620 c$$$         READ(99,*) callemis
    621 c$$$         WRITE(*,8000) ch1,callemis
    622 c$$$
    623 c$$$         READ(99,fmt='(a)') ch1
    624 c$$$         READ(99,*) iradia
    625 c$$$         WRITE(*,8001) ch1,iradia
    626 c$$$
    627 c$$$         READ(99,fmt='(a)') ch1
    628 c$$$         READ(99,*) ilwd
    629 c$$$         WRITE(*,8001) ch1,ilwd
    630 c$$$
    631 c$$$         READ(99,fmt='(a)') ch1
    632 c$$$         READ(99,*) ilwn
    633 c$$$         WRITE(*,8001) ch1,ilwn
    634 c$$$
    635 c$$$         READ(99,fmt='(a)') ch1
    636 c$$$         READ(99,*) linear
    637 c$$$         WRITE(*,8000) ch1,linear
    638 c$$$
    639 c$$$         READ(99,fmt='(a)') ch1
    640 c$$$         READ(99,*) ncouche
    641 c$$$         WRITE(*,8001) ch1,ncouche
    642 c$$$
    643 c$$$         READ(99,fmt='(a)') ch1
    644 c$$$         READ(99,*) alphan
    645 c$$$         WRITE(*,*) ch1,alphan
    646 c$$$
    647 c$$$         READ(99,fmt='(a)') ch1
    648 c$$$         READ(99,*) ilwb
    649 c$$$         WRITE(*,8001) ch1,ilwb
    650 c$$$
    651 c$$$
    652 c$$$         READ(99,fmt='(a)') ch1
    653 c$$$         READ(99,'(l1)') callg2d
    654 c$$$         WRITE(*,8000) ch1,callg2d
    655 c$$$
    656 c$$$         READ(99,fmt='(a)') ch1
    657 c$$$         READ(99,*) semi
    658 c$$$         WRITE(*,*) ch1,semi
    659 c$$$      end if
    660 c$$$      CLOSE(99)
     512
    661513
    662514!-----------------------------------------------------------------------
    … …  
    678530      pi=2.*asin(1.) ! NB: pi is a common in comcstfi.h
    679531
    680 !     managing the tracers, and tests:
    681 !     -------------------------------
    682 
    683       if(tracer) then
    684 
    685 !          when photochem is used, nqchem_min is the rank
    686 !          of the first chemical species
    687 
    688 ! Ehouarn: nqchem_min is now meaningless and no longer used
    689 !       nqchem_min = 1
    690        if (photochem .or. callthermos) then
    691          chem = .true.
    692        end if
    693 
    694        if (water .or. thermoswater)then
    695           h2o = .true.
    696        else
    697           h2o = .false.
    698        endif
    699 
    700 !          TESTS
    701 
    702        print*,'inifis: TRACERS:'
    703 
    704 c$$$       if ((doubleq).and.(h2o).and.
    705 c$$$     $     (chem).and.(iceparty)) then
    706 c$$$         print*,' 2 dust tracers (doubleq)'
    707 c$$$         print*,' 1 water vapour tracer'
    708 c$$$         print*,' 1 water ice tracer'
    709 c$$$         print*,nqmx-4,' chemistry tracers'
    710 c$$$       endif
    711 c$$$
    712 c$$$       if ((doubleq).and.(h2o).and.
    713 c$$$     $     (chem).and..not.(iceparty)) then
    714 c$$$         print*,' 2 dust tracers (doubleq)'
    715 c$$$         print*,' 1 water vapour tracer'
    716 c$$$         print*,nqmx-3,' chemistry tracers'
    717 c$$$       endif
    718 c$$$
    719 c$$$       if ((doubleq).and.(h2o).and.
    720 c$$$     $     .not.(chem).and.(iceparty)) then
    721 c$$$         print*,' 2 dust tracers (doubleq)'
    722 c$$$         print*,' 1 water vapour tracer'
    723 c$$$         print*,' 1 water ice tracer'
    724 c$$$         if (nqmx.ne.4) then
    725 c$$$           print*,'nqmx should be 4 with these options.'
    726 c$$$               print*,'(or check callphys.def)'
    727 c$$$           stop
    728 c$$$         endif
    729 c$$$       endif
    730 c$$$
    731 c$$$       if ((doubleq).and.(h2o).and.
    732 c$$$     $     .not.(chem).and..not.(iceparty)) then
    733 c$$$         print*,' 2 dust tracers (doubleq)'
    734 c$$$         print*,' 1 water vapour tracer'
    735 c$$$         if (nqmx.ne.3) then
    736 c$$$           print*,'nqmx should be 3 with these options...'
    737 c$$$               print*,'(or check callphys.def)'
    738 c$$$           stop
    739 c$$$         endif
    740 c$$$       endif
    741 c$$$
    742 c$$$       if ((doubleq).and..not.(h2o)) then
    743 c$$$         print*,' 2 dust tracers (doubleq)'
    744 c$$$         if (nqmx.ne.2) then
    745 c$$$           print*,'nqmx should be 2 with these options...'
    746 c$$$               print*,'(or check callphys.def)'
    747 c$$$           stop
    748 c$$$         endif
    749 c$$$       endif
    750 
    751        if (.not.(doubleq).and.(h2o).and.
    752 !     $     (chem).and.(iceparty)) then
    753      $     (chem).and.(watercond)) then
    754          if (dustbin.gt.0) then
    755            print*,dustbin,' dust bins'
    756          endif
    757          print*,nqmx-2-dustbin,' chemistry tracers'
    758          print*,' 1 water vapour tracer'
    759          print*,' 1 water ice tracer'
    760        endif
    761 
    762        if (.not.(doubleq).and.(h2o).and.
    763 !     $     (chem).and..not.(iceparty)) then
    764      $     (chem).and..not.(watercond)) then
    765          if (dustbin.gt.0) then
    766            print*,dustbin,' dust bins'
    767          endif
    768          print*,nqmx-1-dustbin,' chemistry tracers'
    769          print*,' 1 water vapour tracer'
    770        endif
    771 
    772        if (.not.(doubleq).and.(h2o).and.
    773 !     $     .not.(chem).and.(iceparty)) then
    774      $     .not.(chem).and.(watercond)) then
    775          if (dustbin.gt.0) then
    776            print*,dustbin,' dust bins'
    777          endif
    778          print*,' 1 water vapour tracer'
    779          print*,' 1 water ice tracer'
    780 
    781          if (nqmx.gt.(dustbin+2)) then
    782            print*,'nqmx should be ',(dustbin+2),
    783      $            ' with these options...'
    784                    print*,'(or check callphys.def)'
    785          endif
    786          if (nqmx.lt.(dustbin+2)) then
    787             print*,dustbin,' dust bins, but this should be ok I think.'
    788 !           stop
    789          endif
    790        endif
    791 
    792        if (.not.(doubleq).and.(h2o).and.
    793 !     $     .not.(chem).and..not.(iceparty)) then
    794      $     .not.(chem).and..not.(watercond)) then
    795          if (dustbin.gt.0) then
    796            print*,dustbin,' dust bins'
    797          endif
    798          print*,' 1 water vapour tracer'
    799          if (nqmx.gt.(dustbin+1)) then
    800            print*,'nqmx should be ',(dustbin+1),
    801      $            ' with these options...'
    802                    print*,'(or check callphys.def)'
    803          if (nqmx.lt.(dustbin+1)) then
    804            stop
    805          endif
    806          endif
    807        endif
    808 
    809 !       if (.not.(doubleq).and..not.(h2o)) then
    810 !         if (dustbin.gt.0) then
    811 !           print*,dustbin,' dust bins'
    812 !           if (nqmx.ne.dustbin) then
    813 !             print*,'nqmx should be ',dustbin,
    814 !     $              ' with these options...'
    815 !             print*,'(or check callphys.def)'
    816 !             stop
    817 !           endif
    818 !         else
    819            print*,'dustbin=',dustbin,
    820      $            ': tracer should be F with these options...'
    821      $           ,'UNLESS you just want to move tracers around '
    822 !         endif
    823 !       endif
    824 
    825       endif ! of if (tracer)
    826 
    827532      RETURN
    828533      END

  • trunk/LMDZ.GENERIC/libf/phystd/iniorbit.F

    r135 r253  
    11      SUBROUTINE iniorbit
    2      $     (paphelie,pperiheli,pyear_day,pperi_day,pobliq)
     2     $     (papoastr,pperiastr,pyear_day,pperi_day,pobliq)
    33      IMPLICIT NONE
    44
    … …  
    1313c    Initialisation du sous programme orbite qui calcule
    1414c    a une date donnee de l'annee de duree year_day commencant
    15 c    a l'equinoxe de printemps et dont le perihelie se situe
     15c    a l'equinoxe de printemps et dont le periastre se situe
    1616c    a la date peri_day, la distance au soleil et la declinaison.
    1717c
    … …  
    2626c   Input:
    2727c   ------
    28 c   aphelie       \   aphelie et perihelie de l'orbite
    29 c   periheli      /   en millions de kilometres.
     28c   apoastr       \   apoastron and periastron of the orbit
     29c   periastr      /   in millions of kilometres.
    3030c
    3131c=======================================================================
    … …  
    4141c   ----------
    4242
    43       REAL paphelie,pperiheli,pyear_day,pperi_day,pobliq
     43      REAL papoastr,pperiastr,pyear_day,pperi_day,pobliq
    4444
    4545c   Local:
    … …  
    5353      pi=2.*asin(1.)
    5454
    55       aphelie =paphelie
    56       periheli=pperiheli
     55      apoastr =papoastr
     56      periastr=pperiastr
    5757      year_day=pyear_day
    5858      obliquit=pobliq
    5959      peri_day=pperi_day
    6060
    61       PRINT*,'Perihelie en Mkm  ',periheli
    62       PRINT*,'Aphelise  en Mkm  ',aphelie
    63       PRINT*,'obliquite en degres  :',obliquit
     61      PRINT*,'Periastron in Mkm  ',periastr
     62      PRINT*,'Apoastron in Mkm  ',apoastr
     63      PRINT*,'Obliquity in degrees  :',obliquit
    6464      unitastr=149.597927
    65       e_elips=(aphelie-periheli)/(periheli+aphelie)
    66       p_elips=0.5*(periheli+aphelie)*(1-e_elips*e_elips)/unitastr
     65      e_elips=(apoastr-periastr)/(periastr+apoastr)
     66      p_elips=0.5*(periastr+apoastr)*(1-e_elips*e_elips)/unitastr
    6767
    6868      print*,'e_elips',e_elips
    … …  
    9797
    9898      timeperi=2.*atan(sqrt((1.+e_elips)/(1.-e_elips))*tan(zx0/2.))
    99       PRINT*,'longitude solaire du perihelie timeperi = ',timeperi
     99      PRINT*,'Solar longitude of periastron timeperi = ',timeperi
    100100
    101101      RETURN

  • trunk/LMDZ.GENERIC/libf/phystd/initracer.F

    r135 r253  
    6262
    6363
    64         print*,'nqmx=',nqmx
    6564! Identify tracers by their names: (and set corresponding values of mmol)
    6665      ! 0. initialize tracer indexes to zero:
    … …  
    9291
    9392
    94       print*,'Setting dustbin = 0 in initracer.F'
    95       dustbin=0
     93      !print*,'Setting dustbin = 0 in initracer.F'
     94      !dustbin=0
    9695
    9796      ! 1. find dust tracers
    … …  
    222221c$$$      else
    223222
    224       print*,dustbin
    225 
    226        if (dustbin.gt.1) then
    227         print*,'ATTENTION:',
    228      $   ' properties of dust need input in initracer !!!'
    229         stop
    230 
    231        else if (dustbin.eq.1) then
    232 
    233 c       This will be used for 1 dust particle size:
    234 c       ------------------------------------------
    235         radius(igcm_dustbin(1))=3.e-6
    236         Qext(igcm_dustbin(1))=3.04
    237         alpha_lift(igcm_dustbin(1))=0.0e-6
    238         alpha_devil(igcm_dustbin(1))=7.65e-9
    239         qextrhor(igcm_dustbin(1))=(3./4.)*Qext(igcm_dustbin(1))
    240      &                         /(rho_dust*radius(igcm_dustbin(1)))
    241         rho_q(igcm_dustbin(1))=rho_dust
    242 
    243        endif
    244 !      end if    ! (doubleq)
     223
     224c$$$       if (dustbin.gt.1) then
     225c$$$        print*,'ATTENTION:',
     226c$$$     $   ' properties of dust need input in initracer !!!'
     227c$$$        stop
     228c$$$
     229c$$$       else if (dustbin.eq.1) then
     230c$$$
     231c$$$c       This will be used for 1 dust particle size:
     232c$$$c       ------------------------------------------
     233c$$$        radius(igcm_dustbin(1))=3.e-6
     234c$$$        Qext(igcm_dustbin(1))=3.04
     235c$$$        alpha_lift(igcm_dustbin(1))=0.0e-6
     236c$$$        alpha_devil(igcm_dustbin(1))=7.65e-9
     237c$$$        qextrhor(igcm_dustbin(1))=(3./4.)*Qext(igcm_dustbin(1))
     238c$$$     &                         /(rho_dust*radius(igcm_dustbin(1)))
     239c$$$        rho_q(igcm_dustbin(1))=rho_dust
     240c$$$
     241c$$$       endif
     242c$$$!      end if    ! (doubleq)
    245243
    246244c     Initialization for water vapor
    … …  
    260258c        opacity not always realistic.
    261259
     260
     261!         if(ngridmx.eq.1)
     262
     263
     264!     to be modified for BC+ version?
    262265         do ig=1,ngridmx
    263266           if (ngridmx.ne.1) watercaptag(ig)=.false.
    264267           dryness(ig) = 1.
    265268         enddo
     269
     270
     271
    266272
    267273!         IF (caps) THEN

  • trunk/LMDZ.GENERIC/libf/phystd/moistadj.F90

    r135 r253  
    1       subroutine moistadj(t, pq, pplev, pplay, dtmana, dqmana, ptimestep, rneb)
     1subroutine moistadj(t, pq, pplev, pplay, dtmana, dqmana, ptimestep, rneb)
    22
    33  use watercommon_h, only: To, RLVTT, RCPD
    … …  
    109109
    110110      DO k = 1, nlayermx
    111       DO i = 1, ngridmx
    112          local_q(i,k) = q(i,k)
    113          local_t(i,k) = t(i,k)
    114          rneb(i,k) = 0.0
    115          d_ql(i,k) = 0.0
    116          d_t(i,k)  = 0.0
    117          d_q(i,k)  = 0.0
    118       ENDDO
     111         DO i = 1, ngridmx
     112            local_q(i,k) = q(i,k)
     113            local_t(i,k) = t(i,k)
     114            rneb(i,k) = 0.0
     115            d_ql(i,k) = 0.0
     116            d_t(i,k)  = 0.0
     117            d_q(i,k)  = 0.0
     118         ENDDO
     119         new_qb(k)=0.0
    119120      ENDDO
    120121
    … …  
    132133            v_p = pplay(i,k)
    133134
    134             call watersat_2(v_t,v_p,v_qs(i,k))
     135            call watersat(v_t,v_p,v_qs(i,k))
    135136            call watersat_grad(v_t,v_qs(i,k),v_qsd(i,k))
    136137         ENDDO
    … …  
    141142!         DO i = 1, ngridmx
    142143!            v_t = local_t(i,k)
    143 !            IF (v_t.LT.t_coup) THEN
     144!            IF (v_t.LT.To) THEN
    144145!               print*,'RHs=',q(i,k) / v_qs(i,k)
    145146!            ELSE
    … …  
    223224         local_q(i,k) = new_qb(k)
    224225         local_t(i,k) = cp_new_t(k) / RCPD
    225       ENDDO
     226
     227!          print*,'v_qs in loop=',v_qs
     228!          print*,'v_qsd in loop=',v_qsd
     229!          print*,'new_qb in loop=',new_qb
     230!          print*,'cp_delta_t in loop=',cp_delta_t
     231      ENDDO
     232
    226233
    227234!--------------------------------------------------- sounding downwards
    … …  
    242249!           ENDIF
    243250
    244          call watersat_2(v_t,v_p,v_qs(i,k))
     251         call watersat(v_t,v_p,v_qs(i,k))
    245252         call watersat_grad(v_t,v_qs(i,k),v_qsd(i,k))
    246253
    … …  
    332339      ENDDO
    333340
     341!      print*,'local_q BEFORE=',local_q
     342
    334343      DO k = 1, nlayermx
    335344      DO i = 1, ngridmx
    … …  
    361370!      print*,'d_t=',d_t
    362371!      print*,'d_q=',d_q
     372!      print*,'local_q=',local_q
     373!      print*,'q=',q
     374!      print*,'v_qs(i,k)=',v_qs
     375!      print*,'v_qsd(i,k)=',v_qsd
     376!      print*,'cp_delta_t(k)=',cp_delta_t
     377
    363378!      print*,'d_ql=',d_ql
    364 !      print*,'i_h2o=',i_h2o
     379!      print*,'delta_q=',delta_q
     380!      print*,'zq1=',zq1
     381!      print*,'zq2=',zq2
     382!!      print*,'i_h2o=',i_h2o
    365383!      print*,'i_ice=',i_ice
    366 
     384!
    367385!      print*,'IN MANABE:'
    368386!      print*,'d_q=',d_q
    … …  
    374392
    375393!     Some conservation diagnostics...
    376       dEtot=0.0
    377       dL1tot=0.0
    378       dL2tot=0.0
    379       dqtot=0.0
    380       masse=0.0
    381       DO k = 1, nlayermx
    382          DO i = 1, ngridmx
    383 
    384             masse = (pplev(i,k) - pplev(i,k+1))/g
    385 
    386             dEtot  = dEtot  + cpp*d_t(i,k)*masse
    387             dL1tot = dL1tot + RLVTT*d_ql(i,k)*masse
    388             dL2tot = dL2tot + RLVTT*d_q(i,k)*masse ! is this line necessary?
    389 
    390             dqtot = dqtot + (d_q(i,k) + d_ql(i,k))*masse
    391 
    392          ENDDO
    393       ENDDO
    394 
    395         print*,'In manabe energy change=',dEtot
    396         print*,'In manabe condense energy change 1 =',dL1tot
    397         print*,'In manabe condense energy change 2 =',dL2tot
    398         print*,'In manabe water change=',dqtot
     394!      dEtot=0.0
     395!      dL1tot=0.0
     396!      dL2tot=0.0
     397!      dqtot=0.0
     398!      masse=0.0
     399!      DO k = 1, nlayermx
     400!         DO i = 1, ngridmx
     401!
     402!            masse = (pplev(i,k) - pplev(i,k+1))/g
     403!
     404!            dEtot  = dEtot  + cpp*d_t(i,k)*masse
     405!            dL1tot = dL1tot + RLVTT*d_ql(i,k)*masse
     406!            dL2tot = dL2tot + RLVTT*d_q(i,k)*masse ! is this line necessary?
     407!
     408!            dqtot = dqtot + (d_q(i,k) + d_ql(i,k))*masse
     409!
     410!         ENDDO
     411!      ENDDO
     412
     413!        print*,'In manabe energy change=',dEtot
     414!        print*,'In manabe condense energy change 1 =',dL1tot
     415!        print*,'In manabe condense energy change 2 =',dL2tot
     416!        print*,'In manabe water change=',dqtot
    399417
    400418      RETURN
    401       END
     419   END

  • trunk/LMDZ.GENERIC/libf/phystd/newsedim.F

    r135 r253  
    1212!==================================================================
    1313
    14 c-----------------------------------------------------------------------
    15 c   declarations:
    16 c   -------------
     14!-----------------------------------------------------------------------
     15!   declarations
     16!   ------------
    1717
    1818#include "dimensions.h"
    1919#include "dimphys.h"
    2020#include "comcstfi.h"
    21 c
    22 c   arguments:
    23 c   ----------
     21
     22!   arguments
     23!   ---------
    2424
    2525      INTEGER ngrid,nlay,naersize
    … …  
    5757c    Physical constant
    5858c    ~~~~~~~~~~~~~~~~~
    59 !      REAL visc, molrad
     59      REAL visc, molrad
    6060c     Gas molecular viscosity (N.s.m-2)
    61 !      data visc/1.e-5/       ! CO2
     61      data visc/1.e-5/       ! CO2
    6262c     Effective gas molecular radius (m)
    63 !      data molrad/2.2e-10/   ! CO2
     63      data molrad/2.2e-10/   ! CO2
    6464
    6565c     local and saved variable
    … …  
    6969c    ** un petit test de coherence
    7070c       --------------------------
     71
     72
     73      !print*,'temporary fixed particle rad in newsedim!!'
    7174
    7275      IF (firstcall) THEN
    … …  
    8184
    8285
     86
    8387!=======================================================================
    8488!     Preliminary calculations for sedimenation velocity
    … …  
    9599c   (correction = 0.85 for irregular particles, 0.5 for disk shaped particles)
    96100c        a = a    * 0.85
     101
     102
    97103      ENDIF
    98 
    99 
    100 
    101 
    102104
    103105c-----------------------------------------------------------------------
    … …  
    116118            else
    117119              i=ngrid*(l-1)+ig
    118               rfall=rd(i)
     120              rfall=rd(i) ! how can this be correct!!?
    119121            endif 
     122
     123!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     124! TEMPORARY MODIF BY RDW !!!!
     125            !rfall=5.e-6
     126            if(rfall.lt.1.e-7)then
     127               rfall=1.e-7
     128            endif
     129            !if(rfall.gt.5.e-5)then
     130            !   rfall=5.e-5
     131            !endif
     132
     133!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     134
    120135            vstokes(ig,l) = b * rho * rfall**2 *
    121136     &      (1 + 1.333* ( a*pt(ig,l)/pplev(ig,l) )/rfall)

  • trunk/LMDZ.GENERIC/libf/phystd/optci.F90

    r135 r253  
    33           TMID,PMID,TAUGSURF,QVAR)
    44
    5 
    65      use radinc_h
    7       use radcommon_h, only: gasi, tlimit, wrefVAR, Cmk,tgasref,pfgasref,wnoi
     6      use radcommon_h, only: gasi, tlimit, wrefVAR, Cmk,tgasref,pfgasref,wnoi,scalep
    87      implicit none
    98
    … …  
    3130#include "comcstfi.h"
    3231#include "callkeys.h"
     32#include "gases.h"
    3333
    3434
    … …  
    5858
    5959      real*8 taugsurf(L_NSPECTI,L_NGAUSS-1)
    60       real*8 dco2
     60      real*8 DCONT
     61      double precision wn_cont, p_cont, T_cont
    6162
    6263!     Water mixing ratio variables
    … …  
    6970
    7071!     variables for k in units m^-1
    71       real*8 rho, dz
     72      real*8 rho, dz(L_LEVELS)
     73
     74      integer igas
     75
     76      !--- Kasting's CIA ----------------------------------------
     77      !real*8, parameter :: Ci(L_NSPECTI)=[                         &
     78      !     3.8E-5, 1.2E-5, 2.8E-6, 7.6E-7, 4.5E-7, 2.3E-7,    &
     79      !     5.4E-7, 1.6E-6, 0.0,                               &
     80      !     0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0,            &
     81      !     0.0, 4.0E-7, 4.0E-6, 1.4E-5,    &
     82      !     1.0E-5, 1.2E-6, 2.0E-7, 5.0E-8, 3.0E-8, 0.0 ]
     83      !real*8, parameter :: Ti(L_NSPECTI)=[ -2.2, -1.9,             &
     84      !     -1.7, -1.7, -1.7, -1.7, -1.7, -1.7,                &
     85      !     0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, &
     86      !     -1.7,-1.7,-1.7,-1.7,-1.7,-1.7,-1.7, -1.7,0.0 ]
     87      !----------------------------------------------------------
    7288
    7389!=======================================================================
    … …  
    7591!     spectral interval, NW, and each Gauss point, NG.
    7692
    77       DO NG=1,L_NGAUSS-1
    78          do NW=1,L_NSPECTI
    79             TAUGSURF(NW,NG) = 0.0D0
    80          end do
    81       end do
     93      taugsurf(:,:) = 0.0
     94      dpr(:)        = 0.0
     95      lkcoef(:,:)   = 0.0
    8296
    8397      do K=2,L_LEVELS
    8498         DPR(k) = PLEV(K)-PLEV(K-1)
    85 
    86          rho  = PLEV(K)/(R*TMID(K))
    87          dz   = -DPR(k)/(g*rho)
    88          !print*,'rho=',rho
    89          !print*,'dz=',dz
    90 
    9199         U(k)   = Cmk*DPR(k)    ! only Cmk line in optci.F
    92          ! soon to be replaced by m^-1 !!!
     100
     101         !--- Kasting's CIA ----------------------------------------
     102         !dz(k)=dpr(k)*189.02*TMID(K)/(0.03720*PMID(K))
     103         ! this is CO2 path length (in cm) as written by Francois
     104         ! delta_z = delta_p * R_specific * T / (g * P)
     105         ! But Kasting states that W is in units of _atmosphere_ cm
     106         ! So we do
     107         !dz(k)=dz(k)*(PMID(K)/1013.25)
     108         !dz(k)=dz(k)/100.0 ! in m for SI calc
     109         !----------------------------------------------------------
     110
     111         ! if we have continuum opacities, we need dz
     112         dz(k)=dpr(k)*R*TMID(K)/(g*PMID(K))
    93113
    94114         call tpindex(PMID(K),TMID(K),QVAR(K),pfgasref,tgasref,WREFVAR, &
    95115              LCOEF,MT(K),MP(K),NVAR(K),WRATIO(K))
    96 
     116         
    97117         do LK=1,4
    98118            LKCOEF(K,LK) = LCOEF(LK)
    99119         end do
    100120
     121
    101122         DO NW=1,L_NSPECTI
    102123            do iaer=1,naerkind
    103                TAEROS(K,NW,IAER) = TAUAERO(K,IAER)  * QXIAER(K,NW,IAER)
     124               TAEROS(K,NW,IAER) = TAUAERO(K,IAER) * QXIAER(K,NW,IAER)
    104125            end do
    105126         END DO
    106127      end do                    ! levels
    107128
    108 
    109129      do K=2,L_LEVELS
    110130         do nw=1,L_NSPECTI
    111131 
    112              DCO2   = 0.0 ! continuum absorption (no longer used)
    113 
    114              !if(varactive)then
    115              !   call water_cont(PMID(K),TMID(K),WRATIO(K),WNOI(nw),DCO2)
    116              !endif
    117 
    118            do ng=1,L_NGAUSS-1
    119 
     132            DCONT = 0.0 ! continuum absorption
     133
     134            ! include H2 continuum
     135            do igas=1,ngasmx
     136               if(gnom(igas).eq.'H2_')then
     137
     138                  wn_cont = dble(wnoi(nw))
     139                  T_cont  = dble(TMID(k))
     140                  p_cont  = dble(PMID(k)*scalep*gfrac(igas))
     141
     142                  call interpolateH2H2(wn_cont,T_cont,p_cont,DCONT,.false.)
     143
     144                  DCONT=DCONT*dz(k)
     145
     146
     147               endif
     148            enddo
     149
     150            !--- Kasting's CIA ----------------------------------------
     151            !DCO2   = dz(k)*Ci(nw)*(1.2859*PMID(k)/1000.0)*(TMID(k)/300.)**Ti(nw)
     152            !DCO2 = 130*Ci(nw)*(pmid(k)/1013.25)**2*(tmid(k)/300.)**Ti(nw) * dz(k)
     153            ! these two have been verified to give the same results
     154            !----------------------------------------------------------
     155
     156            ! Water continuum currently inactive!
     157            !if(varactive)then
     158            !   call water_cont(PMID(K),TMID(K),WRATIO(K),WNOI(nw),DCO2)
     159            !endif
     160
     161            do ng=1,L_NGAUSS-1
    120162
    121163!     Now compute TAUGAS
    … …  
    125167!     the water data range
    126168
    127 
    128                if (L_REFVAR.eq.1)then ! added by RW for special no variable case
     169               if(L_REFVAR.eq.1)then ! added by RW for special no variable case
    129170                  KCOEF(1) = GASI(MT(K),MP(K),1,NW,NG)
    130171                  KCOEF(2) = GASI(MT(K),MP(K)+1,1,NW,NG)
    … …  
    133174               else
    134175
    135               KCOEF(1) = GASI(MT(K),MP(K),NVAR(K),NW,NG) + WRATIO(K)*     &
    136                    (GASI(MT(K),MP(K),NVAR(K)+1,NW,NG) -                   &
    137                    GASI(MT(K),MP(K),NVAR(K),NW,NG))
    138 
    139                KCOEF(2) = GASI(MT(K),MP(K)+1,NVAR(K),NW,NG) + WRATIO(K)*  &
    140                    (GASI(MT(K),MP(K)+1,NVAR(K)+1,NW,NG) -                 &
    141                    GASI(MT(K),MP(K)+1,NVAR(K),NW,NG))
    142 
    143              KCOEF(3) = GASI(MT(K)+1,MP(K)+1,NVAR(K),NW,NG) + WRATIO(K)* &
    144                    (GASI(MT(K)+1,MP(K)+1,NVAR(K)+1,NW,NG) -               &
    145                    GASI(MT(K)+1,MP(K)+1,NVAR(K),NW,NG))
    146 
    147                KCOEF(4) = GASI(MT(K)+1,MP(K),NVAR(K),NW,NG) + WRATIO(K)*  &
    148                    (GASI(MT(K)+1,MP(K),NVAR(K)+1,NW,NG) -                 &
    149                    GASI(MT(K)+1,MP(K),NVAR(K),NW,NG))
     176                  KCOEF(1) = GASI(MT(K),MP(K),NVAR(K),NW,NG) + WRATIO(K)*     &
     177                       (GASI(MT(K),MP(K),NVAR(K)+1,NW,NG) -                   &
     178                       GASI(MT(K),MP(K),NVAR(K),NW,NG))
     179
     180                  KCOEF(2) = GASI(MT(K),MP(K)+1,NVAR(K),NW,NG) + WRATIO(K)*   &
     181                       (GASI(MT(K),MP(K)+1,NVAR(K)+1,NW,NG) -                 &
     182                       GASI(MT(K),MP(K)+1,NVAR(K),NW,NG))
     183
     184                  KCOEF(3) = GASI(MT(K)+1,MP(K)+1,NVAR(K),NW,NG) + WRATIO(K)* &
     185                       (GASI(MT(K)+1,MP(K)+1,NVAR(K)+1,NW,NG) -               &
     186                       GASI(MT(K)+1,MP(K)+1,NVAR(K),NW,NG))
     187
     188                  KCOEF(4) = GASI(MT(K)+1,MP(K),NVAR(K),NW,NG) + WRATIO(K)*   &
     189                       (GASI(MT(K)+1,MP(K),NVAR(K)+1,NW,NG) -                 &
     190                       GASI(MT(K)+1,MP(K),NVAR(K),NW,NG))
    150191               endif
    151192
    152193!     Interpolate the gaseous k-coefficients to the requested T,P values
    153194
    154                ANS = LKCOEF(K,1)*KCOEF(1) + LKCOEF(K,2)*KCOEF(2) +        &
     195               ANS = LKCOEF(K,1)*KCOEF(1) + LKCOEF(K,2)*KCOEF(2) +            &
    155196                    LKCOEF(K,3)*KCOEF(3) + LKCOEF(K,4)*KCOEF(4)
    156 
     197               
    157198               TAUGAS  = U(k)*ANS
    158199
    159                TAUGSURF(NW,NG) = TAUGSURF(NW,NG) + TAUGAS
    160 
    161                DTAUKI(K,nw,ng) = TAUGAS
     200               TAUGSURF(NW,NG) = TAUGSURF(NW,NG) + TAUGAS + DCONT
     201               !TAUGSURF(NW,NG) = TAUGSURF(NW,NG) + TAUGAS
     202
     203               DTAUKI(K,nw,ng) = TAUGAS + DCONT ! For parameterized continuum absorption
     204
    162205               do iaer=1,naerkind
    163                   DTAUKI(K,nw,ng) = DTAUKI(K,nw,ng) + TAEROS(K,NW,IAER)   &
    164                        + DCO2 ! For Kasting CIA
    165                end do
     206                  DTAUKI(K,nw,ng) = DTAUKI(K,nw,ng) + TAEROS(K,NW,IAER)
     207               end do ! a bug was here!
    166208
    167209            end do
    … …  
    171213
    172214            NG              = L_NGAUSS
    173             DTAUKI(K,nw,ng) = 0.0
     215            DTAUKI(K,nw,ng) = 0.0 + DCONT ! For parameterized continuum absorption
     216
    174217            do iaer=1,naerkind
    175                DTAUKI(K,nw,ng) = DTAUKI(K,nw,ng) +  TAEROS(K,NW,IAER)     &
    176                     + DCO2 ! For parameterized continuum absorption
    177             end do ! a bug was found here!!
     218               DTAUKI(K,nw,ng) = DTAUKI(K,nw,ng) +  TAEROS(K,NW,IAER)
     219            end do ! a bug was here!
    178220
    179221         end do
    … …  
    275317
    276318!-------------------------------------------------------------------------
    277     subroutine water_cont(p,T,wratio,nu,DCO2)
     319    subroutine water_cont(p,T,wratio,nu,DCONT)
    278320!   Calculates the continuum opacity for H2O
    279 !   must check somewhere that it actually _is_ H2O we are using...
     321!   NOT CURRENTLY USED
    280322
    281323      implicit none
    282324
    283       real p, T, wratio, nu, DCO2
     325      real p, T, wratio, nu, DCONT
    284326      real h1, h2
    285327
    … …  
    287329      h2 = 1.25e-22 + 1.67e-19*exp(-2.62e-13*nu)
    288330
    289 !      DCO2 = h1*h2*p*(p*wratio)**2/(R*T)
    290 
    291       DCO2=0.0 ! to be implemented...
     331!      DCONT = h1*h2*p*(p*wratio)**2/(R*T)
     332!      DCONT=0.0 ! to be implemented...
    292333
    293334      return
    294335
    295336    end subroutine water_cont
     337

  • trunk/LMDZ.GENERIC/libf/phystd/orbite.F

    r135 r253  
    1       SUBROUTINE orbite(pls,pdist_sol,pdecli)
    2       IMPLICIT NONE
     1      subroutine orbite(pls,pdist_star,pdecli)
     2      implicit none
    33
    4 c=======================================================================
    5 c
    6 c   Objet:
    7 c   ------
    8 c
    9 c   Distance from sun and declimation as a function of the solar
    10 c   longitude Ls
    11 c
    12 c   Interface:
    13 c   ----------
    14 c
    15 c
    16 c
    17 c   Arguments:
    18 c   ----------
    19 c
    20 c   Input:
    21 c   ------
    22 c   pls          Ls
    23 c
    24 c   Output:
    25 c   -------
    26 c   pdist_sol     Distance Sun-Planet in UA
    27 c   pdecli        declinaison ( en radians )
    28 c
    29 c=======================================================================
    30 c-----------------------------------------------------------------------
     4!==================================================================
     5!     
     6!     Purpose
     7!     -------
     8!     Distance from star and declination as a function of the stellar
     9!     longitude Ls
     10!     
     11!     Inputs
     12!     ------
     13!     pls          Ls
     14!
     15!     Outputs
     16!     -------
     17!     pdist_star    Distance Star-Planet in UA
     18!     pdecli        declinaison ( in radians )
     19!
     20!=======================================================================
     21
    3122c   Declarations:
    3223c   -------------
    … …  
    3829c ----------
    3930
    40       REAL pday,pdist_sol,pdecli,pls,i
     31      REAL pday,pdist_star,pdecli,pls,i
    4132
    4233c-----------------------------------------------------------------------
    4334
    44 c Distance Sun-Planet
     35c Star-Planet Distance
    4536
    46       pdist_sol=p_elips/(1.+e_elips*cos(pls+timeperi))
     37      pdist_star = p_elips/(1.+e_elips*cos(pls+timeperi))
    4738
    48 c Solar declination
     39c Stellar declination
    4940
    5041c ********************* version before 01/01/2000 *******
    5142
    52       pdecli= asin (sin(pls)*sin(obliquit*pi/180.))
     43      pdecli = asin (sin(pls)*sin(obliquit*pi/180.))
    5344
    5445c ********************* version after 01/01/2000 *******
    … …  
    5849c ******************************************************
    5950
    60 
    61 
    6251      RETURN
    6352      END

  • trunk/LMDZ.GENERIC/libf/phystd/phyetat0.F

    r135 r253  
    11      SUBROUTINE phyetat0 (fichnom,tab0,Lmodif,nsoil,nq,
    22     .           day_ini,time,
    3      .           tsurf,tsoil,emis,q2,qsurf)
     3     .           tsurf,tsoil,emis,q2,qsurf,cloudfrac,totcloudfrac,hice)
    44      implicit none
    55c======================================================================
    … …  
    3939      real qsurf(ngridmx,nq) ! tracers on surface
    4040!      real co2ice(ngridmx) ! co2 ice cover
     41      real cloudfrac(ngridmx,nlayermx)
     42      real hice(ngridmx), totcloudfrac(ngridmx)
     43
     44
    4145
    4246!======================================================================
    … …  
    487491      xmax = MAXVAL(emis)
    488492      PRINT*,'Surface emissivity <emis>:', xmin, xmax
     493
     494c
     495c Cloud fraction (added by BC 2010)
     496c
     497      ierr = NF_INQ_VARID (nid, "cloudfrac", nvarid)
     498      IF (ierr.NE.NF_NOERR) THEN
     499         PRINT*, 'phyetat0: Le champ <cloudfrac> est absent'
     500      cloudfrac(:,:)=0.5
     501!         CALL abort
     502      ENDIF
     503#ifdef NC_DOUBLE
     504      ierr = NF_GET_VAR_DOUBLE(nid, nvarid, cloudfrac)
     505#else
     506      ierr = NF_GET_VAR_REAL(nid, nvarid, cloudfrac)
     507#endif
     508      IF (ierr.NE.NF_NOERR) THEN
     509         PRINT*, 'phyetat0: Lecture echouee pour <cloudfrac>'
     510         CALL abort
     511      ENDIF
     512      xmin = 1.0E+20
     513      xmax = -1.0E+20
     514      xmin = MINVAL(cloudfrac)
     515      xmax = MAXVAL(cloudfrac)
     516      PRINT*,'Cloud fraction <cloudfrac>:', xmin, xmax
     517
     518
     519c
     520c Total cloud fraction (added by BC 2010)
     521c
     522      ierr = NF_INQ_VARID (nid, "totcloudfrac", nvarid)
     523!      ierr = NF_INQ_VARID (nid, "totalfrac", nvarid)
     524      IF (ierr.NE.NF_NOERR) THEN
     525         PRINT*, 'phyetat0: Le champ <totcloudfrac> est absent'
     526      totcloudfrac(:)=0.5
     527!         CALL abort
     528      ENDIF
     529#ifdef NC_DOUBLE
     530      ierr = NF_GET_VAR_DOUBLE(nid, nvarid, totcloudfrac)
     531#else
     532      ierr = NF_GET_VAR_REAL(nid, nvarid, totcloudfrac)
     533#endif
     534      IF (ierr.NE.NF_NOERR) THEN
     535         PRINT*, 'phyetat0: Lecture echouee pour <totcloudfrac>'
     536         CALL abort
     537      ENDIF
     538      xmin = 1.0E+20
     539      xmax = -1.0E+20
     540      xmin = MINVAL(totcloudfrac)
     541      xmax = MAXVAL(totcloudfrac)
     542      PRINT*,'Cloud fraction <totcloudfrac>:', xmin, xmax
     543
     544
     545
     546
     547c
     548c Height of oceanic ice (added by BC 2010)
     549c
     550      ierr = NF_INQ_VARID (nid, "hice", nvarid)
     551      IF (ierr.NE.NF_NOERR) THEN
     552         PRINT*, 'phyetat0: Le champ <hice> est absent'
     553         CALL abort
     554      ENDIF
     555#ifdef NC_DOUBLE
     556      ierr = NF_GET_VAR_DOUBLE(nid, nvarid, hice)
     557#else
     558      ierr = NF_GET_VAR_REAL(nid, nvarid, hice)
     559#endif
     560      IF (ierr.NE.NF_NOERR) THEN
     561         PRINT*, 'phyetat0: Lecture echouee pour <hice>'
     562         CALL abort
     563      ENDIF
     564      xmin = 1.0E+20
     565      xmax = -1.0E+20
     566      xmin = MINVAL(hice)
     567      xmax = MAXVAL(hice)
     568      PRINT*,'Height of oceanic ice <hice>:', xmin, xmax
     569
     570
    489571c
    490572c pbl wind variance
    … …  
    524606           ELSE
    525607             txt=tnom(iq)
    526              if (txt.eq."h2o_vap") then
     608!             if (txt.eq."h2o_vap") then
    527609               ! There is no surface tracer for h2o_vap;
    528610               ! "h2o_ice" should be loaded instead
    529                txt="h2o_ice"
    530                write(*,*) 'phyetat0: loading surface tracer',
    531      &                     ' h2o_ice instead of h2o_vap'
    532              endif
     611!               txt="h2o_ice"
     612!               write(*,*) 'phyetat0: loading surface tracer',
     613!     &                     ' h2o_ice instead of h2o_vap'
     614!             endif
    533615           ENDIF ! of IF (oldtracernames) THEN
    534616           ierr=NF_INQ_VARID(nid,txt,nvarid)

  • trunk/LMDZ.GENERIC/libf/phystd/physdem1.F

    r135 r253  
    22     .                   phystep,day_ini,
    33     .                   time,tsurf,tsoil,emis,q2,qsurf,
    4      .                   airefi,alb,ith,pzmea,pzstd,pzsig,pzgam,pzthe)
    5 
    6 
     4     .                   airefi,alb,ith,pzmea,pzstd,pzsig,pzgam,pzthe,
     5     .                   cloudfrac,totcloudfrac,hice)
    76
    87      use radcommon_h, only: tauvis
    9 
     8 
    109      implicit none
    11 c-------------------------------------------------------------
    12 c
    13 c create physics (re-)start data file "restartfi.nc"
    14 c
    15 c
    16 c
     10
     11!==================================================================
     12!     
     13!     Purpose
     14!     -------
     15!     Create physics (re-)start data file "restartfi.nc"
     16!     
     17!     Called by
     18!     ---------
     19!     rcm1d.F90
     20!     physiq.F90
     21!     newstart.F
     22!     
     23!     Calls
     24!     -----
     25!     none
     26!
     27!==================================================================
     28
    1729#include "dimensions.h"
    1830#include "paramet.h"
    19 c-----------------------------------------------------------------------
    2031#include "comvert.h"
    2132#include "comgeom2.h"
    … …  
    3950      integer ierr,idim1,idim2,idim3,idim4,idim5,nvarid
    4051
    41 c
    4252      REAL phystep,time
    4353      REAL latfi(ngridmx), lonfi(ngridmx)
    … …  
    4858      REAL tab_cntrl(length)
    4959
    50 c
     60!     added by BC
     61      REAL hice(ngridmx),cloudfrac(ngridmx,nlayermx)
     62      REAL totcloudfrac(ngridmx)
     63
    5164
    5265!      EXTERNAL defrun_new,iniconst,geopot,inigeom,massdair,pression
    5366!      EXTERNAL exner_hyb , SSUM
    54 c
     67
    5568#include "serre.h"
    5669#include "clesph0.h"
    … …  
    178191c Informations about Mars, only for physics
    179192      tab_cntrl(14) = year_day  ! length of year (sols) ~668.6
    180       tab_cntrl(15) = periheli  ! min. Sun-Mars distance (Mkm) ~206.66
    181       tab_cntrl(16) = aphelie   ! max. SUn-Mars distance (Mkm) ~249.22
    182       tab_cntrl(17) = peri_day  ! date of perihelion (sols since N. spring)
     193      tab_cntrl(15) = periastr  ! min. star-planet distance (Mkm) ~206.66
     194      tab_cntrl(16) = apoastr   ! max. star-planet distance (Mkm) ~249.22
     195      tab_cntrl(17) = peri_day  ! date of periastron (sols since N. spring)
    183196      tab_cntrl(18) = obliquit  ! Obliquity of the planet (deg) ~23.98
    184197
    … …  
    452465!#endif
    453466
     467
     468
     469
     470
    454471! Soil Thermal inertia
    455472
    … …  
    471488#endif
    472489
     490
     491
     492
    473493!  Surface temperature
    474494
    … …  
    527547      ierr = NF_REDEF (nid)
    528548#ifdef NC_DOUBLE
    529       ierr = NF_DEF_VAR (nid, "q2", NF_DOUBLE, 2, (/idim2,idim4/),nvarid)
     549      ierr = NF_DEF_VAR (nid,"q2", NF_DOUBLE, 2, (/idim2,idim4/),nvarid)
    530550#else
    531551      ierr = NF_DEF_VAR (nid, "q2", NF_FLOAT, 2,(/idim2,idim4/),nvarid)
    … …  
    543563        CALL abort
    544564      ENDIF
     565
     566
     567
     568
     569
     570
     571
     572c cloud fraction (added by BC 2010)
     573
     574      ierr = NF_REDEF (nid)
     575#ifdef NC_DOUBLE
     576      ierr = NF_DEF_VAR (nid, "cloudfrac", NF_DOUBLE, 1, idim2,nvarid)
     577#else
     578      ierr = NF_DEF_VAR (nid, "cloudfrac", NF_FLOAT, 1, idim2,nvarid)
     579#endif
     580      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 14,
     581     .                        "Cloud fraction")
     582      ierr = NF_ENDDEF(nid)
     583#ifdef NC_DOUBLE
     584      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,cloudfrac)
     585#else
     586      ierr = NF_PUT_VAR_REAL (nid,nvarid,cloudfrac)
     587#endif
     588
     589c total cloud fraction (added by BC 2010)
     590
     591      ierr = NF_REDEF (nid)
     592#ifdef NC_DOUBLE
     593      ierr = NF_DEF_VAR (nid,"totcloudfrac", NF_DOUBLE, 1, idim2,nvarid)
     594#else
     595      ierr = NF_DEF_VAR (nid, "totcloudfrac", NF_FLOAT, 1, idim2,nvarid)
     596#endif
     597      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 14,
     598     .                        "Total fraction")
     599      ierr = NF_ENDDEF(nid)
     600#ifdef NC_DOUBLE
     601      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,totcloudfrac)
     602#else
     603      ierr = NF_PUT_VAR_REAL (nid,nvarid,totcloudfrac)
     604#endif
     605
     606c oceanic ice (added by BC 2010)
     607
     608      ierr = NF_REDEF (nid)
     609#ifdef NC_DOUBLE
     610      ierr = NF_DEF_VAR (nid, "hice", NF_DOUBLE, 1, idim2,nvarid)
     611#else
     612      ierr = NF_DEF_VAR (nid, "hice", NF_FLOAT, 1, idim2,nvarid)
     613#endif
     614      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 21,
     615     .                        "Height of oceanic ice")
     616      ierr = NF_ENDDEF(nid)
     617#ifdef NC_DOUBLE
     618      ierr = NF_PUT_VAR_DOUBLE (nid,nvarid,hice)
     619#else
     620      ierr = NF_PUT_VAR_REAL (nid,nvarid,hice)
     621#endif
     622
     623
     624
     625
     626
     627
     628
     629
     630
     631
    545632
    546633c tracers
    … …  
    591678         if ((i_h2o_vap.ne.0).and.(i_h2o_ice.eq.0)) then
    592679          ! then the index of (surface) ice is i_h2o_vap
    593           i_h2o_ice=i_h2o_vap
     680            print*,'water vapour but no water ice, WTF?'
     681            call abort
     682            i_h2o_ice=i_h2o_vap
    594683         endif
    595684        endif ! of if (.not.oldtracernames)
    … …  
    601690           ELSE
    602691             txt=tnom(iq)
    603              ! Exception: there is no water vapour surface tracer
    604              if (txt.eq."h2o_vap") then
    605                write(*,*)"physdem1: skipping water vapour tracer"
    606                if (i_h2o_ice.eq.i_h2o_vap) then
    607                ! then there is no "water ice" tracer; but still
    608                ! there is some water ice on the surface
    609                  write(*,*)"          writting water ice instead"
    610                  txt="h2o_ice"
    611                else
    612                ! there is a "water ice" tracer which has been / will be
    613                ! delt with in due time
    614                  cycle
    615                endif ! of if (igcm_h2o_ice.eq.igcm_h2o_vap)
    616              endif ! of if (txt.eq."h2o_vap")
     692
     693
     694!     in new version, h2o_vap acts as liquid surface tracer
     695!     so the section below is now redundant
     696!     ------------------------------------------------------------------
     697!             ! Exception: there is no water vapour surface tracer
     698!             if (txt.eq."h2o_vap") then
     699!               write(*,*)"physdem1: skipping water vapour tracer"
     700!               if (i_h2o_ice.eq.i_h2o_vap) then
     701!               ! then there is no "water ice" tracer; but still
     702!               ! there is some water ice on the surface
     703!                 write(*,*)"          writting water ice instead"
     704!                 txt="h2o_ice"
     705!               else
     706!               ! there is a "water ice" tracer which has been / will be
     707!               ! delt with in due time
     708!                 cycle
     709!               endif ! of if (igcm_h2o_ice.eq.igcm_h2o_vap)
     710!             endif ! of if (txt.eq."h2o_vap")
     711!     ------------------------------------------------------------------
     712
     713
     714
    617715           ENDIF ! of IF (oldtracernames)
    618716

  • trunk/LMDZ.GENERIC/libf/phystd/planete.h

    r135 r253  
    1 c-----------------------------------------------------------------------
    2 c INCLUDE planet.h
     1!-----------------------------------------------------------------------
     2! INCLUDE planet.h
    33
    4       COMMON/planet/aphelie,periheli,year_day,peri_day,
    5      $       obliquit,nres,
    6      $       z0,lmixmin,emin_turb,coefvis,coefir,
    7      $       timeperi,e_elips,p_elips,unitastr
     4      COMMON/planet/apoastr,periastr,year_day,peri_day,                 &
     5     &       obliquit,nres,                                             &
     6     &       z0,lmixmin,emin_turb,coefvis,coefir,                       &
     7     &       timeperi,e_elips,p_elips,unitastr           
    88
    9       REAL aphelie,periheli,year_day,peri_day,
    10      $     obliquit,nres,
    11      $     z0,lmixmin,emin_turb,coefvis,coefir,
    12      $       timeperi,e_elips,p_elips,unitastr
     9      real apoastr,periastr,year_day,peri_day,                          &
     10     &     obliquit,nres,                                               &
     11     &     z0,lmixmin,emin_turb,coefvis,coefir,                         &
     12     &       timeperi,e_elips,p_elips,unitastr     
    1313     
    1414
    15 c-----------------------------------------------------------------------
     15!-----------------------------------------------------------------------

  • trunk/LMDZ.GENERIC/libf/phystd/profile.F

    r135 r253  
    44      IMPLICIT NONE
    55c=======================================================================
    6 c     Subroutine utilisee dans le modele 1-D  "testphys1d"
     6c     Subroutine utilisee dans "rcm1d"
    77c     pour l'initialisation du profil atmospherique
    88c=======================================================================

  • trunk/LMDZ.GENERIC/libf/phystd/radinc_h.F90

    r135 r253  
    6464!     values manually before compiling, each time you want to change the
    6565!     dataset.
    66 
     66 
    6767      integer, parameter :: L_NGAUSS  = 17
    6868
    … …  
    7070      integer, parameter :: L_NTREF   = 7
    7171      integer, parameter :: L_REFVAR  = 7   ! earth / earlymars
     72      ! CO2_H2Ovar / N2OCO2rich_H2Ovar / N2OCO2poor_H2Ovar
     73!       integer, parameter :: L_REFVAR = 4    ! N2_CH4
     74
     75!      integer, parameter :: L_NPREF   = 8
     76!      integer, parameter :: L_NTREF   = 5
     77!      integer, parameter :: L_REFVAR  = 1   ! therm_test2
     78
     79!      integer, parameter :: L_NPREF   = 12
     80!      integer, parameter :: L_NTREF   = 20
     81!      integer, parameter :: L_REFVAR  = 1   ! null (for H2 etc.)
     82
     83!      integer, parameter :: L_NPREF   = 10
     84!      integer, parameter :: L_NTREF   = 5
     85!      integer, parameter :: L_REFVAR  = 7   ! N2_CO2var
    7286
    7387!      integer, parameter :: L_NPREF   = 8
    7488!      integer, parameter :: L_NTREF   = 6
    7589!      integer, parameter :: L_REFVAR  = 1   ! pureCO2
     90
     91!      integer, parameter :: L_NPREF   = 7
     92!      integer, parameter :: L_NTREF   = 5
     93!      integer, parameter :: L_REFVAR  = 1   ! degraded_pure
    7694
    7795!      integer, parameter :: L_NPREF   = 9
    … …  
    84102      integer, parameter :: L_PINT    = (L_NPREF-1)*5+1
    85103      integer, parameter :: NAERKIND  = 2
    86       integer, parameter :: L_TAUMAX  = 35
     104      real,    parameter :: L_TAUMAX  = 35
     105      !integer, parameter :: L_TAUMAX  = 35
     106      !integer, parameter :: L_TAUMAX  = 40
    87107
    88108      ! For Planck function integration:
    89109      ! equivalent temperatures are 1/10 of these values
    90110      integer, parameter :: NTstar = 500
    91       integer, parameter :: NTstop = 4000
     111!      integer, parameter :: NTstop = 9000 ! for hotstuff runs
     112      integer, parameter :: NTstop = 6000 ! for GJ581d / earlymars runs
     113!      integer, parameter :: NTstop = 10000 ! for H2 warming runs
    92114
    93115! Maximum number of grain size classes

  • trunk/LMDZ.GENERIC/libf/phystd/rain.F90

    r135 r253  
    1 
    21subroutine rain(ptimestep,pplev,pplay,t,pdt,pq,pdq,d_t,dqrain,dqsrain,dqssnow,rneb)
     2
    33
    44  use watercommon_h, only: To, RLVTT, RCPD, RCPV, RV, RVTMP2
    … …  
    3939      REAL pplev(ngridmx,nlayermx+1)    ! inter-layer pressure
    4040      REAL pplay(ngridmx,nlayermx)      ! mid-layer pressure
    41       REAL t(ngridmx,nlayermx)          ! temperature (K)
     41      REAL t(ngridmx,nlayermx)          ! input temperature (K)
     42      REAL zt(ngridmx,nlayermx)         ! working temperature (K)
    4243      REAL ql(ngridmx,nlayermx)         ! liquid water (Kg/Kg)
    4344      REAL q(ngridmx,nlayermx)          ! specific humidity (Kg/Kg)
    … …  
    5051      PARAMETER (seuil_neb=0.001)
    5152
    52       REAL ct                           ! Inverse of cloud precipitation time
     53!      REAL ct                           ! Inverse of cloud precipitation time
    5354!      PARAMETER (ct=1./1800.)
    54       PARAMETER (ct=1./1849.479)
     55!      PARAMETER (ct=1./1849.479)
    5556
    5657      REAL cl                           ! Precipitation threshold
    … …  
    9293      real tnext(ngridmx,nlayermx)
    9394
    94       REAL l2c(ngridmx,nlayermx)
     95      real l2c(ngridmx,nlayermx)
     96      real dWtot
     97
    9598
    9699!     Indices of water vapour and water ice tracers
    … …  
    118121         PRINT*, 'in rain.F, evap_prec=', evap_prec
    119122
    120          print*,ptimestep
    121          print*,1./ct
    122 
    123          if(.not.simple)then
    124             IF (ABS(ptimestep-1./ct).GT.0.001) THEN
    125                PRINT*, 'Must talk to Laurent Li!!!'
    126                call abort
    127             ENDIF
    128          endif
     123         !print*,ptimestep
     124         !print*,1./ct
     125         !if(.not.simple)then
     126         !   IF (ABS(ptimestep-1./ct).GT.0.001) THEN
     127         !      PRINT*, 'Must talk to Laurent Li!!!'
     128         !      call abort
     129         !   ENDIF
     130         !endif
    129131
    130132         firstcall = .false.
    … …  
    135137      DO i = 1, ngridmx
    136138
    137          q(i,k)    = pq(i,k,i_vap)!+pdq(i,k,i_vap)
    138          ql(i,k)   = pq(i,k,i_ice)!+pdq(i,k,i_ice)
     139         zt(i,k)   = t(i,k)+pdt(i,k)*ptimestep ! a big fat bug was here
     140         q(i,k)    = pq(i,k,i_vap)+pdq(i,k,i_vap)*ptimestep
     141         ql(i,k)   = pq(i,k,i_ice)+pdq(i,k,i_ice)*ptimestep
     142
     143         !q(i,k)    = pq(i,k,i_vap)!+pdq(i,k,i_vap)
     144         !ql(i,k)   = pq(i,k,i_ice)!+pdq(i,k,i_ice)
    139145
    140146         if(q(i,k).lt.0.)then ! if this is not done, we don't conserve water
    … …  
    167173      DO k = 1, nlayermx
    168174         DO i = 1, ngridmx
    169             ttemp = t(i,k)
     175            ttemp = zt(i,k)
    170176            ptemp = pplay(i,k)
    171             call watersat_2(ttemp,ptemp,zqs(i,k))
     177            call watersat(ttemp,ptemp,zqs(i,k))
    172178         ENDDO
    173179      ENDDO
    174180
    175       ! get column / layer conversion factor (+ptimstep)
     181      ! get column / layer conversion factor
    176182      DO k = 1, nlayermx
    177183         DO i = 1, ngridmx
    178             l2c(i,k)=(pplev(i,k)-pplev(i,k+1))/(g*ptimestep)
     184            !l2c(i,k)=(pplev(i,k)-pplev(i,k+1))/(g*ptimestep)
     185            l2c(i,k)=(pplev(i,k)-pplev(i,k+1))/g
    179186         ENDDO
    180187      ENDDO
    … …  
    189196            DO i = 1, ngridmx
    190197               IF (zrfl(i) .GT.0.) THEN
     198
     199                  zqev     = MAX (0.0, (zqs(i,k)-q(i,k)))/ptimestep! BC modif here
     200                  zqevt    = 2.0e-5*(1.0-q(i,k)/zqs(i,k))    &
     201                       *sqrt(zrfl(i))*l2c(i,k)/pplay(i,k)*zt(i,k)*R ! BC modif here
     202                  zqevt    = MAX (zqevt, 0.0)
     203                  zqev     = MIN (zqev, zqevt)
     204                  zqev     = MAX (zqev, 0.0)
     205                  zrfln(i) = zrfl(i) - zqev
     206                  zrfln(i) = max(zrfln(i),0.0)
     207
    191208                  !zqev     = MAX (0.0, (zqs(i,k)-q(i,k))*eeff1 )
    192209                  !zqevt    = (zrfl(i)/l2c(i,k))*eeff2
    193210                  !zqev     = MIN (zqev, zqevt)
    194211                  !zrfln(i) = zrfl(i) - zqev*l2c(i,k)
    195 
    196                   zrfln(i)  = zrfl(i) - 1.5e-5*(1.0-q(i,k)/zqs(i,k))*sqrt(zrfl(i))
    197                   zrfln(i)  = min(zrfln(i),zrfl(i))
     212                  !zrfln(i)  = zrfl(i) - 1.5e-5*(1.0-q(i,k)/zqs(i,k))*sqrt(zrfl(i))
     213                  !zrfln(i)  = min(zrfln(i),zrfl(i))
    198214                  ! this is what is actually written in the manual
    199215
    200                   d_q(i,k) = - (zrfln(i)-zrfl(i))/l2c(i,k)
    201                   d_t(i,k) = d_q(i,k) * RLVTT/RCPD/(1.0+RVTMP2*q(i,k))
    202                  
     216                  d_q(i,k) = - (zrfln(i)-zrfl(i))/l2c(i,k)*ptimestep
     217                  !d_t(i,k) = d_q(i,k) * RLVTT/RCPD!/(1.0+RVTMP2*q(i,k)) ! double BC modif here
     218                  d_t(i,k) = - d_q(i,k) * RLVTT/RCPD ! was bugged!
     219 
    203220                  zrfl(i)  = zrfln(i)
    204221               ENDIF
    … …  
    214231
    215232            DO i = 1, ngridmx
    216             ttemp = t(i,k)
    217             IF (ttemp .ge. To) THEN
    218                lconvert=rainthreshold
    219             ELSEIF (ttemp .gt. t_crit) THEN
    220                lconvert=rainthreshold*(1.- t_crit/ttemp)
    221             ELSE
    222                lconvert=0.
    223             ENDIF
    224 
    225             IF (ql(i,k).gt.lconvert)THEN ! precipitate!
    226                d_ql(i,k) = (lconvert-ql(i,k))/ptimestep             
    227                zrfl(i)   = zrfl(i) + max(ql(i,k) - lconvert,0.0)*l2c(i,k)
    228             ENDIF
     233               ttemp = zt(i,k)
     234               IF (ttemp .ge. To) THEN
     235                  lconvert=rainthreshold
     236               ELSEIF (ttemp .gt. t_crit) THEN
     237                  lconvert=rainthreshold*(1.- t_crit/ttemp)
     238                  lconvert=MAX(0.0,lconvert)             
     239               ELSE
     240                  lconvert=0.
     241               ENDIF
     242
     243
     244               IF (ql(i,k).gt.1.e-9) then
     245                  zneb(i)  = MAX(rneb(i,k), seuil_neb)
     246                  IF ((ql(i,k)/zneb(i)).gt.lconvert)THEN ! precipitate!
     247                     d_ql(i,k) = -MAX((ql(i,k)-lconvert),0.0)
     248                     zrfl(i)   = zrfl(i) - d_ql(i,k)*l2c(i,k)/ptimestep
     249                  ENDIF
     250               ENDIF
    229251            ENDDO
    230252
    … …  
    234256               IF (rneb(i,k).GT.0.0) THEN
    235257                  zoliq(i) = ql(i,k)
    236                   zrho(i)  = pplay(i,k) / ( t(i,k) * R )
     258                  zrho(i)  = pplay(i,k) / ( zt(i,k) * R )
    237259                  zdz(i)   = (pplev(i,k)-pplev(i,k+1)) / (zrho(i)*g)
    238                   zfrac(i) = (t(i,k)-ztglace) / (To-ztglace)
     260                  zfrac(i) = (zt(i,k)-ztglace) / (To-ztglace)
    239261                  zfrac(i) = MAX(zfrac(i), 0.0)
    240262                  zfrac(i) = MIN(zfrac(i), 1.0)
    … …  
    246268               DO i = 1, ngridmx
    247269                  IF (rneb(i,k).GT.0.0) THEN
    248                      zchau(i) = ct*ptimestep/FLOAT(ninter) * zoliq(i)      &
     270                     zchau(i) = (1./FLOAT(ninter)) * zoliq(i)      &
    249271                          * (1.0-EXP(-(zoliq(i)/zneb(i)/cl)**2)) * zfrac(i)
     272                     ! warning: this may give dodgy results for physics calls .ne. 48 per day...
     273
    250274                     ! this is the ONLY place where zneb, ct and cl are used
    251275                     zrhol(i) = zrho(i) * zoliq(i) / zneb(i)
    … …  
    258282                     ztot(i)  = MIN(MAX(ztot(i),0.0),zoliq(i))
    259283                     zoliq(i) = MAX(zoliq(i)-ztot(i), 0.0)
    260                      
     284
    261285                  ENDIF
    262286               ENDDO
    … …  
    266290            DO i = 1, ngridmx
    267291               IF (rneb(i,k).GT.0.0) THEN
    268                   d_ql(i,k) = (zoliq(i) - ql(i,k))/ptimestep
    269                   zrfl(i)   = zrfl(i)+ MAX(ql(i,k)-zoliq(i),0.0)*l2c(i,k)
     292                  d_ql(i,k) = (zoliq(i) - ql(i,k))!/ptimestep
     293                  zrfl(i)   = zrfl(i)+ MAX(ql(i,k)-zoliq(i),0.0)*l2c(i,k)/ptimestep
    270294               ENDIF
    271295            ENDDO
    … …  
    277301!     Rain or snow on the ground
    278302      DO i = 1, ngridmx
     303         if(zrfl(i).lt.0.0)then
     304            print*,'Droplets of negative rain are falling...'
     305            call abort
     306         endif
    279307         IF (t(i,1) .LT. To) THEN
    280308            dqssnow(i) = zrfl(i)
     309            dqsrain(i) = 0.0
    281310         ELSE
     311            dqssnow(i) = 0.0
    282312            dqsrain(i) = zrfl(i) ! liquid water = ice for now
    283313         ENDIF
    … …  
    295325               d_t(i,k)          = 0.0
    296326            endif
    297             dqrain(i,k,i_ice) = d_ql(i,k)
     327            dqrain(i,k,i_ice) = d_ql(i,k)/ptimestep
    298328         
    299329         ENDDO
    300330      ENDDO
    301331
    302 !     debugging
    303     !  print*,'zrfl=',zrfl
    304     !  print*,'dqrain=',dqrain
    305     !  print*,'q=',q
    306     !  print*,'ql=',ql
    307     !  print*,'dql=',d_ql
    308     !  DO k = 1, nlayermx
    309     !     DO i = 1, ngridmx
    310     !        if(ql(i,k).lt.0.0) then
    311     !           print*,'below zero!!!!'
    312     !           call abort
    313     !        endif
    314     !     ENDDO
    315     !  ENDDO
    316 
    317 
    318332      RETURN
    319333    end subroutine rain

  • trunk/LMDZ.GENERIC/libf/phystd/setspi.F90

    r135 r253  
    157157      ! force planck=sigma*eps*T^4 for each temperature in array
    158158      if(forceEC)then
     159         print*,'Force F=sigma*eps*T^4 for all values of T!'
    159160         do nt=NTstar,NTstop
    160161            plancksum=0.0

  • trunk/LMDZ.GENERIC/libf/phystd/setspv.F90

    r135 r253  
    110110
    111111      write(*,*)'Interpolating stellar spectrum from the hires data...'
    112       call ave_stelspec(startype,STELLAR)
     112      call ave_stelspec(STELLAR)
    113113
    114114!     Sum the stellar flux, and write out the result. 
    … …  
    120120      write(6,'(" Stellar flux at 1 AU = ",f7.2," W m-2")') sum
    121121      print*,' '
     122
    122123
    123124!=======================================================================

  • trunk/LMDZ.GENERIC/libf/phystd/sfluxi.F

    r135 r253  
    3232      real*8 taugsurf(L_NSPECTI,L_NGAUSS-1), fzero
    3333
    34       real*8 BSURFtest ! by RW for test
     34!      real*8 BSURFtest ! by RW for test
    3535
    3636      real*8 fup_tmp(L_NSPECTI),fdn_tmp(L_NSPECTI)
    … …  
    4545   
    4646      NFLUXTOPI = 0.0
     47
    4748      DO NW=1,L_NSPECTI
    4849        NFLUXTOPI_nu(NW) = 0.0
    … …  
    6869      TSURF = TLEV(L_LEVELS)
    6970
    70       NTS   = TSURF*10.0D0-499
    71       NTT   = TTOP *10.0D0-499
     71      NTS   = int(TSURF*10.0D0)-NTstar+1
     72      NTT   = int(TTOP *10.0D0)-NTstar+1
     73!      NTS   = TSURF*10.0D0-499
     74!      NTT   = TTOP *10.0D0-499
    7275
    73       BSURFtest=0.0
     76!      BSURFtest=0.0
    7477
    7578      DO 501 NW=1,L_NSPECTI
    … …  
    7881        BSURF = (1.-RSFI)*PLANCKIR(NW,NTS) ! interpolate for accuracy??
    7982        PLTOP = PLANCKIR(NW,NTT)
    80 
    81         !BSURFtest=BSURFtest+BSURF*DWNI(NW)
    82         !if(NW.eq.L_NSPECTI)then
    83         !     print*,'eps*sigma*T^4',5.67e-8*(1.-RSFI)*TSURF**4
    84         !     print*,'BSURF in sfluxi=',pi*BSURFtest
    85         !endif
    86 
    8783
    8884C  If FZEROI(NW) = 1, then the k-coefficients are zero - skip to the
    … …  
    116112
    117113
     114
    118115C         NOW CALCULATE THE CUMULATIVE IR NET FLUX
    119116
    … …  
    137134     *                                (1.0-FZEROI(NW))
    138135
    139 
    140136c         and same thing by spectral band... (RW)
    141137            FLUXUPI_nu(L,NW) = FLUXUPI_nu(L,NW) +
    142138     *                FMUPI(L)*DWNI(NW)*GWEIGHT(NG)*(1.0-FZEROI(NW))
    143139
    144 
    145140          END DO
    146 
    147          !fup_tmp(nw)=fup_tmp(nw)+FMUPI(L_NLEVRAD-1)*DWNI(NW)*GWEIGHT(NG)
    148          !fdn_tmp(nw)=fdn_tmp(nw)+FMDI(L_NLEVRAD-1)*DWNI(NW)*GWEIGHT(NG)
    149          !fup_tmp(nw)=fup_tmp(nw)+FMUPI(1)*DWNI(NW)*GWEIGHT(NG)
    150          !fdn_tmp(nw)=fdn_tmp(nw)+FMDI(1)*DWNI(NW)*GWEIGHT(NG)
    151141
    152142   30     CONTINUE
    … …  
    154144       END DO       !End NGAUSS LOOP
    155145
    156            ! print*,'-----------------------------------'
    157             !print*,'FMDI(',nw,')=',FMDI(L_NLEVRAD-1)
    158             !print*,'FMUPI(',nw,')=',FMUPI(L_NLEVRAD-1)
    159             !print*,'DWNI(',nw,')=',DWNI(nw)
    160            ! print*,'-----------------------------------'
    161 
    162146   40  CONTINUE
    163147
    164148C      SPECIAL 17th Gauss point
    165 
    166     !   print*,'fzero for ng=17',fzero
    167 
    168149
    169150       NG     = L_NGAUSS
    … …  
    203184       END DO
    204185
    205        !     print*,'-----------------------------------'
    206        !     print*,'nw=',nw
    207        !     print*,'ng=',ng
    208        !     print*,'FMDI=',FMDI(L_NLEVRAD-1)
    209        !     print*,'FMUPI=',FMUPI(L_NLEVRAD-1)
    210        !     print*,'-----------------------------------'
    211 
    212186  501 CONTINUE      !End Spectral Interval LOOP
    213187
    214188C *** END OF MAJOR SPECTRAL INTERVAL LOOP IN THE INFRARED****
    215189
    216             !print*,'-----------------------------------'
    217             !print*,'gweight=',gweight
    218             !print*,'FLUXDNI=',FLUXDNI(L_NLEVRAD-1)
    219             !print*,'FLUXUPI=',FLUXUPI(L_NLEVRAD-1)
    220             !print*,'-----------------------------------'
    221 
    222             !do nw=1,L_NSPECTI
    223             !   print*,'fup_tmp(',nw,')=',fup_tmp(nw)
    224             !   print*,'fdn_tmp(',nw,')=',fdn_tmp(nw)
    225             !enddo
    226 
    227 
    228190      RETURN
    229191      END

  • trunk/LMDZ.GENERIC/libf/phystd/sfluxv.F

    r135 r253  
    11      SUBROUTINE SFLUXV(DTAUV,TAUV,TAUCUMV,RSFV,DWNV,WBARV,COSBV,
    2      *                  UBAR0,STEL,GWEIGHT,NFLUXTOPV,NFLUXTOPV_nu,
     2     *                  UBAR0,STEL,GWEIGHT,NFLUXTOPV,NFLUXGNDV_nu,
    33     *                  FMNETV,FLUXUPV,FLUXDNV,FZEROV,taugsurf)
    44
    … …  
    1919      real*8 NFLUXTOPV, FLUXUP, FLUXDN
    2020      real*8 NFLUXTOPV_nu(L_NSPECTV)
     21      real*8 NFLUXGNDV_nu(L_NSPECTV)
    2122      real*8 GWEIGHT(L_NGAUSS)
    22 
    2323
    2424      integer L, NG, NW, NG1,k
    … …  
    2727
    2828      real*8 DIFFV, DIFFVT
    29 
    3029      real*8 taugsurf(L_NSPECTV,L_NGAUSS-1), fzero
    3130
    … …  
    3837      NFLUXTOPV = 0.0
    3938
     39      DO NW=1,L_NSPECTV
     40         NFLUXTOPV_nu(NW)=0.0
     41         NFLUXGNDV_nu(NW)=0.0
     42      END DO
    4043
    4144      DO L=1,L_NLAYRAD
    … …  
    5457        F0PI = STEL(NW)
    5558
    56 
    5759        FZERO = FZEROV(NW)
    5860        IF(FZERO.ge.0.99) goto 40
    … …  
    6870C         SET UP THE UPPER AND LOWER BOUNDARY CONDITIONS ON THE VISIBLE
    6971
    70           BTOP = 0.0
    71 
     72          BTOP  = 0.0
     73          !BSURF = 0./0. ! why was this here?
     74          BSURF = 0.
    7275C         LOOP OVER THE NTERMS BEGINNING HERE
    7376 
     77
     78!      FACTOR    = 1.0D0 - WDEL(1)*CDEL(1)**2
     79!      TAU(1)    = TDEL(1)*FACTOR
     80
     81
    7482          ETERM = MIN(TAUV(L_NLEVRAD,NW,NG),TAUMAX)
    7583          BSURF = RSFV*UBAR0*STEL(NW)*EXP(-ETERM/UBAR0)
    76 
    7784
    7885C         WE CAN NOW SOLVE FOR THE COEFFICIENTS OF THE TWO STREAM
    … …  
    8491
    8592
    86 
    8793          CALL GFLUXV(DTAUV(1,NW,NG),TAUV(1,NW,NG),TAUCUMV(1,NW,NG),
    8894     *                WBARV(1,NW,NG),COSBV(1,NW,NG),UBAR0,F0PI,RSFV,
    8995     *                BTOP,BSURF,FMUPV,FMDV,DIFFV,FLUXUP,FLUXDN)
    90 
    9196
    9297C         NOW CALCULATE THE CUMULATIVE VISIBLE NET FLUX
    … …  
    103108          END DO
    104109
    105 c         and same thing by spectral band... (RDW)
     110c     and same thing by spectral band... (RDW)
    106111          NFLUXTOPV_nu(NW) = NFLUXTOPV_nu(NW)
    107112     *      +(FLUXUP-FLUXDN)*GWEIGHT(NG)*
    108113     *                          (1.0-FZEROV(NW))
     114
     115
     116c     flux at gnd (RDW)
     117          NFLUXGNDV_nu(NW) = NFLUXGNDV_nu(NW)
     118     *      +FMDV(L_NLAYRAD)*GWEIGHT(NG)*(1.0-FZEROV(NW))
     119
    109120
    110121C         THE DIFFUSE COMPONENT OF THE DOWNWARD STELLAR FLUX
    … …  
    145156C       NOW CALCULATE THE CUMULATIVE VISIBLE NET FLUX
    146157
    147 
    148         !print*,'fmdv',fmdv
    149         !print*,'fzero',fzero
    150 
    151 
    152158        NFLUXTOPV = NFLUXTOPV+(FLUXUP-FLUXDN)*FZERO
    153159        DO L=1,L_NLAYRAD
    … …  
    161167     *      +(FLUXUP-FLUXDN)*FZERO
    162168
     169c     flux at gnd (RDW)
     170          NFLUXGNDV_nu(NW) = NFLUXGNDV_nu(NW)+FMDV(L_NLAYRAD)*FZERO
     171
    163172
    164173C       THE DIFFUSE COMPONENT OF THE DOWNWARD STELLAR FLUX
    … …  
    169178  500 CONTINUE
    170179
     180
    171181C     *** END OF MAJOR SPECTRAL INTERVAL LOOP IN THE VISIBLE*****
    172182

  • trunk/LMDZ.GENERIC/libf/phystd/soil.F

    r135 r253  
    3535
    3636! local saved variables:
    37 !      real,save :: layer(ngridmx,nsoilmx)      ! layer depth
    38       real,save :: mthermdiff(ngridmx,0:nsoilmx-1) ! mid-layer thermal diffusivity
    39       real,save :: thermdiff(ngridmx,nsoilmx-1) ! inter-layer thermal diffusivity
    40       real,save :: coefq(0:nsoilmx-1)           ! q_{k+1/2} coefficients
    41       real,save :: coefd(ngridmx,nsoilmx-1)     ! d_k coefficients
    42       real,save :: alph(ngridmx,nsoilmx-1)      ! alpha_k coefficients
    43       real,save :: beta(ngridmx,nsoilmx-1)      ! beta_k coefficients
    44       real,save :: mu
    45      
     37      !real,save :: mthermdiff(ngridmx,0:nsoilmx-1) ! mid-layer thermal diffusivity
     38      !real,save :: thermdiff(ngridmx,nsoilmx-1) ! inter-layer thermal diffusivity
     39      !real,save :: coefq(0:nsoilmx-1)          ! q_{k+1/2} coefficients
     40      !real,save :: coefd(ngridmx,nsoilmx-1)    ! d_k coefficients
     41      !real,save :: alph(ngridmx,nsoilmx-1)     ! alpha_k coefficients
     42      !real,save :: beta(ngridmx,nsoilmx-1)     ! beta_k coefficients
     43      !real,save :: mu
     44
     45      real mthermdiff(ngridmx,0:nsoilmx-1) ! mid-layer thermal diffusivity
     46      real thermdiff(ngridmx,nsoilmx-1)    ! inter-layer thermal diffusivity
     47      real coefq(0:nsoilmx-1)              ! q_{k+1/2} coefficients
     48      real coefd(ngridmx,nsoilmx-1)        ! d_k coefficients
     49      real alph(ngridmx,nsoilmx-1)         ! alpha_k coefficients
     50      real beta(ngridmx,nsoilmx-1)         ! beta_k coefficients
     51      real mu
     52           
     53      save mthermdiff,thermdiff,coefq,coefd,alph,beta,mu
     54
    4655! local variables:
    4756      integer ig,ik
     57
     58
     59!      print*,'tsoil=',tsoil
     60!      print*,'tsurf=',tsurf
    4861
    4962! 0. Initialisations and preprocessing step
    … …  
    104117        capcal(ig)=capcal(ig)/(1.+mu*(1.0-alph(ig,1))*
    105118     &                         thermdiff(ig,1)/mthermdiff(ig,0))
    106 !      write(*,*)'soil: ig=',ig,' capcal(ig)=',capcal(ig)
     119      !write(*,*)'soil: ig=',ig,' capcal(ig)=',capcal(ig)
    107120      enddo ! of do ig=1,ngrid
    108121           
    109122      else ! of if (firstcall)
     123
    110124
    111125!  1. Compute soil temperatures
    … …  
    142156      enddo
    143157
     158
    144159!  3. Compute surface diffusive flux & calorific capacity
    145160      do ig=1,ngrid
    … …  
    149164!     &              (timestep*(1.-alph(ig,1)))
    150165! Fstar
     166
     167!         print*,'this far in soil 1'
     168!         print*,'thermdiff=',thermdiff(ig,1)
     169!         print*,'mlayer=',mlayer
     170!         print*,'beta=',beta(ig,1)
     171!         print*,'alph=',alph(ig,1)
     172!         print*,'tsoil=',tsoil(ig,1)
     173
    151174        fluxgrd(ig)=(thermdiff(ig,1)/(mlayer(1)-mlayer(0)))*
    152175     &              (beta(ig,1)+(alph(ig,1)-1.0)*tsoil(ig,1))
    … …  
    163186      enddo
    164187
     188
    165189      end
    166190

  • trunk/LMDZ.GENERIC/libf/phystd/stokes.F90

    r135 r253  
    3030
    3131!     locally saved variables
    32 !     -----------------------
    33       real a,b
     32!     ---------------------
     33      real a,b,molrad,visc
    3434      save a,b
    3535 
    … …  
    4343         !stop
    4444         !a = 0.707*Rgas/(4*pi*molrad**2 * avocado)
     45
     46         molrad=2.2e-10   ! CO2 (only used in condense_co2cloud at the moment)
     47         visc=1.e-5       ! CO2
     48
     49
    4550         a = 0.707*R/(4*pi*molrad**2 * avocado)
    46          b = (2./9.) * rho_aer * g / visc 
     51         b = (2./9.) * rho_aer * g / visc
     52        !print*,'molrad=',molrad
     53        !print*,'visc=',visc
     54        !print*,'a=',a
     55        !print*,'b=',b
     56        !print*,'rho_aer=',rho_aer
     57        !stop
     58 
    4759         firstcall=.false.
    4860      end if
    … …  
    5264!     slip-flow correction according to Rossow (Icarus 36, 1-50, 1978)
    5365      w = b * rd*rd * (1 + 1.333* (a*T/P)/rd ) 
    54 
    5566      return
    5667    end subroutine stokes

  • trunk/LMDZ.GENERIC/libf/phystd/su_watercycle.F90

    r135 r253  
    2121      RCPD   = cpp
    2222
    23       RV     = 1000.*R/mH2O
    24       RCPV   = 4. *RV
    25       RVTMP2 = RCPV/RCPD-1.
     23      !RV = 1000.*R/mH2O
     24      RV = 1000.*8.314/mH2O ! caution! R is R/mugaz already!
    2625
     26      RCPV   = 4. *RV    ! could be more precise...
     27      !RCPV   = 5/2 *8.31*1000/mH2O ! BC modif here: doesn't appear to be correct
     28
     29      RVTMP2 = RCPV/RCPD-1. ! not currently used...
    2730
    2831      end subroutine su_watercycle

  • trunk/LMDZ.GENERIC/libf/phystd/suaer_corrk.F90

    r135 r253  
    7777!     the single scattering parameters)
    7878
    79       REAL lamref              ! reference wavelengths
    80       REAL epref                ! reference extinction ep
     79      REAL lamref                      ! reference wavelengths
     80      REAL epref                       ! reference extinction ep
    8181
    8282!      REAL epav(L_NSPECTI)            ! Average ep (= <Qext>/Qext(lamref) if epref=1)
    … …  
    103103      forgetit=.true.
    104104
    105 !     naerkind=1: overrides dust
     105!     naerkind=1
    106106!     visible
    107107      if(forgetit)then
    … …  
    121121         
    122122! NOTE: these lamref's are currently for dust, not CO2 ice.
    123 ! JB thinks this shouldn't matter too much, but it needs to be fixed for the
    124 ! final version.
     123! JB thinks this shouldn't matter too much, but it needs to be
     124! fixed / decided for the final version.
    125125
    126126      IF (naerkind .gt. 1) THEN
    … …  
    132132         file_id(2,2) = 'optprop_iceir_n50.dat'
    133133         lamrefir(2)=12.1E-6   ! 825cm-1 TES/MGS
    134 !         ENDIF
    135134      ENDIF
    136135
    137       IF (naerkind .gt. 2) THEN
     136      IF (naerkind .eq. 3) THEN
     137!     naerkind=3
     138!     visible
     139         file_id(naerkind,1) = 'optprop_dustvis_n50.dat'
     140         !lamrefvis(3)=1.5E-6   ! 1.5um OMEGA/MEx
     141         lamrefvis(naerkind)=0.67e-6
     142!     infrared
     143         file_id(naerkind,2) = 'optprop_dustir_n50.dat'
     144         !lamrefir(3)=12.1E-6   ! 825cm-1 TES/MGS
     145         lamrefir(naerkind)=9.3E-6
     146
     147      ENDIF
     148
     149      IF (naerkind .gt. 3) THEN
    138150         print*,'naerkind = ',naerkind
    139          print*,'but we only have data for 2 types, exiting.'
     151         print*,'but we only have data for 3 types, exiting.'
    140152         call abort
    141153      ENDIF
    … …  
    144156
    145157!     Initializations:
    146 
    147 !      call zerophys(nsizemax*2*naerkind,radiustab)
    148 !      call zerophys(nsizemax*naerkind*L_NSPECTV,gvis)
    149 !      call zerophys(nsizemax*naerkind*L_NSPECTV,omegavis)
    150 !      call zerophys(nsizemax*naerkind*L_NSPECTV,QVISsQREF)
    151 !      call zerophys(nsizemax*naerkind*L_NSPECTI,gIR)
    152 !      call zerophys(nsizemax*naerkind*L_NSPECTI,omegaIR)
    153 !      call zerophys(nsizemax*naerkind*L_NSPECTI,QIRsQREF)
    154158
    155159      radiustab(:,:,:) = 0.0
    … …  
    308312      endif
    309313
     314
     315
     316
     317
     318
    310319!==================================================================
    311320!     2. AVERAGED PROPERTIES AND VARIABLE ASSIGNMENTS
    … …  
    392401      END SELECT domain
    393402
    394 
    395403!========================================================================
    396404!     3. Deallocate temporary variables that were read in the ASCII files
    … …  
    406414      END DO                    ! Loop on idomain
    407415!========================================================================
     416
    408417      RETURN
     418
     419
     420
    409421    END subroutine suaer_corrk
    410422     

  • trunk/LMDZ.GENERIC/libf/phystd/sugas_corrk.F90

    r135 r253  
    22
    33!==================================================================
    4 !     
     4!
    55!     Purpose
    66!     -------
    … …  
    88!     This subroutine is a replacement for the old 'setrad', which contained
    99!     both absorption and scattering data.
    10 !     
     10!
    1111!     Authors
    1212!     -------
    1313!     Adapted and generalised from the NASA Ames code by Robin Wordsworth (2009)
    14 !     
     14!
    1515!     Summary
    1616!     -------
    17 !     
     17!
    1818!==================================================================
    1919
    … …  
    2828#include "datafile.h"
    2929#include "callkeys.h"
     30#include "gases.h"
    3031
    3132!==================================================================
    … …  
    4445      real*8 x, xi(4), yi(4), ans, p
    4546
    46       integer Nspecies
    47 
     47      integer ngas, igas
     48
     49      ! temporary special for addh2
     50      double precision testH2
    4851
    4952!=======================================================================
    … …  
    5154      file_id='/corrk_data/' // corrkdir(1:LEN_TRIM(corrkdir)) // '/Q.dat'
    5255      file_path=datafile(1:LEN_TRIM(datafile))//file_id(1:LEN_TRIM(file_id))
     56
    5357
    5458      ! check that the file exists
    … …  
    6266      ! check that database matches varactive toggle
    6367      open(111,file=file_path(1:LEN_TRIM(file_path)),form='formatted')
    64       read(111,*) Nspecies
    65 
    66       if(Nspecies.eq.1 .and. (varactive.or.varfixed))then
     68      read(111,*) ngas
     69
     70      if(ngas.ne.ngasmx)then
     71         print*,'Number of gases in radiative transfer data (',ngas,') does not', &
     72                'match that in gases.def (',ngasmx,'), exiting.'
     73         call abort
     74      endif
     75
     76      if(ngas.eq.1 .and. (varactive.or.varfixed))then
    6777         print*,'You have varactive/fixed=.true. but the database [',  &
    6878                     corrkdir(1:LEN_TRIM(corrkdir)),           &
    6979                '] has no variable species, exiting.'
    7080         call abort
    71       elseif(Nspecies.eq.2 .and. (.not.varactive) .and. (.not.varfixed))then
     81      elseif(ngas.eq.2 .and. (.not.varactive) .and. (.not.varfixed))then
    7282         print*,'You have varactive and varfixed=.false. and the database [', &
    7383                     corrkdir(1:LEN_TRIM(corrkdir)),           &
    7484                '] has a variable species.'
    7585         call abort
    76       elseif(Nspecies.gt.3 .or. Nspecies.lt.1)then
    77          print*,Nspecies,' species in database [',               &
     86      elseif(ngas.gt.4 .or. ngas.lt.1)then
     87         print*,ngas,' species in database [',               &
    7888                     corrkdir(1:LEN_TRIM(corrkdir)),           &
    7989                '], radiative code cannot handle this.'
    8090         call abort
    81       endif
    82 
    83       do n=1,Nspecies
     91      endif
     92
     93      if(ngas.gt.3)then
     94         print*,'ngas>3, EXPERIMENTAL!'
     95      endif
     96
     97
     98      do n=1,ngas
    8499         read(111,*) gastype(n)
    85100         print*,'Gas ',n,' is ',gastype(n)
    … …  
    89104      open(111,file=file_path(1:LEN_TRIM(file_path)),form='formatted')
    90105      read(111,*) L_REFVARcheck
    91       if(.not.(L_REFVARcheck.eq.L_REFVAR)) then     
     106      if(.not.(L_REFVARcheck.eq.L_REFVAR)) then   
     107         print*,   L_REFVARcheck
     108         print*,   L_REFVAR
    92109         print*,'The size of your radiative transfer mixing ratio array does '
    93110         print*,'not match the value given in Q.dat, exiting.'
    … …  
    96113      read(111,*) wrefvar
    97114      close(111)
     115
     116      ! Check that gastype and gnom match
     117      do n=1,ngas
     118         print*,'Gas ',n,' is ',gnom(n)
     119         if(gnom(n).ne.gastype(n))then
     120            print*,'Name of a gas in radiative transfer data (',gastype(n),') does not', &
     121                 'match that in gases.def (',gnom(n),'), exiting.'
     122         endif
     123      enddo
     124      print*,'Confirmed gas match in radiative transfer and gases.def!'
    98125
    99126      ! display the values
    100127      print*,'Variable gas mixing ratios:'
    101128      do n=1,L_REFVAR
    102          print*,n,'.',wrefvar(n),' kg/kg'
     129         !print*,n,'.',wrefvar(n),' kg/kg' ! pay attention!
     130         print*,n,'.',wrefvar(n),' mol/mol'
    103131      end do
    104132      print*,''
    105 
    106133
    107134!=======================================================================
    … …  
    184211      end do
    185212      pfgasref(L_PINT) = pgasref(L_NPREF)
    186       ! Warning! this may need to be generalised if we want to use uneven grids!
    187 
     213      print*,'Warning, pfgasref needs generalisation to uneven grids!!'
    188214
    189215!-----------------------------------------------------------------------
    … …  
    225251!     Get gaseous k-coefficients and interpolate onto finer pressure grid
    226252
    227          ! VISIBLE
    228       if (callgasvis) then
     253      ! VISIBLE
     254      if (callgasvis.and..not.corrkdir(1:LEN_TRIM(corrkdir)).eq.'null') then
    229255         file_id='/corrk_data/'//trim(adjustl(banddir))//'/corrk_gcm_VI.dat'
    230256         file_path=datafile(1:LEN_TRIM(datafile))//file_id(1:LEN_TRIM(file_id))
    … …  
    244270         
    245271      else
    246          print*,'Visible gaseous absorption is set to zero.'
     272         print*,'Visible corrk gaseous absorption is set to zero.'
     273         gasv8(:,:,:,:,:)=0.0
    247274      endif
    248275
    249276      ! INFRA-RED
    250       file_id='/corrk_data/'//trim(adjustl(banddir))//'/corrk_gcm_IR.dat'
    251       file_path=datafile(1:LEN_TRIM(datafile))//file_id(1:LEN_TRIM(file_id))
     277      if (.not.corrkdir(1:LEN_TRIM(corrkdir)).eq.'null') then
     278         file_id='/corrk_data/'//trim(adjustl(banddir))//'/corrk_gcm_IR.dat'
     279         file_path=datafile(1:LEN_TRIM(datafile))//file_id(1:LEN_TRIM(file_id))
    252280     
    253       ! check that the file exists
    254       inquire(FILE=file_path,EXIST=file_ok)
    255       if(.not.file_ok) then
    256          write(*,*)'The file ',file_path(1:LEN_TRIM(file_path))
    257          write(*,*)'was not found by sugas_corrk.F90.'
    258          write(*,*)'Are you sure you have absorption data for these bands?'
    259          call abort
    260       endif
     281         ! check that the file exists
     282         inquire(FILE=file_path,EXIST=file_ok)
     283         if(.not.file_ok) then
     284            write(*,*)'The file ',file_path(1:LEN_TRIM(file_path))
     285            write(*,*)'was not found by sugas_corrk.F90.'
     286            write(*,*)'Are you sure you have absorption data for these bands?'
     287            call abort
     288         endif
     289         
     290         open(111,file=file_path(1:LEN_TRIM(file_path)),form='formatted')
     291         read(111,*) gasi8
     292         close(111)
    261293     
    262       open(111,file=file_path(1:LEN_TRIM(file_path)),form='formatted')
    263       read(111,*) gasi8
    264       close(111)
    265      
    266       do nw=1,L_NSPECTI
    267          fzeroi(nw) = 0.
    268       end do
    269       do nw=1,L_NSPECTV
    270          fzerov(nw) = 0.
    271       end do
     294         do nw=1,L_NSPECTI
     295            fzeroi(nw) = 0.
     296         end do
     297         do nw=1,L_NSPECTV
     298            fzerov(nw) = 0.
     299         end do
     300
     301      else
     302         print*,'Infrared corrk gaseous absorption is set to zero.'
     303         gasi8(:,:,:,:,:)=0.0
     304      endif
    272305
    273306!     Take log10 of the values - this is what we will interpolate.
    … …  
    440473      end do
    441474
     475      do igas=1,ngasmx
     476         if(gnom(igas).eq.'H2_')then
     477            call interpolateH2H2(500.D+0,250.D+0,17500.D+0,testH2,.true.)
     478         endif
     479      enddo
     480
     481
    442482      return
    443483    end subroutine sugas_corrk

  • trunk/LMDZ.GENERIC/libf/phystd/tabfi.F

    r135 r253  
    102102c----------------------------------------------
    103103      year_day = 669.           ! length of year (sols) ~668.6
    104       periheli = 206.66         ! min. Star-Planet distance (Mkm) ~206.66
    105       aphelie = 249.22          ! max. Star-Planet distance (Mkm) ~249.22
    106       peri_day =  485.          ! date of perihelion (sols since N. spring)
     104      periastr = 206.66         ! min. Star-Planet distance (Mkm) ~206.66
     105      apoastr = 249.22          ! max. Star-Planet distance (Mkm) ~249.22
     106      peri_day =  485.          ! date of periastron (sols since N. spring)
    107107      obliquit = 25.19          ! Obliquity of the planet (deg) ~25.19
    108108
    109109c additional for stokes.F added by RDW
    110110c-------------------------------------
    111       molrad=2.2e-10   ! CO2
    112       visc=1.e-5       ! CO2
     111!      molrad=2.2e-10   ! CO2
     112!      visc=1.e-5       ! CO2
    113113
    114114c Boundary layer and turbulence
    … …  
    180180c Informations about planet for the physics only
    181181      year_day = tab_cntrl(tab0+14)
    182       periheli = tab_cntrl(tab0+15)
    183       aphelie = tab_cntrl(tab0+16)
     182      periastr = tab_cntrl(tab0+15)
     183      apoastr = tab_cntrl(tab0+16)
    184184      peri_day = tab_cntrl(tab0+17)
    185185      obliquit = tab_cntrl(tab0+18)
    … …  
    239239
    240240      write(*,5) '(14)       year_day',tab_cntrl(tab0+14),year_day
    241       write(*,5) '(15)       periheli',tab_cntrl(tab0+15),periheli
    242       write(*,5) '(16)        aphelie',tab_cntrl(tab0+16),aphelie
     241      write(*,5) '(15)       periastr',tab_cntrl(tab0+15),periastr
     242      write(*,5) '(16)        apoastr',tab_cntrl(tab0+16),apoastr
    243243      write(*,5) '(17)       peri_day',tab_cntrl(tab0+17),peri_day
    244244      write(*,5) '(18)       obliquit',tab_cntrl(tab0+18),obliquit
    … …  
    288288      write(*,*) '(27)        tauvis : mean dust vis. reference ',
    289289     &           'opacity'
    290       write(*,*) '(35)         volcapa : soil volumetric heat capacity'
    291       write(*,*) '(18)        obliquit : planet obliquity (deg)'
    292       write(*,*) '(17)      peri_day : perihelion date (sol since Ls=0)'
    293       write(*,*) '(15)      periheli : min. sun-mars dist (Mkm)'
    294       write(*,*) '(16)      aphelie  : max. sun-mars dist (Mkm)'
    295       write(*,*) '(14)      year_day : length of year (in sols)'
     290      write(*,*) '(35)      volcapa : soil volumetric heat capacity'
     291      write(*,*) '(18)     obliquit : planet obliquity (deg)'
     292      write(*,*) '(17)     peri_day : periastron date (sols since Ls=0)'
     293      write(*,*) '(15)     periastr : min. star-planet dist (Mkm)'
     294      write(*,*) '(16)     apoastr  : max. star-planet (Mkm)'
     295      write(*,*) '(14)     year_day : length of year (in sols)'
    296296      write(*,*) '(5) rad : radius of the planet (m)'
    297297      write(*,*) '(6) omeg : planet rotation rate (rad/s)'
    … …  
    445445          write(*,*) ' peri_day (new value):',peri_day
    446446
    447         else if (modif(1:len_trim(modif)) .eq. 'periheli') then
    448           write(*,*) 'current value:',periheli
    449           write(*,*) 'perihelion should be 206.66 on current Mars'
    450           write(*,*) 'enter new value:'
    451  117      read(*,*,iostat=ierr) periheli
     447        else if (modif(1:len_trim(modif)) .eq. 'periastr') then
     448          write(*,*) 'current value:',periastr
     449          write(*,*) 'periastr should be 206.66 on present-day Mars'
     450          write(*,*) 'enter new value:'
     451 117      read(*,*,iostat=ierr) periastr
    452452          if(ierr.ne.0) goto 117
    453453          write(*,*)
    454           write(*,*) ' periheli (new value):',periheli
    455  
    456         else if (modif(1:len_trim(modif)) .eq. 'aphelie') then
    457           write(*,*) 'current value:',aphelie
    458           write(*,*) 'aphelion should be 249.22 on current Mars'
    459           write(*,*) 'enter new value:'
    460  118      read(*,*,iostat=ierr) aphelie
     454          write(*,*) ' periastr (new value):',periastr
     455 
     456        else if (modif(1:len_trim(modif)) .eq. 'apoastr') then
     457          write(*,*) 'current value:',apoastr
     458          write(*,*) 'apoastr should be 249.22 on present-day Mars'
     459          write(*,*) 'enter new value:'
     460 118      read(*,*,iostat=ierr) apoastr
    461461          if(ierr.ne.0) goto 118
    462462          write(*,*)
    463           write(*,*) ' aphelie (new value):',aphelie
     463          write(*,*) ' apoastr (new value):',apoastr
    464464 
    465465        else if (modif(1:len_trim(modif)) .eq. 'volcapa') then
    … …  
    556556 
    557557      write(*,5) '(14)       year_day',tab_cntrl(tab0+14),year_day
    558       write(*,5) '(15)       periheli',tab_cntrl(tab0+15),periheli
    559       write(*,5) '(16)        aphelie',tab_cntrl(tab0+16),aphelie
     558      write(*,5) '(15)       periastr',tab_cntrl(tab0+15),periastr
     559      write(*,5) '(16)        apoastr',tab_cntrl(tab0+16),apoastr
    560560      write(*,5) '(17)       peri_day',tab_cntrl(tab0+17),peri_day
    561561      write(*,5) '(18)       obliquit',tab_cntrl(tab0+18),obliquit

  • trunk/LMDZ.GENERIC/libf/phystd/vdifc.F

    r135 r253  
    1       SUBROUTINE vdifc(ngrid,nlay,nq,ppopsk,
    2      $                ptimestep,pcapcal,lecrit,
    3      $                pplay,pplev,pzlay,pzlev,pz0,
    4      $                pu,pv,ph,pq,ptsrf,pemis,pqsurf,
    5      $                pdufi,pdvfi,pdhfi,pdqfi,pfluxsrf,
    6      $                pdudif,pdvdif,pdhdif,pdtsrf,pq2,
    7      $                pdqdif,pdqsdif)
    8 
    9       use watercommon_h, only : RLVTT
     1      subroutine vdifc(ngrid,nlay,nq,rnat,ppopsk,         
     2     &     ptimestep,pcapcal,lecrit,                       
     3     &     pplay,pplev,pzlay,pzlev,pz0,
     4     &     pu,pv,ph,pq,ptsrf,pemis,pqsurf,
     5     &     pdufi,pdvfi,pdhfi,pdqfi,pfluxsrf,
     6     &     pdudif,pdvdif,pdhdif,pdtsrf,pq2,
     7     &     pdqdif,pdqsdif)
     8
     9      use watercommon_h, only : RLVTT, To, RCPD, mx_eau_sol
    1010
    1111      implicit none
    1212
    13 c=======================================================================
    14 c
    15 c   subject:
    16 c   --------
    17 c   Turbulent diffusion (mixing) for potential T, U, V and tracer
    18 c
    19 c   Shema implicite
    20 c   On commence par rajouter au variables x la tendance physique
    21 c   et on resoult en fait:
    22 c      x(t+1) =  x(t) + dt * (dx/dt)phys(t)  +  dt * (dx/dt)difv(t+1)
    23 c
    24 c   author:
    25 c   ------
    26 c      Hourdin/Forget/Fournier
    27 c=======================================================================
    28 
    29 c-----------------------------------------------------------------------
    30 c   declarations:
    31 c   -------------
     13!==================================================================
     14!     
     15!     Purpose
     16!     -------
     17!     Turbulent diffusion (mixing) for pot. T, U, V and tracers
     18!     
     19!     Implicit scheme
     20!     We start by adding to variables x the physical tendencies
     21!     already computed. We resolve the equation:
     22!
     23!     x(t+1) =  x(t) + dt * (dx/dt)phys(t)  +  dt * (dx/dt)difv(t+1)
     24!     
     25!     Authors
     26!     -------
     27!     F. Hourdin, F. Forget, R. Fournier (199X)
     28!     R. Wordsworth, B. Charnay (2010)
     29!     
     30!==================================================================
     31
     32!-----------------------------------------------------------------------
     33!     declarations
     34!     ------------
    3235
    3336#include "dimensions.h"
    … …  
    4043
    4144#include "watercap.h"
    42 c
    43 c   arguments:
    44 c   ----------
    45 
     45
     46!     arguments
     47!     ---------
    4648      INTEGER ngrid,nlay
    4749      REAL ptimestep
    … …  
    5557      REAL pdtsrf(ngrid),pcapcal(ngrid)
    5658      REAL pq2(ngrid,nlay+1)
    57 
    58 c    Argument added for condensation:
    59 !      REAL co2ice (ngrid)
     59     
     60      integer rnat(ngrid)     
     61
     62!     Arguments added for condensation
    6063      REAL ppopsk(ngrid,nlay)
    6164      logical lecrit
    6265      REAL pz0
    6366
    64 c    Traceurs :
     67!     Tracers
     68!     --------
    6569      integer nq
    66       REAL pqsurf(ngrid,nq)
     70      real pqsurf(ngrid,nq)
    6771      real pq(ngrid,nlay,nq), pdqfi(ngrid,nlay,nq)
    6872      real pdqdif(ngrid,nlay,nq)
    6973      real pdqsdif(ngrid,nq)
    7074     
    71 c   local:
    72 c   ------
    73 
    74       INTEGER ilev,ig,ilay,nlev
     75!     local
     76!     -----
     77      integer ilev,ig,ilay,nlev
    7578
    7679      REAL z4st,zdplanck(ngridmx)
    … …  
    8689      REAL zc(ngridmx,nlayermx),zd(ngridmx,nlayermx)
    8790      REAL zcst1
    88       REAL zu2
    89 
    90       EXTERNAL SSUM,SCOPY
    91       REAL SSUM
     91      REAL zu2!, a
     92      REAL zcq(ngridmx,nlayermx),zdq(ngridmx,nlayermx)
     93      REAL evap(ngridmx)
     94      REAL zcq0(ngridmx),zdq0(ngridmx)
     95      REAL zx_alf1(ngridmx),zx_alf2(ngridmx)
     96
    9297      LOGICAL firstcall
    9398      SAVE firstcall
    9499
    95 c     variable added for CO2 condensation:
    96 c     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    97       REAL hh , zhcond(ngridmx,nlayermx)
    98       REAL latcond,tcond1mb
    99       REAL acond,bcond
    100       SAVE acond,bcond
    101       DATA latcond,tcond1mb/5.9e5,136.27/
    102 
    103 c    Tracers :
    104 c    ~~~~~~~
     100!     variables added for CO2 condensation
     101!     ------------------------------------
     102      REAL hh                   !, zhcond(ngridmx,nlayermx)
     103!     REAL latcond,tcond1mb
     104!     REAL acond,bcond
     105!     SAVE acond,bcond
     106!     DATA latcond,tcond1mb/5.9e5,136.27/
     107
     108!     Tracers
     109!     -------
    105110      INTEGER iq
    106111      REAL zq(ngridmx,nlayermx,nqmx)
    107112      REAL zq1temp(ngridmx)
    108       REAL rho(ngridmx) ! near surface air density
     113      REAL rho(ngridmx)         ! near-surface air density
    109114      REAL qsat(ngridmx)
    110115      DATA firstcall/.true./
    111116      REAL kmixmin
    112117
    113 c    ** un petit test de coherence
    114 c       --------------------------
     118!     Variables added for implicit latent heat inclusion
     119!     --------------------------------------------------
     120      real latconst, dqsat(ngridmx), qsat_temp1, qsat_temp2
     121      real z1_Tdry(ngridmx), z2_Tdry(ngridmx)
     122      real z1_T(ngridmx), z2_T(ngridmx)
     123      real zb_T(ngridmx)
     124      real zc_T(ngridmx,nlayermx)
     125      real zd_T(ngridmx,nlayermx)
     126      real lat1(ngridmx), lat2(ngridmx)
     127      real surfh2otot
     128      logical surffluxdiag
     129      integer isub ! sub-loop for precision
     130
     131      integer ivap, iice ! also make liq for clarity on surface...
     132      save ivap, iice
     133
     134      real, parameter :: sigma=5.67e-8
     135      real, parameter :: karman=0.4
     136      real cd0, roughratio
     137
     138      logical forceWC
     139      real masse, Wtot, Wdiff
     140
     141      real dqsdif_total(ngrid)
     142      real zq0(ngrid)
     143
     144      forceWC=.true.
     145!      forceWC=.false.
     146
     147
     148!     Coherence test
     149!     --------------
    115150
    116151      IF (firstcall) THEN
    117          IF(ngrid.NE.ngridmx) THEN
    118             PRINT*,'STOP dans vdifc'
    119             PRINT*,'probleme de dimensions :'
    120             PRINT*,'ngrid  =',ngrid
    121             PRINT*,'ngridmx  =',ngridmx
    122             STOP
    123          ENDIF
    124 c        To compute: Tcond= 1./(bcond-acond*log(.0095*p)) (p in pascal)
    125          bcond=1./tcond1mb
    126          acond=r/latcond
    127          PRINT*,'In vdifc: Tcond(P=1mb)=',tcond1mb,' Lcond=',latcond
    128          PRINT*,'          acond,bcond',acond,bcond
    129 
    130         firstcall=.false.
     152!         IF(ngrid.NE.ngridmx) THEN
     153!            PRINT*,'STOP dans vdifc'
     154!            PRINT*,'probleme de dimensions :'
     155!            PRINT*,'ngrid  =',ngrid
     156!            PRINT*,'ngridmx  =',ngridmx
     157!            STOP
     158!         ENDIF
     159!     To compute: Tcond= 1./(bcond-acond*log(.0095*p)) (p in pascal)
     160!     bcond=1./tcond1mb
     161!     acond=r/latcond
     162!     PRINT*,'In vdifc: Tcond(P=1mb)=',tcond1mb,' Lcond=',latcond
     163!     PRINT*,'          acond,bcond',acond,bcond
     164
     165         if(water)then
     166!                iliq=igcm_h2o_vap
     167                ivap=igcm_h2o_vap
     168                iice=igcm_h2o_ice ! simply to make the code legible               
     169                                  ! to be generalised later
     170         endif
     171
     172         if(ngridmx.ne.1)then
     173            if(nonideal)then
     174               print*,'Nonideal doesnt work yet in 3D!!!'
     175               call abort
     176            endif
     177         endif
     178
     179         firstcall=.false.
    131180      ENDIF
    132181
    133 
    134 
    135 
    136 
    137 c-----------------------------------------------------------------------
    138 c    1. initialisation
    139 c    -----------------
     182!-----------------------------------------------------------------------
     183!     1. Initialisation
     184!     -----------------
    140185
    141186      nlev=nlay+1
    142187
    143 c    ** calcul de rho*dz et dt*rho/dz=dt*rho**2 g/dp
    144 c       avec rho=p/RT=p/ (R Theta) (p/ps)**kappa
    145 c       ----------------------------------------
     188!     Calculate rho*dz and dt*rho/dz=dt*rho**2 g/dp
     189!     with rho=p/RT=p/ (R Theta) (p/ps)**kappa
     190!     ---------------------------------------------
    146191
    147192      DO ilay=1,nlay
    … …  
    151196      ENDDO
    152197
    153       zcst1=4.*g*ptimestep/(r*r)
     198      zcst1=4.*g*ptimestep/(R*R)
    154199      DO ilev=2,nlev-1
    155200         DO ig=1,ngrid
    156201            zb0(ig,ilev)=pplev(ig,ilev)*
    157      s      (pplev(ig,1)/pplev(ig,ilev))**rcp /
    158      s      (ph(ig,ilev-1)+ph(ig,ilev))
     202     s           (pplev(ig,1)/pplev(ig,ilev))**rcp /
     203     s           (ph(ig,ilev-1)+ph(ig,ilev))
    159204            zb0(ig,ilev)=zcst1*zb0(ig,ilev)*zb0(ig,ilev)/
    160      s      (pplay(ig,ilev-1)-pplay(ig,ilev))
    161          ENDDO
    162       ENDDO
    163       DO ig=1,ngrid
    164                  zb0(ig,1)=ptimestep*pplev(ig,1)/(r*ptsrf(ig))
    165       ENDDO
    166 
    167 c    ** diagnostique pour l'initialisation
    168 c       ----------------------------------
    169 
    170       IF(lecrit) THEN
    171          ig=ngrid/2+1
    172          PRINT*,'Pression (mbar) ,altitude (km),u,v,theta, rho dz'
    173          DO ilay=1,nlay
    174             WRITE(*,'(6f11.5)')
    175      s      .01*pplay(ig,ilay),.001*pzlay(ig,ilay),
    176      s      pu(ig,ilay),pv(ig,ilay),ph(ig,ilay),za(ig,ilay)
    177          ENDDO
    178          PRINT*,'Pression (mbar) ,altitude (km),zb'
    179          DO ilev=1,nlay
    180             WRITE(*,'(3f15.7)')
    181      s      .01*pplev(ig,ilev),.001*pzlev(ig,ilev),
    182      s      zb0(ig,ilev)
    183          ENDDO
    184       ENDIF
    185 
    186 c     Potential Condensation temperature:
    187 c     -----------------------------------
    188 
    189 c     if (callcond) then
    190 c       DO ilev=1,nlay
    191 c         DO ig=1,ngrid
    192 c           zhcond(ig,ilev) =
    193 c    &  (1./(bcond-acond*log(.0095*pplay(ig,ilev))))/ppopsk(ig,ilev)
    194 c         END DO
    195 c       END DO
    196 c     else
    197         call zerophys(ngrid*nlay,zhcond)
    198 c     end if
    199 
    200 
    201 c-----------------------------------------------------------------------
    202 c   2. ajout des tendances physiques
    203 c      -----------------------------
     205     s           (pplay(ig,ilev-1)-pplay(ig,ilev))
     206         ENDDO
     207      ENDDO
     208      DO ig=1,ngrid
     209         zb0(ig,1)=ptimestep*pplev(ig,1)/(R*ptsrf(ig))
     210      ENDDO
     211
     212      dqsdif_total(:)=0.0
     213
     214!-----------------------------------------------------------------------
     215!     2. Add the physical tendencies computed so far
     216!     ----------------------------------------------
    204217
    205218      DO ilev=1,nlay
    … …  
    208221            zv(ig,ilev)=pv(ig,ilev)+pdvfi(ig,ilev)*ptimestep
    209222            zh(ig,ilev)=ph(ig,ilev)+pdhfi(ig,ilev)*ptimestep
    210             zh(ig,ilev)=max(zh(ig,ilev),zhcond(ig,ilev))
    211223         ENDDO
    212224      ENDDO
    213225      if(tracer) then
    214         DO iq =1, nq
    215          DO ilev=1,nlay
    216            DO ig=1,ngrid
    217               zq(ig,ilev,iq)=pq(ig,ilev,iq)+pdqfi(ig,ilev,iq)*ptimestep
    218            ENDDO
    219          ENDDO
    220         ENDDO
     226         DO iq =1, nq
     227            DO ilev=1,nlay
     228               DO ig=1,ngrid
     229                  zq(ig,ilev,iq)=pq(ig,ilev,iq) +
     230     &                 pdqfi(ig,ilev,iq)*ptimestep
     231               ENDDO
     232            ENDDO
     233         ENDDO
    221234      end if
    222235
    223 c-----------------------------------------------------------------------
    224 c   3. schema de turbulence
    225 c      --------------------
    226 
    227 c    ** source d'energie cinetique turbulente a la surface
    228 c       (condition aux limites du schema de diffusion turbulente
    229 c       dans la couche limite
    230 c       ---------------------
    231 
    232       CALL vdif_cd( ngrid,nlay,pz0,g,pzlay,pu,pv,ptsrf,ph
    233      &             ,zcdv_true,zcdh_true)
    234       DO ig=1,ngrid
    235         zu2=pu(ig,1)*pu(ig,1)+pv(ig,1)*pv(ig,1)
    236         zcdv(ig)=zcdv_true(ig)*sqrt(zu2)
    237         zcdh(ig)=zcdh_true(ig)*sqrt(zu2)
    238       ENDDO
    239 
    240 c    ** schema de diffusion turbulente dans la couche limite
    241 c       ----------------------------------------------------
    242 
    243         CALL vdif_kc(ptimestep,g,pzlev,pzlay
    244      &              ,pu,pv,ph,zcdv_true
    245      &              ,pq2,zkv,zkh)
    246 
    247 
    248 c    Adding eddy mixing to mimic 3D general circulation in 1D
    249 c    RW FF 2010
     236!-----------------------------------------------------------------------
     237!     3. Turbulence scheme
     238!     --------------------
     239!
     240!     Source of turbulent kinetic energy at the surface
     241!     -------------------------------------------------
     242!     Formula is Cd_0 = (karman / log[1+z1/z0])^2
     243
     244      DO ig=1,ngrid
     245         roughratio = 1.E+0 + pzlay(ig,1)/pz0
     246         cd0 = karman/log(roughratio)
     247         cd0 = cd0*cd0
     248         zcdv_true(ig) = cd0
     249         zcdh_true(ig) = cd0
     250      ENDDO
     251
     252      DO ig=1,ngrid
     253         zu2=pu(ig,1)*pu(ig,1)+pv(ig,1)*pv(ig,1)
     254         zcdv(ig)=zcdv_true(ig)*sqrt(zu2)
     255         zcdh(ig)=zcdh_true(ig)*sqrt(zu2)
     256      ENDDO
     257
     258!     Turbulent diffusion coefficients in the boundary layer
     259!     ------------------------------------------------------
     260
     261      call vdif_kc(ptimestep,g,pzlev,pzlay
     262     &     ,pu,pv,ph,zcdv_true
     263     &     ,pq2,zkv,zkh)
     264
     265!     Adding eddy mixing to mimic 3D general circulation in 1D
     266!     R. Wordsworth & F. Forget (2010)
    250267      if ((ngrid.eq.1)) then
    251         kmixmin = 1.0e-2   ! minimum eddy mix coeff in 1D
    252         do ilev=1,nlay
    253           do ig=1,ngrid
    254            zkh(ig,ilev) = max(kmixmin,zkh(ig,ilev))
    255            zkv(ig,ilev) = max(kmixmin,zkv(ig,ilev))
    256            !zkh(ig,ilev) = kmixmin
    257            !zkv(ig,ilev) = kmixmin
    258           end do
    259         end do
     268         kmixmin = 1.0e-2       ! minimum eddy mix coeff in 1D
     269         do ilev=1,nlay
     270            do ig=1,ngrid
     271               !zkh(ig,ilev) = 1.0
     272               zkh(ig,ilev) = max(kmixmin,zkh(ig,ilev))
     273               zkv(ig,ilev) = max(kmixmin,zkv(ig,ilev))
     274            end do
     275         end do
    260276      end if
    261277
    262 
    263 c    ** diagnostique pour le schema de turbulence
    264 c       -----------------------------------------
    265 
    266       IF(lecrit) THEN
    267          PRINT*
    268          PRINT*,'Diagnostic for the vertical turbulent mixing'
    269          PRINT*,'Cd for momentum and potential temperature'
    270 
    271          PRINT*,zcdv(ngrid/2+1),zcdh(ngrid/2+1)
    272          PRINT*,'Mixing coefficient for momentum and pot.temp.'
    273          DO ilev=1,nlay
    274             PRINT*,zkv(ngrid/2+1,ilev),zkh(ngrid/2+1,ilev)
    275          ENDDO
    276       ENDIF
    277 
    278 c-----------------------------------------------------------------------
    279 c   4. inversion pour l'implicite sur u
    280 c      --------------------------------
    281 
    282 c    ** l'equation est
    283 c       u(t+1) =  u(t) + dt * {(du/dt)phys}(t)  +  dt * {(du/dt)difv}(t+1)
    284 c       avec
    285 c       /zu/ = u(t) + dt * {(du/dt)phys}(t)   (voir paragraphe 2.)
    286 c       et
    287 c       dt * {(du/dt)difv}(t+1) = dt * {(d/dz)[ Ku (du/dz) ]}(t+1)
    288 c       donc les entrees sont /zcdv/ pour la condition a la limite sol
    289 c       et /zkv/ = Ku
    290  
     278!-----------------------------------------------------------------------
     279!     4. Implicit inversion of u
     280!     --------------------------
     281
     282!     u(t+1) =  u(t) + dt * {(du/dt)phys}(t)  +  dt * {(du/dt)difv}(t+1)
     283!     avec
     284!     /zu/ = u(t) + dt * {(du/dt)phys}(t)   (voir paragraphe 2.)
     285!     et
     286!     dt * {(du/dt)difv}(t+1) = dt * {(d/dz)[ Ku (du/dz) ]}(t+1)
     287!     donc les entrees sont /zcdv/ pour la condition a la limite sol
     288!     et /zkv/ = Ku
     289     
    291290      CALL multipl((nlay-1)*ngrid,zkv(1,2),zb0(1,2),zb(1,2))
    292291      CALL multipl(ngrid,zcdv,zb0,zb)
    … …  
    301300         DO ig=1,ngrid
    302301            z1(ig)=1./(za(ig,ilay)+zb(ig,ilay)+
    303      $         zb(ig,ilay+1)*(1.-zd(ig,ilay+1)))
     302     $           zb(ig,ilay+1)*(1.-zd(ig,ilay+1)))
    304303            zc(ig,ilay)=(za(ig,ilay)*zu(ig,ilay)+
    305      $         zb(ig,ilay+1)*zc(ig,ilay+1))*z1(ig)
     304     $           zb(ig,ilay+1)*zc(ig,ilay+1))*z1(ig)
    306305            zd(ig,ilay)=zb(ig,ilay)*z1(ig)
    307306         ENDDO
    … …  
    317316      ENDDO
    318317
    319 c-----------------------------------------------------------------------
    320 c   5. inversion pour l'implicite sur v
    321 c      --------------------------------
    322 
    323 c    ** l'equation est
    324 c       v(t+1) =  v(t) + dt * {(dv/dt)phys}(t)  +  dt * {(dv/dt)difv}(t+1)
    325 c       avec
    326 c       /zv/ = v(t) + dt * {(dv/dt)phys}(t)   (voir paragraphe 2.)
    327 c       et
    328 c       dt * {(dv/dt)difv}(t+1) = dt * {(d/dz)[ Kv (dv/dz) ]}(t+1)
    329 c       donc les entrees sont /zcdv/ pour la condition a la limite sol
    330 c       et /zkv/ = Kv
     318!-----------------------------------------------------------------------
     319!     5. Implicit inversion of v
     320!     --------------------------
     321
     322!     v(t+1) =  v(t) + dt * {(dv/dt)phys}(t)  +  dt * {(dv/dt)difv}(t+1)
     323!     avec
     324!     /zv/ = v(t) + dt * {(dv/dt)phys}(t)   (voir paragraphe 2.)
     325!     et
     326!     dt * {(dv/dt)difv}(t+1) = dt * {(d/dz)[ Kv (dv/dz) ]}(t+1)
     327!     donc les entrees sont /zcdv/ pour la condition a la limite sol
     328!     et /zkv/ = Kv
    331329
    332330      DO ig=1,ngrid
    … …  
    339337         DO ig=1,ngrid
    340338            z1(ig)=1./(za(ig,ilay)+zb(ig,ilay)+
    341      $         zb(ig,ilay+1)*(1.-zd(ig,ilay+1)))
     339     $           zb(ig,ilay+1)*(1.-zd(ig,ilay+1)))
    342340            zc(ig,ilay)=(za(ig,ilay)*zv(ig,ilay)+
    343      $         zb(ig,ilay+1)*zc(ig,ilay+1))*z1(ig)
     341     $           zb(ig,ilay+1)*zc(ig,ilay+1))*z1(ig)
    344342            zd(ig,ilay)=zb(ig,ilay)*z1(ig)
    345343         ENDDO
    … …  
    355353      ENDDO
    356354
    357 c-----------------------------------------------------------------------
    358 c   6. inversion pour l'implicite sur h sans oublier le couplage
    359 c      avec le sol (conduction)
    360 c      ------------------------
    361 
    362 c    ** l'equation est
    363 c       h(t+1) =  h(t) + dt * {(dh/dt)phys}(t)  +  dt * {(dh/dt)difv}(t+1)
    364 c       avec
    365 c       /zh/ = h(t) + dt * {(dh/dt)phys}(t)   (voir paragraphe 2.)
    366 c       et
    367 c       dt * {(dh/dt)difv}(t+1) = dt * {(d/dz)[ Kh (dh/dz) ]}(t+1)
    368 c       donc les entrees sont /zcdh/ pour la condition de raccord au sol
    369 c       et /zkh/ = Kh
    370 c       -------------
     355!----------------------------------------------------------------------------
     356!     6. Implicit inversion of h, not forgetting the coupling with the ground
     357
     358!     h(t+1) =  h(t) + dt * {(dh/dt)phys}(t)  +  dt * {(dh/dt)difv}(t+1)
     359!     avec
     360!     /zh/ = h(t) + dt * {(dh/dt)phys}(t)   (voir paragraphe 2.)
     361!     et
     362!     dt * {(dh/dt)difv}(t+1) = dt * {(d/dz)[ Kh (dh/dz) ]}(t+1)
     363!     donc les entrees sont /zcdh/ pour la condition de raccord au sol
     364!     et /zkh/ = Kh
     365
     366!     Using the wind modified by friction for lifting and sublimation
     367!     ---------------------------------------------------------------
     368         DO ig=1,ngrid
     369            zu2      = zu(ig,1)*zu(ig,1)+zv(ig,1)*zv(ig,1)
     370            zcdv(ig) = zcdv_true(ig)*sqrt(zu2)
     371            zcdh(ig) = zcdh_true(ig)*sqrt(zu2)
     372         ENDDO
    371373
    372374      CALL multipl((nlay-1)*ngrid,zkh(1,2),zb0(1,2),zb(1,2))
    … …  
    379381      ENDDO
    380382
    381       DO ilay=nlay-1,1,-1
     383      DO ilay=nlay-1,2,-1
    382384         DO ig=1,ngrid
    383385            z1(ig)=1./(za(ig,ilay)+zb(ig,ilay)+
    384      $         zb(ig,ilay+1)*(1.-zd(ig,ilay+1)))
     386     &           zb(ig,ilay+1)*(1.-zd(ig,ilay+1)))
    385387            zc(ig,ilay)=(za(ig,ilay)*zh(ig,ilay)+
    386      $         zb(ig,ilay+1)*zc(ig,ilay+1))*z1(ig)
     388     &           zb(ig,ilay+1)*zc(ig,ilay+1))*z1(ig)
    387389            zd(ig,ilay)=zb(ig,ilay)*z1(ig)
    388390         ENDDO
    389391      ENDDO
    390392
    391 c    ** calcul de (d Planck / dT) a la temperature d'interface
    392 c       ------------------------------------------------------
    393 
    394       z4st=4.*5.67e-8*ptimestep
     393      DO ig=1,ngrid
     394         z1(ig)=1./(za(ig,1)+zb(ig,1)+
     395     &        zb(ig,2)*(1.-zd(ig,2)))
     396         zc(ig,1)=(za(ig,1)*zh(ig,1)+
     397     &        zb(ig,2)*zc(ig,2))*z1(ig)
     398         zd(ig,1)=zb(ig,1)*z1(ig)
     399      ENDDO
     400
     401!     Calculate (d Planck / dT) at the interface temperature
     402!     ------------------------------------------------------
     403
     404      z4st=4.0*sigma*ptimestep
    395405      DO ig=1,ngrid
    396406         zdplanck(ig)=z4st*pemis(ig)*ptsrf(ig)*ptsrf(ig)*ptsrf(ig)
    397407      ENDDO
    398408
    399 c    ** calcul de la temperature_d'interface et de sa tendance.
    400 c       on ecrit que la somme des flux est nulle a l'interface
    401 c       a t + \delta t,
    402 c       c'est a dire le flux radiatif a {t + \delta t}
    403 c       + le flux turbulent a {t + \delta t}
    404 c            qui s'ecrit K (T1-Tsurf) avec T1 = d1 Tsurf + c1
    405 c            (notation K dt = /cpp*b/)       
    406 c       + le flux dans le sol a t
    407 c       + l'evolution du flux dans le sol lorsque la temperature d'interface
    408 c       passe de sa valeur a t a sa valeur a {t + \delta t}.
    409 c       ----------------------------------------------------
    410 
    411       DO ig=1,ngrid
    412          z1(ig)=pcapcal(ig)*ptsrf(ig)+cpp*zb(ig,1)*zc(ig,1)
    413      s     +zdplanck(ig)*ptsrf(ig)+ pfluxsrf(ig)*ptimestep
    414          z2(ig)= pcapcal(ig)+cpp*zb(ig,1)*(1.-zd(ig,1))+zdplanck(ig)
    415          ztsrf2(ig)=z1(ig)/z2(ig)
    416          pdtsrf(ig)=(ztsrf2(ig)-ptsrf(ig))/ptimestep
    417 
    418 c        Modif speciale CO2 condensation:
    419 c        tconds = 1./(bcond-acond*log(.0095*pplev(ig,1)))
    420 c        if ((callcond).and.
    421 c    &      ((co2ice(ig).ne.0).or.(ztsrf2(ig).lt.tconds)))then
    422 c           zh(ig,1)=zc(ig,1)+zd(ig,1)*tconds
    423 c        else
    424             zh(ig,1)=zc(ig,1)+zd(ig,1)*ztsrf2(ig)
    425 c        end if
    426       ENDDO
    427 
    428 c    ** et a partir de la temperature au sol on remonte
    429 c       -----------------------------------------------
    430 
    431       DO ilay=2,nlay
    432          DO ig=1,ngrid
    433             hh = max( zh(ig,ilay-1) , zhcond(ig,ilay-1) ) ! modif co2cond
    434             zh(ig,ilay)=zc(ig,ilay)+zd(ig,ilay)*hh
    435          ENDDO
    436       ENDDO
    437 
    438 
    439 c-----------------------------------------------------------------------
    440 c   TRACERS
    441 c   -------
     409!     Calculate temperature tendency at the interface (dry case)
     410!     ----------------------------------------------------------
     411!     Sum of fluxes at interface at time t + \delta t gives change in T:
     412!       radiative fluxes
     413!       turbulent convective (sensible) heat flux
     414!       flux (if any) from subsurface
     415
     416      if(.not.water) then
     417
     418         DO ig=1,ngrid
     419
     420            z1(ig) = pcapcal(ig)*ptsrf(ig) + cpp*zb(ig,1)*zc(ig,1)
     421     &           + zdplanck(ig)*ptsrf(ig) + pfluxsrf(ig)*ptimestep
     422            z2(ig) = pcapcal(ig) + cpp*zb(ig,1)*(1.-zd(ig,1))
     423     &           +zdplanck(ig)
     424            ztsrf2(ig) = z1(ig) / z2(ig)
     425            pdtsrf(ig) = (ztsrf2(ig) - ptsrf(ig))/ptimestep
     426            zh(ig,1)   = zc(ig,1) + zd(ig,1)*ztsrf2(ig)
     427         ENDDO
     428
     429!     Recalculate temperature to top of atmosphere, starting from ground
     430!     ------------------------------------------------------------------
     431
     432         DO ilay=2,nlay
     433            DO ig=1,ngrid
     434               hh = zh(ig,ilay-1)
     435               zh(ig,ilay)=zc(ig,ilay)+zd(ig,ilay)*hh
     436            ENDDO
     437         ENDDO
     438
     439      endif                     ! not water
     440
     441!-----------------------------------------------------------------------
     442!     TRACERS (no vapour)
     443!     -------
    442444
    443445      if(tracer) then
    444446
    445 c     Using the wind modified by friction for lifting and  sublimation
    446 c     ----------------------------------------------------------------
    447         DO ig=1,ngrid
    448           zu2=zu(ig,1)*zu(ig,1)+zv(ig,1)*zv(ig,1)
    449           zcdv(ig)=zcdv_true(ig)*sqrt(zu2)
    450           zcdh(ig)=zcdh_true(ig)*sqrt(zu2)
    451         ENDDO
    452 
    453 c       Calcul du flux vertical au bas de la premiere couche (dust) :
    454 c       -----------------------------------------------------------
    455         do ig=1,ngridmx 
    456           rho(ig) = zb0(ig,1) /ptimestep
    457 !          zb(ig,1) = 0.
    458         end do
    459 
    460         call zerophys(ngrid*nq,pdqsdif)
    461 
    462 c       OU calcul de la valeur de q a la surface (water)  :
    463 c       ----------------------------------------
    464         if (water) then
    465            !call watersat(ngridmx,ptsrf,pplev(1,1),qsat)
    466            do ig=1,ngridmx 
    467               call watersat_2(ptsrf(ig),pplev(ig,1),qsat(ig))
    468            end do
    469         end if
    470 
    471 c      Inversion pour l'implicite sur q
    472 c       --------------------------------
    473         do iq=1,nq
    474           CALL multipl((nlay-1)*ngrid,zkh(1,2),zb0(1,2),zb(1,2))
    475 
    476           if ((water).and.(iq.eq.igcm_h2o_vap)) then
    477 c            This line is required to account for turbulent transport
    478 c            from surface (e.g. ice) to mid-layer of atmosphere:
    479              CALL multipl(ngrid,zcdv,zb0,zb(1,1))
    480              CALL multipl(ngrid,dryness,zb(1,1),zb(1,1))
    481           else ! (re)-initialize zb(:,1)
    482              zb(1:ngrid,1)=0
    483           end if
    484 
    485           DO ig=1,ngrid
    486                z1(ig)=1./(za(ig,nlay)+zb(ig,nlay))
    487                zc(ig,nlay)=za(ig,nlay)*zq(ig,nlay,iq)*z1(ig)
    488                zd(ig,nlay)=zb(ig,nlay)*z1(ig)
    489           ENDDO
    490  
    491           DO ilay=nlay-1,2,-1
     447!     Calculate vertical flux from the bottom to the first layer (dust)
     448!     -----------------------------------------------------------------
     449         do ig=1,ngridmx 
     450            rho(ig) = zb0(ig,1) /ptimestep
     451         end do
     452
     453         call zerophys(ngrid*nq,pdqsdif)
     454
     455!     Implicit inversion of q
     456!     -----------------------
     457         do iq=1,nq
     458
     459            if (iq.ne.igcm_h2o_vap) then
     460
    492461               DO ig=1,ngrid
    493                 z1(ig)=1./(za(ig,ilay)+zb(ig,ilay)+
    494      $           zb(ig,ilay+1)*(1.-zd(ig,ilay+1)))
    495                 zc(ig,ilay)=(za(ig,ilay)*zq(ig,ilay,iq)+
    496      $           zb(ig,ilay+1)*zc(ig,ilay+1))*z1(ig)
    497                 zd(ig,ilay)=zb(ig,ilay)*z1(ig)
     462                  z1(ig)=1./(za(ig,nlay)+zb(ig,nlay))
     463                  zcq(ig,nlay)=za(ig,nlay)*zq(ig,nlay,iq)*z1(ig)
     464                  zdq(ig,nlay)=zb(ig,nlay)*z1(ig)
     465               ENDDO
     466           
     467               DO ilay=nlay-1,2,-1
     468                  DO ig=1,ngrid
     469                     z1(ig)=1./(za(ig,ilay)+zb(ig,ilay)+
     470     &                    zb(ig,ilay+1)*(1.-zdq(ig,ilay+1)))
     471                     zcq(ig,ilay)=(za(ig,ilay)*zq(ig,ilay,iq)+
     472     &                    zb(ig,ilay+1)*zcq(ig,ilay+1))*z1(ig)
     473                     zdq(ig,ilay)=zb(ig,ilay)*z1(ig)
     474                  ENDDO
    498475               ENDDO
    499           ENDDO
    500 
    501           if (water.and.(iq.eq.igcm_h2o_ice)) then
    502             ! special case for water ice tracer: do not include
    503             ! h2o ice tracer from surface (which is set when handling
    504             ! h2o vapour case (see further down).
    505             DO ig=1,ngrid
    506                 z1(ig)=1./(za(ig,1)+zb(ig,1)+
    507      $           zb(ig,2)*(1.-zd(ig,2)))
    508                 zc(ig,1)=(za(ig,1)*zq(ig,1,iq)+
    509      $         zb(ig,2)*zc(ig,2)) *z1(ig)
    510             ENDDO
    511           else ! general case
    512             DO ig=1,ngrid
    513                 z1(ig)=1./(za(ig,1)+zb(ig,1)+
    514      $           zb(ig,2)*(1.-zd(ig,2)))
    515                 zc(ig,1)=(za(ig,1)*zq(ig,1,iq)+
    516      $         zb(ig,2)*zc(ig,2) +
    517      $        (-pdqsdif(ig,iq)) *ptimestep) *z1(ig)  !tracer flux from surface
    518             ENDDO
    519           endif ! of if (water.and.(iq.eq.igcm_h2o_ice))
    520  
    521           IF ((water).and.(iq.eq.igcm_h2o_vap)) then
    522 c           Calculation for turbulent exchange with the surface (for ice)
    523             DO ig=1,ngrid
    524               zd(ig,1)=zb(ig,1)*z1(ig)
    525               zq1temp(ig)=zc(ig,1)+ zd(ig,1)*qsat(ig)
    526 
    527               pdqsdif(ig,igcm_h2o_ice)=rho(ig)*dryness(ig)*zcdv(ig)
    528      &                       *(zq1temp(ig)-qsat(ig))
    529 c             write(*,*)'flux vers le sol=',pdqsdif(ig,nq)
    530             END DO
    531 
    532             DO ig=1,ngrid
    533               if(.not.watercaptag(ig)) then
    534                 if ((-pdqsdif(ig,igcm_h2o_ice)*ptimestep)
    535      &             .gt.pqsurf(ig,igcm_h2o_ice)) then
    536 c                 write(*,*)'on sublime plus que qsurf!'
    537                   pdqsdif(ig,igcm_h2o_ice)=
    538      &                         -pqsurf(ig,igcm_h2o_ice)/ptimestep
    539 c                 write(*,*)'flux vers le sol=',pdqsdif(ig,nq)
    540                   z1(ig)=1./(za(ig,1)+ zb(ig,2)*(1.-zd(ig,2)))
    541                   zc(ig,1)=(za(ig,1)*zq(ig,1,igcm_h2o_vap)+
    542      $            zb(ig,2)*zc(ig,2) +
    543      $            (-pdqsdif(ig,igcm_h2o_ice)) *ptimestep) *z1(ig)
    544                   zq1temp(ig)=zc(ig,1)
    545                 endif   
    546               endif ! if (.not.watercaptag(ig))
    547 c             Starting upward calculations for water :
    548                zq(ig,1,igcm_h2o_vap)=zq1temp(ig)
    549             ENDDO ! of DO ig=1,ngrid
    550 
    551 
    552 !            ! ADDED BY RW: Water latent heat effect
    553 !     this doesnt work; causes instability. What do they do on earth?
    554 !            DO ig=1,ngrid
    555 !               pdtsrf(ig)=
    556 !     &             pdtsrf(ig)+RLVTT*pdqsdif(ig,igcm_h2o_ice)/pcapcal(ig)
    557 !            ENDDO
    558 !            print*,'Surface latent heat release in vdifc'
    559 !            print*,'due to H2O NOT taken into account.'
    560 
    561           ELSE
    562 c           Starting upward calculations for simple mixing of tracer (dust)
    563             DO ig=1,ngrid
    564                zq(ig,1,iq)=zc(ig,1)
    565             ENDDO
    566           END IF ! of IF ((water).and.(iq.eq.igcm_h2o_vap))
    567 
    568           DO ilay=2,nlay
    569              DO ig=1,ngrid
    570                 zq(ig,ilay,iq)=zc(ig,ilay)+zd(ig,ilay)*zq(ig,ilay-1,iq)
    571              ENDDO
    572           ENDDO
    573         enddo ! of do iq=1,nq
    574       end if ! of if(tracer)
    575 
    576 c-----------------------------------------------------------------------
    577 c   8. calcul final des tendances de la diffusion verticale
    578 c      ----------------------------------------------------
    579 
    580       DO ilev = 1, nlay
    581          DO ig=1,ngrid
    582             pdudif(ig,ilev)=(    zu(ig,ilev)-
    583      $      (pu(ig,ilev)+pdufi(ig,ilev)*ptimestep)    )/ptimestep
    584             pdvdif(ig,ilev)=(    zv(ig,ilev)-
    585      $      (pv(ig,ilev)+pdvfi(ig,ilev)*ptimestep)    )/ptimestep
    586             hh = max(ph(ig,ilev)+pdhfi(ig,ilev)*ptimestep ,
    587      $           zhcond(ig,ilev))        ! modif co2cond
     476
     477               if ((water).and.(iq.eq.iice)) then
     478                  ! special case for water ice tracer: do not include
     479                  ! h2o ice tracer from surface (which is set when handling
     480                  ! h2o vapour case (see further down).
     481                  ! zb(ig,1)=0 if iq ne ivap
     482                  DO ig=1,ngrid
     483                     z1(ig)=1./(za(ig,1)+
     484     &                    zb(ig,2)*(1.-zdq(ig,2)))
     485                     zcq(ig,1)=(za(ig,1)*zq(ig,1,iq)+
     486     &                    zb(ig,2)*zcq(ig,2))*z1(ig)
     487                  ENDDO
     488               else             ! general case
     489                  DO ig=1,ngrid
     490                     z1(ig)=1./(za(ig,1)+
     491     &                    zb(ig,2)*(1.-zdq(ig,2)))
     492                     zcq(ig,1)=(za(ig,1)*zq(ig,1,iq)+
     493     &                    zb(ig,2)*zcq(ig,2)
     494     &                    +(-pdqsdif(ig,iq))*ptimestep)*z1(ig)
     495                          ! tracer flux from surface
     496                          ! currently pdqsdif always zero here,
     497                          ! so last line is superfluous
     498                  enddo
     499               endif            ! of if (water.and.(iq.eq.igcm_h2o_ice))
     500
     501
     502!     Starting upward calculations for simple tracer mixing (e.g., dust)
     503               do ig=1,ngrid
     504                  zq(ig,1,iq)=zcq(ig,1)
     505               end do
     506
     507               do ilay=2,nlay
     508                  do ig=1,ngrid
     509                     zq(ig,ilay,iq)=zcq(ig,ilay)+
     510     $                    zdq(ig,ilay)*zq(ig,ilay-1,iq)
     511                  end do
     512               end do
     513
     514            endif               ! if (iq.ne.igcm_h2o_vap)
     515
     516!     Calculate temperature tendency including latent heat term
     517!     and assuming an infinite source of water on the ground
     518!     ------------------------------------------------------------------
     519
     520            if (water.and.(iq.eq.igcm_h2o_vap)) then
     521           
     522               ! compute evaporation efficiency
     523               do ig = 1, ngrid
     524                  if(rnat(ig).eq.1)then
     525                     dryness(ig)=pqsurf(ig,ivap)+pqsurf(ig,iice)
     526                     dryness(ig)=MIN(1.,2*dryness(ig)/mx_eau_sol)
     527                     dryness(ig)=MAX(0.,dryness(ig))
     528                  endif
     529               enddo
     530
     531               do ig=1,ngrid
     532
     533                ! Calculate the value of qsat at the surface (water)
     534                call watersat(ptsrf(ig),pplev(ig,1),qsat(ig))
     535                call watersat(ptsrf(ig)-0.0001,pplev(ig,1),qsat_temp1)
     536                call watersat(ptsrf(ig)+0.0001,pplev(ig,1),qsat_temp2)
     537                dqsat(ig)=(qsat_temp2-qsat_temp1)/0.0002
     538                ! calculate dQsat / dT by finite differences
     539                ! we cannot use the updated temperature value yet...
     540 
     541               enddo
     542
     543! coefficients for q
     544
     545               do ig=1,ngrid
     546                  z1(ig)=1./(za(ig,nlay)+zb(ig,nlay))
     547                  zcq(ig,nlay)=za(ig,nlay)*zq(ig,nlay,iq)*z1(ig)
     548                  zdq(ig,nlay)=zb(ig,nlay)*z1(ig)
     549               enddo
     550           
     551               do ilay=nlay-1,2,-1
     552                  do ig=1,ngrid
     553                     z1(ig)=1./(za(ig,ilay)+zb(ig,ilay)+
     554     $                    zb(ig,ilay+1)*(1.-zdq(ig,ilay+1)))
     555                     zcq(ig,ilay)=(za(ig,ilay)*zq(ig,ilay,iq)+
     556     $                    zb(ig,ilay+1)*zcq(ig,ilay+1))*z1(ig)
     557                     zdq(ig,ilay)=zb(ig,ilay)*z1(ig)
     558                  enddo
     559               enddo
     560
     561               do ig=1,ngrid
     562                  z1(ig)=1./(za(ig,1)+zb(ig,1)*dryness(ig)+
     563     $                 zb(ig,2)*(1.-zdq(ig,2)))
     564                  zcq(ig,1)=(za(ig,1)*zq(ig,1,iq)+
     565     $                 zb(ig,2)*zcq(ig,2))*z1(ig)
     566                  zdq(ig,1)=dryness(ig)*zb(ig,1)*z1(ig)
     567               enddo
     568
     569! calculation of h0 and h1
     570               do ig=1,ngrid
     571                  zdq0(ig) = dqsat(ig)
     572                  zcq0(ig) = qsat(ig)-dqsat(ig)*ptsrf(ig)
     573
     574                  z1(ig) = pcapcal(ig)*ptsrf(ig) +cpp*zb(ig,1)*zc(ig,1)
     575     &                 + zdplanck(ig)*ptsrf(ig) + pfluxsrf(ig)*ptimestep
     576     &                 +  zb(ig,1)*dryness(ig)*RLVTT*
     577     &                 ((zdq(ig,1)-1.0)*zcq0(ig)+zcq(ig,1))
     578
     579                  z2(ig) = pcapcal(ig) + cpp*zb(ig,1)*(1.-zd(ig,1))
     580     &                 +zdplanck(ig)
     581     &                 +zb(ig,1)*dryness(ig)*RLVTT*zdq0(ig)*
     582     &                 (1.0-zdq(ig,1))
     583
     584                  ztsrf2(ig) = z1(ig) / z2(ig)
     585                  pdtsrf(ig) = (ztsrf2(ig) - ptsrf(ig))/ptimestep
     586                  zh(ig,1)   = zc(ig,1) + zd(ig,1)*ztsrf2(ig)
     587               enddo
     588
     589! calculation of qs and q1
     590               do ig=1,ngrid
     591                  zq0(ig)     = zcq0(ig)+zdq0(ig)*ztsrf2(ig)
     592                  zq(ig,1,iq) = zcq(ig,1)+zdq(ig,1)*zq0(ig)
     593               enddo
     594
     595! calculation of evaporation             
     596               do ig=1,ngrid
     597                  evap(ig)= zb(ig,1)*dryness(ig)*(zq(ig,1,ivap)-zq0(ig))
     598                  dqsdif_total(ig)=evap(ig)
     599               enddo
     600
     601! recalculate temperature and q(vap) to top of atmosphere, starting from ground
     602               do ilay=2,nlay
     603                  do ig=1,ngrid
     604                     zq(ig,ilay,iq)=zcq(ig,ilay)
     605     &                    +zdq(ig,ilay)*zq(ig,ilay-1,iq)
     606                     zh(ig,ilay)=zc(ig,ilay)+zd(ig,ilay)*zh(ig,ilay-1)
     607                  end do
     608               end do
     609
     610               do ig=1,ngrid
     611
     612!     --------------------------------------------------------------------------
     613!     On the ocean, if T > 0 C then the vapour tendency must replace the ice one
     614!     The surface vapour tracer is actually liquid. To make things difficult.
     615
     616                  if (rnat(ig).eq.0) then ! unfrozen ocean
     617                     
     618                     pdqsdif(ig,ivap)=dqsdif_total(ig)/ptimestep
     619                     pdqsdif(ig,iice)=0.0
     620
     621
     622                  elseif (rnat(ig).eq.1) then ! (continent)
     623
     624!     --------------------------------------------------------
     625!     Now check if we've taken too much water from the surface
     626!     This can only occur on the continent
     627
     628!     If water is evaporating / subliming, we take it from ice before liquid
     629!     -- is this valid??
     630                     if(dqsdif_total(ig).lt.0)then
     631                        pdqsdif(ig,iice)=dqsdif_total(ig)/ptimestep
     632                        pdqsdif(ig,iice)=max(-pqsurf(ig,iice)/ptimestep
     633     &                       ,pdqsdif(ig,iice))
     634                     endif
     635                     ! sublimation only greater than qsurf(ice)
     636                     ! ----------------------------------------
     637                     ! we just convert some liquid to vapour too
     638                     ! if latent heats are the same, no big deal
     639                     if (-dqsdif_total(ig).gt.pqsurf(ig,iice))then           
     640                       pdqsdif(ig,iice) = -pqsurf(ig,iice)/ptimestep ! removes all the ice!
     641                       pdqsdif(ig,ivap) = dqsdif_total(ig)/ptimestep
     642     &                       - pdqsdif(ig,iice) ! take the remainder from the liquid instead
     643                       pdqsdif(ig,ivap) = max(-pqsurf(ig,ivap)/ptimestep
     644     &                       ,pdqsdif(ig,ivap))
     645                    endif
     646
     647                 endif          ! if (rnat.ne.1)
     648
     649!     If water vapour is condensing, we must decide whether it forms ice or liquid.
     650                 if(dqsdif_total(ig).gt.0)then ! a bug was here!
     651                    if(ztsrf2(ig).gt.To)then
     652                       pdqsdif(ig,iice)=0.0
     653                       pdqsdif(ig,ivap)=dqsdif_total(ig)/ptimestep
     654                    else
     655                       pdqsdif(ig,iice)=dqsdif_total(ig)/ptimestep
     656                       pdqsdif(ig,ivap)=0.0
     657                    endif
     658                 endif
     659
     660              end do            ! of DO ig=1,ngrid
     661           endif                ! if (water et iq=ivap)
     662        end do                  ! of do iq=1,nq
     663      endif                     ! traceur
     664
     665
     666!-----------------------------------------------------------------------
     667!     8. Final calculation of the vertical diffusion tendencies
     668!     -----------------------------------------------------------------
     669
     670      do ilev = 1, nlay
     671         do ig=1,ngrid
     672            pdudif(ig,ilev)=(zu(ig,ilev)-
     673     &           (pu(ig,ilev)+pdufi(ig,ilev)*ptimestep))/ptimestep
     674            pdvdif(ig,ilev)=(zv(ig,ilev)-
     675     &           (pv(ig,ilev)+pdvfi(ig,ilev)*ptimestep))/ptimestep
     676            hh = ph(ig,ilev)+pdhfi(ig,ilev)*ptimestep
     677
    588678            pdhdif(ig,ilev)=( zh(ig,ilev)- hh )/ptimestep
    589          ENDDO
    590       ENDDO
    591 
    592    
    593       if (tracer) then
    594         DO iq = 1, nq
    595           DO ilev = 1, nlay
    596             DO ig=1,ngrid
    597               pdqdif(ig,ilev,iq)=(zq(ig,ilev,iq)-
    598      $      (pq(ig,ilev,iq) + pdqfi(ig,ilev,iq)*ptimestep))/ptimestep
    599             ENDDO
    600           ENDDO
    601         ENDDO
    602       end if
    603 
    604 c    ** diagnostique final
    605 c       ------------------
    606 
    607       IF(lecrit) THEN
    608          PRINT*,'In vdif'
    609          PRINT*,'Ts (t) and Ts (t+st)'
    610          WRITE(*,'(a10,3a15)')
    611      s   'theta(t)','theta(t+dt)','u(t)','u(t+dt)'
    612          PRINT*,ptsrf(ngrid/2+1),ztsrf2(ngrid/2+1)
    613          DO ilev=1,nlay
    614             WRITE(*,'(4f15.7)')
    615      s      ph(ngrid/2+1,ilev),zh(ngrid/2+1,ilev),
    616      s      pu(ngrid/2+1,ilev),zu(ngrid/2+1,ilev)
    617 
    618          ENDDO
    619       ENDIF
    620 
    621       RETURN
    622       END
     679         enddo
     680      enddo
     681     
     682      if (tracer) then
     683         do iq = 1, nq
     684            do ilev = 1, nlay
     685               do ig=1,ngrid
     686                  pdqdif(ig,ilev,iq)=(zq(ig,ilev,iq)-
     687     &           (pq(ig,ilev,iq)+pdqfi(ig,ilev,iq)*ptimestep))/
     688     &           ptimestep
     689               enddo
     690            enddo
     691         enddo
     692
     693         if(water.and.forceWC)then ! force water conservation in model
     694                                   ! we calculate the difference and add it to the ground
     695                                   ! this is ugly and should be improved in the future
     696            do ig=1,ngrid
     697               Wtot=0.0
     698               do ilay=1,nlay
     699                  masse = (pplev(ig,ilay) - pplev(ig,ilay+1))/g
     700!                  Wtot=Wtot+masse*(zq(ig,ilay,iice)-
     701!     &                 (pq(ig,ilay,iice)+pdqfi(ig,ilay,iice)*ptimestep))
     702                  Wtot=Wtot+masse*(zq(ig,ilay,ivap)-
     703     &                 (pq(ig,ilay,ivap)+pdqfi(ig,ilay,ivap)*ptimestep))
     704               enddo
     705               Wdiff=Wtot/ptimestep+pdqsdif(ig,ivap)+pdqsdif(ig,iice)
     706
     707               if(ztsrf2(ig).gt.To)then
     708                  pdqsdif(ig,ivap)=pdqsdif(ig,ivap)-Wdiff
     709               else
     710                  pdqsdif(ig,iice)=pdqsdif(ig,iice)-Wdiff
     711               endif
     712            enddo
     713
     714         endif
     715
     716      endif
     717
     718      if(water)then
     719      call writediagfi(ngrid,'beta','Dryness coefficient',' ',2,dryness)
     720      endif
     721
     722      return
     723      end

  • trunk/LMDZ.GENERIC/libf/phystd/watercap.h

    r135 r253  
    1 c-----------------------------------------------------------------------
    2 c INCLUDE 'watercap.h'
     1!-----------------------------------------------------------------------
     2! INCLUDE 'watercap.h'
    33
    44      logical watercaptag(ngridmx)

  • trunk/LMDZ.GENERIC/libf/phystd/watercommon_h.F90

    r135 r253  
    66      real, parameter :: To = 273.16
    77      real, parameter :: mH2O = 18.01528   
    8       real, parameter :: RLVTT = 2.5008E+6 ! Latent heat of sublimation (J kg-1)
     8
     9      ! benjamin additions
     10      real, parameter :: RLVTT = 2.257E+6 ! Latent heat of sublimation (J kg-1)
     11      real, parameter :: RLSTT = 2.257E+6 ! 2.591E+6 in reality ! Latent heat of sublimation (J kg-1)
     12      !real, parameter :: RLVTT = 0.0
     13      !real, parameter :: RLSTT = 0.0
     14
     15      real, parameter :: RLFTT = 3.334E+5 ! Latent heat of fusion (J kg-1)
     16      !real, parameter :: RLFTT = 0.0
     17      real, parameter :: rhowater = 1.0E+3 ! mass of water (kg/m^3)
     18      real, parameter :: mx_eau_sol = 150 ! mass of water (kg/m^2)
    919
    1020!     This was the old Martian latent heat version:

  • trunk/LMDZ.GENERIC/libf/phystd/writediagfi.F

    r135 r253  
    66!  0d (pour un scalaire qui ne depend que du temps : ex : la longitude
    77!  solaire)
    8 !  (ou encore 1d, dans le cas de testphys1d, pour sortir une colonne)
     8!  (ou encore 1d, dans le cas de rcm1d, pour sortir une colonne)
    99!  La periode d'ecriture est donnee par
    1010!  "ecritphy " regle dans le fichier de controle de run :  run.def
    … …  
    149149
    150150      if (ngridmx.eq.1) then
    151         ! in testphys1d, for the 1d version of the GCM, iphysiq and irythme
     151        ! in rcm1d, for the 1d version of the GCM, iphysiq and irythme
    152152        ! are undefined; so set them to 1
    153153        iphysiq=1

  • trunk/LMDZ.GENERIC/liste_des_sources_f77

    r135 r253  
    179179libf/filtrez/jacobi.F
    180180libf/filtrez/parafilt.h
    181 libf/grid/fxyprim.h
    182181libf/grid/fxy_new.h
    183182libf/grid/fxy_reg.h
    184183libf/grid/fxy_sin.h
     184libf/grid/fxyprim.h
    185185libf/grid/dimensions.h
    186186libf/grid/bands.h
    187187libf/phystd/aerave.F
     188libf/phystd/aerave_new.F
    188189libf/phystd/blackl.F
    189 libf/phystd/physiq.F
    190 libf/phystd/callcorrk.F
    191 libf/phystd/tracer.h
    192190libf/phystd/callkeys.h
     191libf/phystd/callsedim.F
    193192libf/phystd/comcstfi.h
    194 libf/phystd/cvmgp.F
    195193libf/phystd/comdiurn.h
    196194libf/phystd/comg1d.h
    197195libf/phystd/comgeomfi.h
    198 libf/phystd/solarlong.F
    199196libf/phystd/comsaison.h
     197libf/phystd/comsoil.h
    200198libf/phystd/convadj.F
     199libf/phystd/cpdet.F
     200libf/phystd/cpdet.h
     201libf/phystd/cvmgp.F
    201202libf/phystd/cvmgt.F
    202 libf/phystd/lagrange.F
    203203libf/phystd/datafile.h
    204204libf/phystd/datareadnc.F
    205205libf/phystd/dimphys.h
    206 libf/phystd/tabfi.F
     206libf/phystd/dsolver.F
     207libf/phystd/dtridgl.F
     208libf/phystd/evap.F
    207209libf/phystd/fisice.h
    208 libf/phystd/optcv.F
    209 libf/phystd/phyetat0.F
    210 libf/phystd/planete.h
     210libf/phystd/forceWCfn.F
     211libf/phystd/gases.h
     212libf/phystd/gfluxi.F
     213libf/phystd/gfluxv.F
    211214libf/phystd/inifis.F
    212215libf/phystd/iniorbit.F
    … …  
    214217libf/phystd/initracer.F
    215218libf/phystd/iniwrite.F
     219libf/phystd/iniwrite_spec.F
     220libf/phystd/interp_line.F
    216221libf/phystd/ismax.F
    217222libf/phystd/ismin.F
    218 libf/phystd/physdem1.F
     223libf/phystd/lagrange.F
     224libf/phystd/largescale.F
    219225libf/phystd/mucorr.F
    220226libf/phystd/mufract.F
    221227libf/phystd/multipl.F
     228libf/phystd/newsedim.F
     229libf/phystd/orbite.F
     230libf/phystd/phyetat0.F
     231libf/phystd/physdem1.F
     232libf/phystd/planete.h
     233libf/phystd/profile.F
     234libf/phystd/rcm1d.F
     235libf/phystd/scopyi.F
     236libf/phystd/sfluxi.F
    222237libf/phystd/sfluxv.F
    223 libf/phystd/orbite.F
    224 libf/phystd/profile.F
    225 libf/phystd/scopyi.F
     238libf/phystd/soil.F
     239libf/phystd/soil_settings.F
     240libf/phystd/statto.h
     241libf/phystd/stelang.F
     242libf/phystd/stellarlong.F
     243libf/phystd/surface_nature.F
     244libf/phystd/surfdat.h
    226245libf/phystd/surfini.F
     246libf/phystd/tabfi.F
     247libf/phystd/tpindex.F
     248libf/phystd/tracer.h
    227249libf/phystd/vdifc.F
    228 libf/phystd/soil.F
    229 libf/phystd/solang.F
    230 libf/phystd/statto.h
    231 libf/phystd/surfdat.h
    232250libf/phystd/vdif_cd.F
    233251libf/phystd/vdif_kc.F
    234252libf/phystd/vlz_fi.F
    235253libf/phystd/watercap.h
    236 libf/phystd/comsoil.h
    237254libf/phystd/writediagfi.F
     255libf/phystd/writediagspec.F
    238256libf/phystd/writeg1d.F
    239257libf/phystd/zerophys.F
    240 libf/phystd/callsedim.F
    241 libf/phystd/interp_line.F
    242 libf/phystd/soil_settings.F
    243 libf/phystd/sfluxi.F
    244 libf/phystd/tpindex.F
    245 libf/phystd/gfluxv.F
    246 libf/phystd/gfluxi.F
    247 libf/phystd/dsolver.F
    248 libf/phystd/dtridgl.F
    249 libf/phystd/co2snow.F
    250 libf/phystd/testphys1d.F
    251 libf/phystd/kastprof_fn.F
    252 libf/phystd/newsedim.F
    253 libf/phystd/aerave_new.F
    254 libf/phystd/iniwrite_spec.F
    255 libf/phystd/writediagspec.F
    256 libf/phystd/largescale2.F

  • trunk/LMDZ.GENERIC/liste_des_sources_f90

    r135 r253  
    33libf/bibio/ioipsl_stringop.F90
    44libf/phystd/aeropacity.F90
     5libf/phystd/aeroptproperties.F90
     6libf/phystd/ave_stelspec.F90
     7libf/phystd/calc_cpp3d.F90
     8libf/phystd/calc_cpp_mugaz.F90
     9libf/phystd/calc_rayleigh.F90
     10libf/phystd/callcorrk.F90
     11libf/phystd/condens_co2cloud.F90
     12libf/phystd/def_var.F90
     13libf/phystd/hydrol.F90
     14libf/phystd/iniwritesoil.F90
     15libf/phystd/interpolateH2H2.F90
     16libf/phystd/kastprof_fn.F90
     17libf/phystd/mkstat.F90
     18libf/phystd/moistadj.F90
     19libf/phystd/N2broadprof_fn.F90
     20libf/phystd/newtrelax.F90
     21libf/phystd/optci.F90
     22libf/phystd/optcv.F90
     23libf/phystd/physiq.F90
     24libf/phystd/radcommon_h.F90
     25libf/phystd/radinc_h.F90
     26libf/phystd/rain.F90
     27libf/phystd/setspi.F90
     28libf/phystd/setspv.F90
     29libf/phystd/simpleprof_fn.F90
     30libf/phystd/stokes.F90
    531libf/phystd/suaer_corrk.F90
    6 libf/phystd/radcommon_h.F90
    7 libf/phystd/condens_co2cloud.F90
    832libf/phystd/sugas_corrk.F90
    9 libf/phystd/def_var.F90
    10 libf/phystd/rain.F90
    11 libf/phystd/radinc_h.F90
    12 libf/phystd/optci.F90
    13 libf/phystd/mkstat.F90
    14 libf/phystd/setspi.F90
    15 libf/phystd/aeroptproperties.F90
    16 libf/phystd/stokes.F90
    17 libf/phystd/setspv.F90
     33libf/phystd/su_gases.F90
     34libf/phystd/su_watercycle.F90
     35libf/phystd/totalcloudfrac.F90
    1836libf/phystd/watercommon_h.F90
     37libf/phystd/watersat.F90
     38libf/phystd/watersat_grad.F90
     39libf/phystd/writediagsoil.F90
    1940libf/phystd/wstats.F90
    20 libf/phystd/iniwritesoil.F90
    21 libf/phystd/writediagsoil.F90
    22 libf/phystd/su_watercycle.F90
    23 libf/phystd/aeroptpropertiesJBnew.F90
    24 libf/phystd/watersat_2.F90
    25 libf/phystd/moistadj.F90
    26 libf/phystd/watersat_grad.F90
    27 libf/phystd/ave_stelspec.F90
    28 libf/phystd/calc_rayleigh.F90
    29 libf/phystd/calc_cpp3d.F90

  • trunk/LMDZ.GENERIC/makefile

    r135 r253  
    77# Repertoires :
    88
    9 GCM     = /u/rwlmd/LMDZ.GENERIC
     9GCM     = /san/home/rdword/gcm/LMDZ.GENERIC
    1010MACHINE = sun4
    1111LIBF    = $(GCM)/libf
    1212LIBO    = $(LIBOGCM)/$(MACHINE)
    13 LOCAL_DIR=/d2/rwlmd/earthmars_test/earth/one_d
     13LOCAL_DIR=/san/home/rdword/gcm/earlymars/0711/wet/1bar_hiVres
    1414BIBIO    = $(LIBF)/bibio
    1515FILTRE   = filtre
    … …  
    113113$(LIBO)/libbibio.a :  $(LIBO)/libbibio.a(mxm.o)
    114114
     115$(LIBO)/libbibio.a :  $(LIBO)/libbibio.a(mxv.o)
     116
    115117$(LIBO)/libbibio.a :  $(LIBO)/libbibio.a(mxva.o)
    116 
    117 $(LIBO)/libbibio.a :  $(LIBO)/libbibio.a(mxv.o)
    118118
    119119$(LIBO)/libbibio.a :  $(LIBO)/libbibio.a(mywrite.o)
    … …  
    228228        cd $(GCM)
    229229
     230$(LIBO)/libbibio.a(mxv.o) : $(LIBF)/bibio/mxv.F
     231        cd $(LOCAL_DIR); \
     232        $(COMPILE) $(LIBF)/bibio/mxv.F ; \
     233        $(AR) r $(LIBO)/libbibio.a mxv.o ; $(RM) mxv.o ; \
     234        cd $(GCM)
     235
    230236$(LIBO)/libbibio.a(mxva.o) : $(LIBF)/bibio/mxva.F
    231237        cd $(LOCAL_DIR); \
    232238        $(COMPILE) $(LIBF)/bibio/mxva.F ; \
    233239        $(AR) r $(LIBO)/libbibio.a mxva.o ; $(RM) mxva.o ; \
    234         cd $(GCM)
    235 
    236 $(LIBO)/libbibio.a(mxv.o) : $(LIBF)/bibio/mxv.F
    237         cd $(LOCAL_DIR); \
    238         $(COMPILE) $(LIBF)/bibio/mxv.F ; \
    239         $(AR) r $(LIBO)/libbibio.a mxv.o ; $(RM) mxv.o ; \
    240240        cd $(GCM)
    241241
    … …  
    345345$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(addit.o)
    346346
     347$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(adv_h2o.o)
     348
    347349$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(advect.o)
    348350
    349 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(adv_h2o.o)
    350 
    351351$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(amont.o)
    352352
    … …  
    355355$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(bernoui.o)
    356356
     357$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(caldyn.o)
     358
    357359$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(caldyn0.o)
    358360
    359 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(caldyn.o)
    360 
    361361$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(calfis.o)
    362362
    … …  
    383383$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(diverg.o)
    384384
     385$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(diverg_gam.o)
     386
    385387$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(divergf.o)
    386388
    387 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(diverg_gam.o)
    388 
    389389$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(divergst.o)
    390390
     391$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(divgrad.o)
     392
     393$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(divgrad2.o)
     394
    391395$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(divgrad22.o)
    392396
    393 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(divgrad2.o)
    394 
    395 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(divgrad.o)
    396 
    397397$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(dteta1.o)
    398398
    … …  
    429429$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(geopot.o)
    430430
     431$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gr_dyn_fi.o)
     432
     433$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gr_fi_dyn.o)
     434
     435$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gr_int_dyn.o)
     436
     437$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gr_u_scal.o)
     438
     439$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gr_v_scal.o)
     440
    431441$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(grad.o)
    432442
     443$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gradiv.o)
     444
    433445$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gradiv2.o)
    434446
    435 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gradiv.o)
    436 
    437 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gr_dyn_fi.o)
    438 
    439 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gr_fi_dyn.o)
    440 
    441447$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(grid_atob.o)
    442448
     449$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(grid_noro.o)
     450
    443451$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(grid_noro1.o)
    444452
    445 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(grid_noro.o)
    446 
    447 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gr_int_dyn.o)
    448 
    449453$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(groupe.o)
    450454
    451455$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(groupeun.o)
    452456
    453 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gr_u_scal.o)
    454 
    455 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(gr_v_scal.o)
    456 
    457457$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(heavyside.o)
    458458
     459$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(ini_archive.o)
     460
    459461$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(iniadvtrac.o)
    460462
    461 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(ini_archive.o)
    462 
    463463$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(iniav.o)
    464464
    … …  
    489489$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(laplacien_rotgam.o)
    490490
     491$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(lect_start_archive.o)
     492
    491493$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(lectflux.o)
    492494
    493 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(lect_start_archive.o)
    494 
    495495$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(massbar.o)
    496496
    … …  
    525525$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(rotat.o)
    526526
     527$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(rotat_nfil.o)
     528
    527529$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(rotatf.o)
    528530
    529 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(rotat_nfil.o)
    530 
    531531$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(rotatst.o)
    532532
    533533$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(scal_wind.o)
    534534
     535$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(sortvarc.o)
     536
    535537$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(sortvarc0.o)
    536 
    537 $(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(sortvarc.o)
    538538
    539539$(LIBO)/libdyn3d.a :  $(LIBO)/libdyn3d.a(spline.o)
    … …  
    594594        cd $(GCM)
    595595
     596$(LIBO)/libdyn3d.a(adv_h2o.o) : $(LIBF)/dyn3d/adv_h2o.F \
     597$(LIBF)/grid/dimensions.h \
     598$(LIBF)/dyn3d/paramet.h \
     599$(LIBF)/dyn3d/logic.h \
     600$(LIBF)/dyn3d/comvert.h
     601        cd $(LOCAL_DIR); \
     602        $(COMPILE) $(LIBF)/dyn3d/adv_h2o.F ; \
     603        $(AR) r $(LIBO)/libdyn3d.a adv_h2o.o ; $(RM) adv_h2o.o ; \
     604        cd $(GCM)
     605
    596606$(LIBO)/libdyn3d.a(advect.o) : $(LIBF)/dyn3d/advect.F \
    597607$(LIBF)/grid/dimensions.h \
    … …  
    607617        cd $(GCM)
    608618
    609 $(LIBO)/libdyn3d.a(adv_h2o.o) : $(LIBF)/dyn3d/adv_h2o.F \
     619$(LIBO)/libdyn3d.a(amont.o) : $(LIBF)/dyn3d/amont.F \
    610620$(LIBF)/grid/dimensions.h \
    611621$(LIBF)/dyn3d/paramet.h \
    … …  
    613623$(LIBF)/dyn3d/comvert.h
    614624        cd $(LOCAL_DIR); \
    615         $(COMPILE) $(LIBF)/dyn3d/adv_h2o.F ; \
    616         $(AR) r $(LIBO)/libdyn3d.a adv_h2o.o ; $(RM) adv_h2o.o ; \
    617         cd $(GCM)
    618 
    619 $(LIBO)/libdyn3d.a(amont.o) : $(LIBF)/dyn3d/amont.F \
    620 $(LIBF)/grid/dimensions.h \
    621 $(LIBF)/dyn3d/paramet.h \
    622 $(LIBF)/dyn3d/logic.h \
    623 $(LIBF)/dyn3d/comvert.h
    624         cd $(LOCAL_DIR); \
    625625        $(COMPILE) $(LIBF)/dyn3d/amont.F ; \
    626626        $(AR) r $(LIBO)/libdyn3d.a amont.o ; $(RM) amont.o ; \
    … …  
    649649        cd $(GCM)
    650650
     651$(LIBO)/libdyn3d.a(caldyn.o) : $(LIBF)/dyn3d/caldyn.F \
     652$(LIBF)/grid/dimensions.h \
     653$(LIBF)/dyn3d/paramet.h \
     654$(LIBF)/dyn3d/comconst.h \
     655$(LIBF)/dyn3d/comvert.h \
     656$(LIBF)/dyn3d/comgeom.h
     657        cd $(LOCAL_DIR); \
     658        $(COMPILE) $(LIBF)/dyn3d/caldyn.F ; \
     659        $(AR) r $(LIBO)/libdyn3d.a caldyn.o ; $(RM) caldyn.o ; \
     660        cd $(GCM)
     661
    651662$(LIBO)/libdyn3d.a(caldyn0.o) : $(LIBF)/dyn3d/caldyn0.F \
    652663$(LIBF)/grid/dimensions.h \
    … …  
    658669        $(COMPILE) $(LIBF)/dyn3d/caldyn0.F ; \
    659670        $(AR) r $(LIBO)/libdyn3d.a caldyn0.o ; $(RM) caldyn0.o ; \
    660         cd $(GCM)
    661 
    662 $(LIBO)/libdyn3d.a(caldyn.o) : $(LIBF)/dyn3d/caldyn.F \
    663 $(LIBF)/grid/dimensions.h \
    664 $(LIBF)/dyn3d/paramet.h \
    665 $(LIBF)/dyn3d/comconst.h \
    666 $(LIBF)/dyn3d/comvert.h \
    667 $(LIBF)/dyn3d/comgeom.h
    668         cd $(LOCAL_DIR); \
    669         $(COMPILE) $(LIBF)/dyn3d/caldyn.F ; \
    670         $(AR) r $(LIBO)/libdyn3d.a caldyn.o ; $(RM) caldyn.o ; \
    671671        cd $(GCM)
    672672
    … …  
    778778$(LIBF)/dyn3d/comvert.h \
    779779$(LIBF)/dyn3d/comconst.h \
    780 $(LIBF)/dyn3d/logic.h
    781         cd $(LOCAL_DIR); \
    782         $(COMPILE) $(LIBF)/dyn3d/disvert.F ; \
     780$(LIBF)/dyn3d/logic.h \
     781$(LIBF)/phystd/callkeys.h \
     782$(LIBO)/libbibio.a(ioipsl_getincom.o)
     783        cd $(LOCAL_DIR); \
     784        $(COMPILE90) $(LIBF)/dyn3d/disvert.F ; \
    783785        $(AR) r $(LIBO)/libdyn3d.a disvert.o ; $(RM) disvert.o ; \
    784786        cd $(GCM)
    … …  
    793795        cd $(GCM)
    794796
     797$(LIBO)/libdyn3d.a(diverg_gam.o) : $(LIBF)/dyn3d/diverg_gam.F \
     798$(LIBF)/grid/dimensions.h \
     799$(LIBF)/dyn3d/paramet.h \
     800$(LIBF)/dyn3d/comgeom.h
     801        cd $(LOCAL_DIR); \
     802        $(COMPILE) $(LIBF)/dyn3d/diverg_gam.F ; \
     803        $(AR) r $(LIBO)/libdyn3d.a diverg_gam.o ; $(RM) diverg_gam.o ; \
     804        cd $(GCM)
     805
    795806$(LIBO)/libdyn3d.a(divergf.o) : $(LIBF)/dyn3d/divergf.F \
    796807$(LIBF)/grid/dimensions.h \
    … …  
    802813        cd $(GCM)
    803814
    804 $(LIBO)/libdyn3d.a(diverg_gam.o) : $(LIBF)/dyn3d/diverg_gam.F \
    805 $(LIBF)/grid/dimensions.h \
    806 $(LIBF)/dyn3d/paramet.h \
    807 $(LIBF)/dyn3d/comgeom.h
    808         cd $(LOCAL_DIR); \
    809         $(COMPILE) $(LIBF)/dyn3d/diverg_gam.F ; \
    810         $(AR) r $(LIBO)/libdyn3d.a diverg_gam.o ; $(RM) diverg_gam.o ; \
    811         cd $(GCM)
    812 
    813815$(LIBO)/libdyn3d.a(divergst.o) : $(LIBF)/dyn3d/divergst.F \
    814816$(LIBF)/grid/dimensions.h \
    … …  
    818820        $(COMPILE) $(LIBF)/dyn3d/divergst.F ; \
    819821        $(AR) r $(LIBO)/libdyn3d.a divergst.o ; $(RM) divergst.o ; \
    820         cd $(GCM)
    821 
    822 $(LIBO)/libdyn3d.a(divgrad22.o) : $(LIBF)/dyn3d/divgrad22.F \
    823 $(LIBF)/grid/dimensions.h \
    824 $(LIBF)/dyn3d/paramet.h \
    825 $(LIBF)/dyn3d/comdissipn.h
    826         cd $(LOCAL_DIR); \
    827         $(COMPILE) $(LIBF)/dyn3d/divgrad22.F ; \
    828         $(AR) r $(LIBO)/libdyn3d.a divgrad22.o ; $(RM) divgrad22.o ; \
    829         cd $(GCM)
    830 
    831 $(LIBO)/libdyn3d.a(divgrad2.o) : $(LIBF)/dyn3d/divgrad2.F \
    832 $(LIBF)/grid/dimensions.h \
    833 $(LIBF)/dyn3d/paramet.h \
    834 $(LIBF)/dyn3d/comgeom2.h \
    835 $(LIBF)/dyn3d/comdissipn.h
    836         cd $(LOCAL_DIR); \
    837         $(COMPILE) $(LIBF)/dyn3d/divgrad2.F ; \
    838         $(AR) r $(LIBO)/libdyn3d.a divgrad2.o ; $(RM) divgrad2.o ; \
    839822        cd $(GCM)
    840823
    … …  
    848831        $(COMPILE) $(LIBF)/dyn3d/divgrad.F ; \
    849832        $(AR) r $(LIBO)/libdyn3d.a divgrad.o ; $(RM) divgrad.o ; \
     833        cd $(GCM)
     834
     835$(LIBO)/libdyn3d.a(divgrad2.o) : $(LIBF)/dyn3d/divgrad2.F \
     836$(LIBF)/grid/dimensions.h \
     837$(LIBF)/dyn3d/paramet.h \
     838$(LIBF)/dyn3d/comgeom2.h \
     839$(LIBF)/dyn3d/comdissipn.h
     840        cd $(LOCAL_DIR); \
     841        $(COMPILE) $(LIBF)/dyn3d/divgrad2.F ; \
     842        $(AR) r $(LIBO)/libdyn3d.a divgrad2.o ; $(RM) divgrad2.o ; \
     843        cd $(GCM)
     844
     845$(LIBO)/libdyn3d.a(divgrad22.o) : $(LIBF)/dyn3d/divgrad22.F \
     846$(LIBF)/grid/dimensions.h \
     847$(LIBF)/dyn3d/paramet.h \
     848$(LIBF)/dyn3d/comdissipn.h
     849        cd $(LOCAL_DIR); \
     850        $(COMPILE) $(LIBF)/dyn3d/divgrad22.F ; \
     851        $(AR) r $(LIBO)/libdyn3d.a divgrad22.o ; $(RM) divgrad22.o ; \
    850852        cd $(GCM)
    851853
    … …  
    10251027        cd $(GCM)
    10261028
     1029$(LIBO)/libdyn3d.a(gr_dyn_fi.o) : $(LIBF)/dyn3d/gr_dyn_fi.F
     1030        cd $(LOCAL_DIR); \
     1031        $(COMPILE) $(LIBF)/dyn3d/gr_dyn_fi.F ; \
     1032        $(AR) r $(LIBO)/libdyn3d.a gr_dyn_fi.o ; $(RM) gr_dyn_fi.o ; \
     1033        cd $(GCM)
     1034
     1035$(LIBO)/libdyn3d.a(gr_fi_dyn.o) : $(LIBF)/dyn3d/gr_fi_dyn.F
     1036        cd $(LOCAL_DIR); \
     1037        $(COMPILE) $(LIBF)/dyn3d/gr_fi_dyn.F ; \
     1038        $(AR) r $(LIBO)/libdyn3d.a gr_fi_dyn.o ; $(RM) gr_fi_dyn.o ; \
     1039        cd $(GCM)
     1040
     1041$(LIBO)/libdyn3d.a(gr_int_dyn.o) : $(LIBF)/dyn3d/gr_int_dyn.F
     1042        cd $(LOCAL_DIR); \
     1043        $(COMPILE) $(LIBF)/dyn3d/gr_int_dyn.F ; \
     1044        $(AR) r $(LIBO)/libdyn3d.a gr_int_dyn.o ; $(RM) gr_int_dyn.o ; \
     1045        cd $(GCM)
     1046
     1047$(LIBO)/libdyn3d.a(gr_u_scal.o) : $(LIBF)/dyn3d/gr_u_scal.F \
     1048$(LIBF)/grid/dimensions.h \
     1049$(LIBF)/dyn3d/paramet.h \
     1050$(LIBF)/dyn3d/comgeom.h
     1051        cd $(LOCAL_DIR); \
     1052        $(COMPILE) $(LIBF)/dyn3d/gr_u_scal.F ; \
     1053        $(AR) r $(LIBO)/libdyn3d.a gr_u_scal.o ; $(RM) gr_u_scal.o ; \
     1054        cd $(GCM)
     1055
     1056$(LIBO)/libdyn3d.a(gr_v_scal.o) : $(LIBF)/dyn3d/gr_v_scal.F \
     1057$(LIBF)/grid/dimensions.h \
     1058$(LIBF)/dyn3d/paramet.h \
     1059$(LIBF)/dyn3d/comgeom.h
     1060        cd $(LOCAL_DIR); \
     1061        $(COMPILE) $(LIBF)/dyn3d/gr_v_scal.F ; \
     1062        $(AR) r $(LIBO)/libdyn3d.a gr_v_scal.o ; $(RM) gr_v_scal.o ; \
     1063        cd $(GCM)
     1064
    10271065$(LIBO)/libdyn3d.a(grad.o) : $(LIBF)/dyn3d/grad.F \
    10281066$(LIBF)/grid/dimensions.h \
    … …  
    10331071        cd $(GCM)
    10341072
     1073$(LIBO)/libdyn3d.a(gradiv.o) : $(LIBF)/dyn3d/gradiv.F \
     1074$(LIBF)/grid/dimensions.h \
     1075$(LIBF)/dyn3d/paramet.h \
     1076$(LIBF)/dyn3d/comdissipn.h \
     1077$(LIBF)/dyn3d/logic.h
     1078        cd $(LOCAL_DIR); \
     1079        $(COMPILE) $(LIBF)/dyn3d/gradiv.F ; \
     1080        $(AR) r $(LIBO)/libdyn3d.a gradiv.o ; $(RM) gradiv.o ; \
     1081        cd $(GCM)
     1082
    10351083$(LIBO)/libdyn3d.a(gradiv2.o) : $(LIBF)/dyn3d/gradiv2.F \
    10361084$(LIBF)/grid/dimensions.h \
    … …  
    10431091        cd $(GCM)
    10441092
    1045 $(LIBO)/libdyn3d.a(gradiv.o) : $(LIBF)/dyn3d/gradiv.F \
    1046 $(LIBF)/grid/dimensions.h \
    1047 $(LIBF)/dyn3d/paramet.h \
    1048 $(LIBF)/dyn3d/comdissipn.h \
    1049 $(LIBF)/dyn3d/logic.h
    1050         cd $(LOCAL_DIR); \
    1051         $(COMPILE) $(LIBF)/dyn3d/gradiv.F ; \
    1052         $(AR) r $(LIBO)/libdyn3d.a gradiv.o ; $(RM) gradiv.o ; \
    1053         cd $(GCM)
    1054 
    1055 $(LIBO)/libdyn3d.a(gr_dyn_fi.o) : $(LIBF)/dyn3d/gr_dyn_fi.F
    1056         cd $(LOCAL_DIR); \
    1057         $(COMPILE) $(LIBF)/dyn3d/gr_dyn_fi.F ; \
    1058         $(AR) r $(LIBO)/libdyn3d.a gr_dyn_fi.o ; $(RM) gr_dyn_fi.o ; \
    1059         cd $(GCM)
    1060 
    1061 $(LIBO)/libdyn3d.a(gr_fi_dyn.o) : $(LIBF)/dyn3d/gr_fi_dyn.F
    1062         cd $(LOCAL_DIR); \
    1063         $(COMPILE) $(LIBF)/dyn3d/gr_fi_dyn.F ; \
    1064         $(AR) r $(LIBO)/libdyn3d.a gr_fi_dyn.o ; $(RM) gr_fi_dyn.o ; \
    1065         cd $(GCM)
    1066 
    10671093$(LIBO)/libdyn3d.a(grid_atob.o) : $(LIBF)/dyn3d/grid_atob.F
    10681094        cd $(LOCAL_DIR); \
    … …  
    10711097        cd $(GCM)
    10721098
     1099$(LIBO)/libdyn3d.a(grid_noro.o) : $(LIBF)/dyn3d/grid_noro.F \
     1100$(LIBF)/grid/dimensions.h
     1101        cd $(LOCAL_DIR); \
     1102        $(COMPILE) $(LIBF)/dyn3d/grid_noro.F ; \
     1103        $(AR) r $(LIBO)/libdyn3d.a grid_noro.o ; $(RM) grid_noro.o ; \
     1104        cd $(GCM)
     1105
    10731106$(LIBO)/libdyn3d.a(grid_noro1.o) : $(LIBF)/dyn3d/grid_noro1.F \
    10741107$(LIBF)/grid/dimensions.h \
    … …  
    10791112        cd $(GCM)
    10801113
    1081 $(LIBO)/libdyn3d.a(grid_noro.o) : $(LIBF)/dyn3d/grid_noro.F \
    1082 $(LIBF)/grid/dimensions.h
    1083         cd $(LOCAL_DIR); \
    1084         $(COMPILE) $(LIBF)/dyn3d/grid_noro.F ; \
    1085         $(AR) r $(LIBO)/libdyn3d.a grid_noro.o ; $(RM) grid_noro.o ; \
    1086         cd $(GCM)
    1087 
    1088 $(LIBO)/libdyn3d.a(gr_int_dyn.o) : $(LIBF)/dyn3d/gr_int_dyn.F
    1089         cd $(LOCAL_DIR); \
    1090         $(COMPILE) $(LIBF)/dyn3d/gr_int_dyn.F ; \
    1091         $(AR) r $(LIBO)/libdyn3d.a gr_int_dyn.o ; $(RM) gr_int_dyn.o ; \
    1092         cd $(GCM)
    1093 
    10941114$(LIBO)/libdyn3d.a(groupe.o) : $(LIBF)/dyn3d/groupe.F \
    10951115$(LIBF)/grid/dimensions.h \
    … …  
    11131133        cd $(GCM)
    11141134
    1115 $(LIBO)/libdyn3d.a(gr_u_scal.o) : $(LIBF)/dyn3d/gr_u_scal.F \
    1116 $(LIBF)/grid/dimensions.h \
    1117 $(LIBF)/dyn3d/paramet.h \
    1118 $(LIBF)/dyn3d/comgeom.h
    1119         cd $(LOCAL_DIR); \
    1120         $(COMPILE) $(LIBF)/dyn3d/gr_u_scal.F ; \
    1121         $(AR) r $(LIBO)/libdyn3d.a gr_u_scal.o ; $(RM) gr_u_scal.o ; \
    1122         cd $(GCM)
    1123 
    1124 $(LIBO)/libdyn3d.a(gr_v_scal.o) : $(LIBF)/dyn3d/gr_v_scal.F \
    1125 $(LIBF)/grid/dimensions.h \
    1126 $(LIBF)/dyn3d/paramet.h \
    1127 $(LIBF)/dyn3d/comgeom.h
    1128         cd $(LOCAL_DIR); \
    1129         $(COMPILE) $(LIBF)/dyn3d/gr_v_scal.F ; \
    1130         $(AR) r $(LIBO)/libdyn3d.a gr_v_scal.o ; $(RM) gr_v_scal.o ; \
    1131         cd $(GCM)
    1132 
    11331135$(LIBO)/libdyn3d.a(heavyside.o) : $(LIBF)/dyn3d/heavyside.F
    11341136        cd $(LOCAL_DIR); \
    11351137        $(COMPILE) $(LIBF)/dyn3d/heavyside.F ; \
    11361138        $(AR) r $(LIBO)/libdyn3d.a heavyside.o ; $(RM) heavyside.o ; \
    1137         cd $(GCM)
    1138 
    1139 $(LIBO)/libdyn3d.a(iniadvtrac.o) : $(LIBF)/dyn3d/iniadvtrac.F \
    1140 $(LIBF)/grid/dimensions.h \
    1141 $(LIBF)/dyn3d/advtrac.h \
    1142 $(LIBF)/dyn3d/control.h
    1143         cd $(LOCAL_DIR); \
    1144         $(COMPILE) $(LIBF)/dyn3d/iniadvtrac.F ; \
    1145         $(AR) r $(LIBO)/libdyn3d.a iniadvtrac.o ; $(RM) iniadvtrac.o ; \
    11461139        cd $(GCM)
    11471140
    … …  
    11651158        cd $(GCM)
    11661159
     1160$(LIBO)/libdyn3d.a(iniadvtrac.o) : $(LIBF)/dyn3d/iniadvtrac.F \
     1161$(LIBF)/grid/dimensions.h \
     1162$(LIBF)/dyn3d/advtrac.h \
     1163$(LIBF)/dyn3d/control.h
     1164        cd $(LOCAL_DIR); \
     1165        $(COMPILE) $(LIBF)/dyn3d/iniadvtrac.F ; \
     1166        $(AR) r $(LIBO)/libdyn3d.a iniadvtrac.o ; $(RM) iniadvtrac.o ; \
     1167        cd $(GCM)
     1168
    11671169$(LIBO)/libdyn3d.a(iniav.o) : $(LIBF)/dyn3d/iniav.F \
    11681170$(LIBF)/grid/dimensions.h \
    … …  
    12921294        $(COMPILE) $(LIBF)/dyn3d/laplacien_rotgam.F ; \
    12931295        $(AR) r $(LIBO)/libdyn3d.a laplacien_rotgam.o ; $(RM) laplacien_rotgam.o ; \
    1294         cd $(GCM)
    1295 
    1296 $(LIBO)/libdyn3d.a(lectflux.o) : $(LIBF)/dyn3d/lectflux.F \
    1297 $(LIBF)/grid/dimensions.h \
    1298 $(LIBF)/dyn3d/paramet.h \
    1299 $(LIBF)/dyn3d/comvert.h \
    1300 $(LIBF)/dyn3d/comconst.h \
    1301 $(LIBF)/dyn3d/comgeom2.h \
    1302 $(LIBF)/dyn3d/tracstoke.h
    1303         cd $(LOCAL_DIR); \
    1304         $(COMPILE) $(LIBF)/dyn3d/lectflux.F ; \
    1305         $(AR) r $(LIBO)/libdyn3d.a lectflux.o ; $(RM) lectflux.o ; \
    13061296        cd $(GCM)
    13071297
    … …  
    13291319        cd $(GCM)
    13301320
     1321$(LIBO)/libdyn3d.a(lectflux.o) : $(LIBF)/dyn3d/lectflux.F \
     1322$(LIBF)/grid/dimensions.h \
     1323$(LIBF)/dyn3d/paramet.h \
     1324$(LIBF)/dyn3d/comvert.h \
     1325$(LIBF)/dyn3d/comconst.h \
     1326$(LIBF)/dyn3d/comgeom2.h \
     1327$(LIBF)/dyn3d/tracstoke.h
     1328        cd $(LOCAL_DIR); \
     1329        $(COMPILE) $(LIBF)/dyn3d/lectflux.F ; \
     1330        $(AR) r $(LIBO)/libdyn3d.a lectflux.o ; $(RM) lectflux.o ; \
     1331        cd $(GCM)
     1332
    13311333$(LIBO)/libdyn3d.a(massbar.o) : $(LIBF)/dyn3d/massbar.F \
    13321334$(LIBF)/grid/dimensions.h \
    … …  
    14691471        cd $(GCM)
    14701472
     1473$(LIBO)/libdyn3d.a(rotat_nfil.o) : $(LIBF)/dyn3d/rotat_nfil.F \
     1474$(LIBF)/grid/dimensions.h \
     1475$(LIBF)/dyn3d/paramet.h \
     1476$(LIBF)/dyn3d/comgeom.h
     1477        cd $(LOCAL_DIR); \
     1478        $(COMPILE) $(LIBF)/dyn3d/rotat_nfil.F ; \
     1479        $(AR) r $(LIBO)/libdyn3d.a rotat_nfil.o ; $(RM) rotat_nfil.o ; \
     1480        cd $(GCM)
     1481
    14711482$(LIBO)/libdyn3d.a(rotatf.o) : $(LIBF)/dyn3d/rotatf.F \
    14721483$(LIBF)/grid/dimensions.h \
    … …  
    14781489        cd $(GCM)
    14791490
    1480 $(LIBO)/libdyn3d.a(rotat_nfil.o) : $(LIBF)/dyn3d/rotat_nfil.F \
    1481 $(LIBF)/grid/dimensions.h \
    1482 $(LIBF)/dyn3d/paramet.h \
    1483 $(LIBF)/dyn3d/comgeom.h
    1484         cd $(LOCAL_DIR); \
    1485         $(COMPILE) $(LIBF)/dyn3d/rotat_nfil.F ; \
    1486         $(AR) r $(LIBO)/libdyn3d.a rotat_nfil.o ; $(RM) rotat_nfil.o ; \
    1487         cd $(GCM)
    1488 
    14891491$(LIBO)/libdyn3d.a(rotatst.o) : $(LIBF)/dyn3d/rotatst.F \
    14901492$(LIBF)/grid/dimensions.h \
    … …  
    15041506        cd $(GCM)
    15051507
    1506 $(LIBO)/libdyn3d.a(sortvarc0.o) : $(LIBF)/dyn3d/sortvarc0.F \
     1508$(LIBO)/libdyn3d.a(sortvarc.o) : $(LIBF)/dyn3d/sortvarc.F \
    15071509$(LIBF)/grid/dimensions.h \
    15081510$(LIBF)/dyn3d/paramet.h \
    … …  
    15141516$(LIBF)/dyn3d/temps.h
    15151517        cd $(LOCAL_DIR); \
    1516         $(COMPILE) $(LIBF)/dyn3d/sortvarc0.F ; \
    1517         $(AR) r $(LIBO)/libdyn3d.a sortvarc0.o ; $(RM) sortvarc0.o ; \
    1518         cd $(GCM)
    1519 
    1520 $(LIBO)/libdyn3d.a(sortvarc.o) : $(LIBF)/dyn3d/sortvarc.F \
     1518        $(COMPILE) $(LIBF)/dyn3d/sortvarc.F ; \
     1519        $(AR) r $(LIBO)/libdyn3d.a sortvarc.o ; $(RM) sortvarc.o ; \
     1520        cd $(GCM)
     1521
     1522$(LIBO)/libdyn3d.a(sortvarc0.o) : $(LIBF)/dyn3d/sortvarc0.F \
    15211523$(LIBF)/grid/dimensions.h \
    15221524$(LIBF)/dyn3d/paramet.h \
    … …  
    15281530$(LIBF)/dyn3d/temps.h
    15291531        cd $(LOCAL_DIR); \
    1530         $(COMPILE) $(LIBF)/dyn3d/sortvarc.F ; \
    1531         $(AR) r $(LIBO)/libdyn3d.a sortvarc.o ; $(RM) sortvarc.o ; \
     1532        $(COMPILE) $(LIBF)/dyn3d/sortvarc0.F ; \
     1533        $(AR) r $(LIBO)/libdyn3d.a sortvarc0.o ; $(RM) sortvarc0.o ; \
    15321534        cd $(GCM)
    15331535
    … …  
    17931795$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(blackl.o)
    17941796
     1797$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(callsedim.o)
     1798
     1799$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(convadj.o)
     1800
     1801$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(cpdet.o)
     1802
     1803$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(cvmgp.o)
     1804
     1805$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(cvmgt.o)
     1806
     1807$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(datareadnc.o)
     1808
     1809$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(dsolver.o)
     1810
     1811$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(dtridgl.o)
     1812
     1813$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(evap.o)
     1814
     1815$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(forceWCfn.o)
     1816
     1817$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(gfluxi.o)
     1818
     1819$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(gfluxv.o)
     1820
     1821$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(inifis.o)
     1822
     1823$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(iniorbit.o)
     1824
     1825$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(inistats.o)
     1826
     1827$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(initracer.o)
     1828
     1829$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(iniwrite.o)
     1830
     1831$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(iniwrite_spec.o)
     1832
     1833$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(interp_line.o)
     1834
     1835$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(ismax.o)
     1836
     1837$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(ismin.o)
     1838
     1839$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(lagrange.o)
     1840
     1841$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(largescale.o)
     1842
     1843$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(mucorr.o)
     1844
     1845$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(mufract.o)
     1846
     1847$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(multipl.o)
     1848
     1849$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(newsedim.o)
     1850
     1851$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(orbite.o)
     1852
     1853$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(phyetat0.o)
     1854
     1855$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(physdem1.o)
     1856
     1857$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(profile.o)
     1858
     1859$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(rcm1d.o)
     1860
     1861$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(scopyi.o)
     1862
     1863$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(sfluxi.o)
     1864
     1865$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(sfluxv.o)
     1866
     1867$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(soil.o)
     1868
     1869$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(soil_settings.o)
     1870
     1871$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(stelang.o)
     1872
     1873$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(stellarlong.o)
     1874
     1875$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(surface_nature.o)
     1876
     1877$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(surfini.o)
     1878
     1879$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(tabfi.o)
     1880
     1881$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(tpindex.o)
     1882
     1883$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(vdif_cd.o)
     1884
     1885$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(vdif_kc.o)
     1886
     1887$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(vdifc.o)
     1888
     1889$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(vlz_fi.o)
     1890
     1891$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(writediagfi.o)
     1892
     1893$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(writediagspec.o)
     1894
     1895$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(writeg1d.o)
     1896
     1897$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(zerophys.o)
     1898
     1899$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(N2broadprof_fn.o)
     1900
     1901$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(aeropacity.o)
     1902
     1903$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(aeroptproperties.o)
     1904
     1905$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(ave_stelspec.o)
     1906
     1907$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(calc_cpp3d.o)
     1908
     1909$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(calc_cpp_mugaz.o)
     1910
     1911$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(calc_rayleigh.o)
     1912
    17951913$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(callcorrk.o)
    17961914
    1797 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(callsedim.o)
    1798 
    1799 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(co2snow.o)
    1800 
    1801 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(convadj.o)
    1802 
    1803 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(cvmgp.o)
    1804 
    1805 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(cvmgt.o)
    1806 
    1807 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(datareadnc.o)
    1808 
    1809 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(dsolver.o)
    1810 
    1811 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(dtridgl.o)
    1812 
    1813 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(gfluxi.o)
    1814 
    1815 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(gfluxv.o)
    1816 
    1817 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(inifis.o)
    1818 
    1819 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(iniorbit.o)
    1820 
    1821 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(inistats.o)
    1822 
    1823 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(initracer.o)
    1824 
    1825 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(iniwrite.o)
    1826 
    1827 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(iniwrite_spec.o)
    1828 
    1829 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(interp_line.o)
    1830 
    1831 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(ismax.o)
    1832 
    1833 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(ismin.o)
     1915$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(condens_co2cloud.o)
     1916
     1917$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(def_var.o)
     1918
     1919$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(hydrol.o)
     1920
     1921$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(iniwritesoil.o)
     1922
     1923$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(interpolateH2H2.o)
    18341924
    18351925$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(kastprof_fn.o)
    18361926
    1837 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(lagrange.o)
    1838 
    1839 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(largescale2.o)
    1840 
    1841 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(mucorr.o)
    1842 
    1843 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(mufract.o)
    1844 
    1845 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(multipl.o)
    1846 
    1847 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(newsedim.o)
     1927$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(mkstat.o)
     1928
     1929$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(moistadj.o)
     1930
     1931$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(newtrelax.o)
     1932
     1933$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(optci.o)
    18481934
    18491935$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(optcv.o)
    18501936
    1851 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(orbite.o)
    1852 
    1853 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(phyetat0.o)
    1854 
    1855 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(physdem1.o)
    1856 
    18571937$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(physiq.o)
    18581938
    1859 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(profile.o)
    1860 
    1861 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(scopyi.o)
    1862 
    1863 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(sfluxi.o)
    1864 
    1865 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(sfluxv.o)
    1866 
    1867 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(soil.o)
    1868 
    1869 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(soil_settings.o)
    1870 
    1871 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(solang.o)
    1872 
    1873 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(solarlong.o)
    1874 
    1875 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(surfini.o)
    1876 
    1877 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(tabfi.o)
    1878 
    1879 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(tpindex.o)
    1880 
    1881 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(vdif_cd.o)
    1882 
    1883 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(vdifc.o)
    1884 
    1885 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(vdif_kc.o)
    1886 
    1887 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(vlz_fi.o)
    1888 
    1889 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(writediagfi.o)
    1890 
    1891 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(writediagspec.o)
    1892 
    1893 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(writeg1d.o)
    1894 
    1895 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(zerophys.o)
    1896 
    1897 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(aeropacity.o)
    1898 
    1899 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(aeroptproperties.o)
    1900 
    1901 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(aeroptpropertiesJBnew.o)
    1902 
    1903 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(ave_stelspec.o)
    1904 
    1905 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(calc_cpp3d.o)
    1906 
    1907 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(calc_rayleigh.o)
    1908 
    1909 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(condens_co2cloud.o)
    1910 
    1911 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(def_var.o)
    1912 
    1913 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(iniwritesoil.o)
    1914 
    1915 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(mkstat.o)
    1916 
    1917 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(moistadj.o)
    1918 
    1919 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(optci.o)
    1920 
    19211939$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(radcommon_h.o)
    19221940
    … …  
    19291947$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(setspv.o)
    19301948
     1949$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(simpleprof_fn.o)
     1950
    19311951$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(stokes.o)
    19321952
     1953$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(su_gases.o)
     1954
     1955$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(su_watercycle.o)
     1956
    19331957$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(suaer_corrk.o)
    19341958
    19351959$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(sugas_corrk.o)
    19361960
    1937 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(su_watercycle.o)
     1961$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(totalcloudfrac.o)
    19381962
    19391963$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(watercommon_h.o)
    19401964
    1941 $(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(watersat_2.o)
     1965$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(watersat.o)
    19421966
    19431967$(LIBO)/libphystd.a :  $(LIBO)/libphystd.a(watersat_grad.o)
    … …  
    19701994        cd $(GCM)
    19711995
    1972 $(LIBO)/libphystd.a(callcorrk.o) : $(LIBF)/phystd/callcorrk.F \
    1973 $(LIBF)/phystd/dimphys.h \
    1974 $(LIBF)/phystd/datafile.h \
    1975 $(LIBF)/phystd/comcstfi.h \
    1976 $(LIBF)/phystd/callkeys.h \
    1977 $(LIBF)/phystd/tracer.h \
    1978 $(LIBO)/libphystd.a(radinc_h.o) \
    1979 $(LIBO)/libphystd.a(radcommon_h.o) \
    1980 $(LIBO)/libbibio.a(ioipsl_getincom.o)
    1981         cd $(LOCAL_DIR); \
    1982         $(COMPILE90) $(LIBF)/phystd/callcorrk.F ; \
    1983         $(AR) r $(LIBO)/libphystd.a callcorrk.o ; $(RM) callcorrk.o ; \
    1984         cd $(GCM)
    1985 
    19861996$(LIBO)/libphystd.a(callsedim.o) : $(LIBF)/phystd/callsedim.F \
    19871997$(LIBF)/grid/dimensions.h \
    … …  
    19962006        cd $(GCM)
    19972007
    1998 $(LIBO)/libphystd.a(co2snow.o) : $(LIBF)/phystd/co2snow.F \
    1999 $(LIBF)/grid/dimensions.h \
    2000 $(LIBF)/phystd/dimphys.h \
    2001 $(LIBF)/phystd/comcstfi.h \
    2002 $(LIBF)/phystd/surfdat.h \
    2003 $(LIBF)/phystd/callkeys.h
    2004         cd $(LOCAL_DIR); \
    2005         $(COMPILE) $(LIBF)/phystd/co2snow.F ; \
    2006         $(AR) r $(LIBO)/libphystd.a co2snow.o ; $(RM) co2snow.o ; \
    2007         cd $(GCM)
    2008 
    20092008$(LIBO)/libphystd.a(convadj.o) : $(LIBF)/phystd/convadj.F \
    20102009$(LIBF)/grid/dimensions.h \
    … …  
    20162015        $(COMPILE) $(LIBF)/phystd/convadj.F ; \
    20172016        $(AR) r $(LIBO)/libphystd.a convadj.o ; $(RM) convadj.o ; \
     2017        cd $(GCM)
     2018
     2019$(LIBO)/libphystd.a(cpdet.o) : $(LIBF)/phystd/cpdet.F \
     2020$(LIBF)/phystd/cpdet.h \
     2021$(LIBF)/phystd/cpdet.h \
     2022$(LIBF)/phystd/cpdet.h \
     2023$(LIBF)/phystd/cpdet.h
     2024        cd $(LOCAL_DIR); \
     2025        $(COMPILE) $(LIBF)/phystd/cpdet.F ; \
     2026        $(AR) r $(LIBO)/libphystd.a cpdet.o ; $(RM) cpdet.o ; \
    20182027        cd $(GCM)
    20192028
    … …  
    20552064        cd $(GCM)
    20562065
     2066$(LIBO)/libphystd.a(evap.o) : $(LIBF)/phystd/evap.F \
     2067$(LIBF)/grid/dimensions.h \
     2068$(LIBF)/phystd/dimphys.h \
     2069$(LIBF)/phystd/tracer.h \
     2070$(LIBF)/phystd/comcstfi.h \
     2071$(LIBO)/libphystd.a(watercommon_h.o)
     2072        cd $(LOCAL_DIR); \
     2073        $(COMPILE90) $(LIBF)/phystd/evap.F ; \
     2074        $(AR) r $(LIBO)/libphystd.a evap.o ; $(RM) evap.o ; \
     2075        cd $(GCM)
     2076
     2077$(LIBO)/libphystd.a(forceWCfn.o) : $(LIBF)/phystd/forceWCfn.F \
     2078$(LIBF)/grid/dimensions.h \
     2079$(LIBF)/phystd/dimphys.h \
     2080$(LIBF)/phystd/comcstfi.h \
     2081$(LIBF)/phystd/tracer.h
     2082        cd $(LOCAL_DIR); \
     2083        $(COMPILE) $(LIBF)/phystd/forceWCfn.F ; \
     2084        $(AR) r $(LIBO)/libphystd.a forceWCfn.o ; $(RM) forceWCfn.o ; \
     2085        cd $(GCM)
     2086
    20572087$(LIBO)/libphystd.a(gfluxi.o) : $(LIBF)/phystd/gfluxi.F \
    20582088$(LIBF)/phystd/comcstfi.h \
    … …  
    20812111$(LIBF)/phystd/callkeys.h \
    20822112$(LIBF)/phystd/surfdat.h \
     2113$(LIBO)/libphystd.a(radinc_h.o) \
    20832114$(LIBO)/libbibio.a(ioipsl_getincom.o)
    20842115        cd $(LOCAL_DIR); \
    … …  
    21782209        cd $(GCM)
    21792210
    2180 $(LIBO)/libphystd.a(kastprof_fn.o) : $(LIBF)/phystd/kastprof_fn.F \
    2181 $(LIBF)/grid/dimensions.h \
    2182 $(LIBF)/phystd/dimphys.h \
    2183 $(LIBF)/phystd/comcstfi.h
    2184         cd $(LOCAL_DIR); \
    2185         $(COMPILE) $(LIBF)/phystd/kastprof_fn.F ; \
    2186         $(AR) r $(LIBO)/libphystd.a kastprof_fn.o ; $(RM) kastprof_fn.o ; \
    2187         cd $(GCM)
    2188 
    21892211$(LIBO)/libphystd.a(lagrange.o) : $(LIBF)/phystd/lagrange.F
    21902212        cd $(LOCAL_DIR); \
    … …  
    21932215        cd $(GCM)
    21942216
    2195 $(LIBO)/libphystd.a(largescale2.o) : $(LIBF)/phystd/largescale2.F \
     2217$(LIBO)/libphystd.a(largescale.o) : $(LIBF)/phystd/largescale.F \
    21962218$(LIBF)/grid/dimensions.h \
    21972219$(LIBF)/phystd/dimphys.h \
    … …  
    22022224$(LIBO)/libphystd.a(watercommon_h.o)
    22032225        cd $(LOCAL_DIR); \
    2204         $(COMPILE90) $(LIBF)/phystd/largescale2.F ; \
    2205         $(AR) r $(LIBO)/libphystd.a largescale2.o ; $(RM) largescale2.o ; \
     2226        $(COMPILE90) $(LIBF)/phystd/largescale.F ; \
     2227        $(AR) r $(LIBO)/libphystd.a largescale.o ; $(RM) largescale.o ; \
    22062228        cd $(GCM)
    22072229
    … …  
    22312253        $(COMPILE) $(LIBF)/phystd/newsedim.F ; \
    22322254        $(AR) r $(LIBO)/libphystd.a newsedim.o ; $(RM) newsedim.o ; \
    2233         cd $(GCM)
    2234 
    2235 $(LIBO)/libphystd.a(optcv.o) : $(LIBF)/phystd/optcv.F \
    2236 $(LIBF)/phystd/comcstfi.h \
    2237 $(LIBO)/libphystd.a(radinc_h.o) \
    2238 $(LIBO)/libphystd.a(radcommon_h.o)
    2239         cd $(LOCAL_DIR); \
    2240         $(COMPILE90) $(LIBF)/phystd/optcv.F ; \
    2241         $(AR) r $(LIBO)/libphystd.a optcv.o ; $(RM) optcv.o ; \
    22422255        cd $(GCM)
    22432256
    … …  
    22892302        cd $(GCM)
    22902303
    2291 $(LIBO)/libphystd.a(physiq.o) : $(LIBF)/phystd/physiq.F \
     2304$(LIBO)/libphystd.a(profile.o) : $(LIBF)/phystd/profile.F \
     2305$(LIBO)/libbibio.a(ioipsl_getincom.o)
     2306        cd $(LOCAL_DIR); \
     2307        $(COMPILE90) $(LIBF)/phystd/profile.F ; \
     2308        $(AR) r $(LIBO)/libphystd.a profile.o ; $(RM) profile.o ; \
     2309        cd $(GCM)
     2310
     2311$(LIBO)/libphystd.a(rcm1d.o) : $(LIBF)/phystd/rcm1d.F \
     2312$(LIBF)/grid/dimensions.h \
     2313$(LIBF)/phystd/dimphys.h \
     2314$(LIBF)/phystd/comgeomfi.h \
     2315$(LIBF)/phystd/surfdat.h \
     2316$(LIBF)/phystd/comsoil.h \
     2317$(LIBF)/phystd/comdiurn.h \
     2318$(LIBF)/phystd/callkeys.h \
     2319$(LIBF)/phystd/comcstfi.h \
     2320$(LIBF)/phystd/planete.h \
     2321$(LIBF)/phystd/comsaison.h \
     2322$(LIBF)/dyn3d/control.h \
     2323$(LIBF)/dyn3d/comvert.h \
     2324$(LIBF)/phystd/comg1d.h \
     2325$(LIBF)/phystd/watercap.h \
     2326$(LIBF)/phystd/fisice.h \
     2327$(LIBF)/dyn3d/logic.h \
     2328$(LIBF)/dyn3d/advtrac.h \
     2329$(LIBO)/libphystd.a(radcommon_h.o) \
     2330$(LIBO)/libbibio.a(ioipsl_getincom.o)
     2331        cd $(LOCAL_DIR); \
     2332        $(COMPILE90) $(LIBF)/phystd/rcm1d.F ; \
     2333        $(AR) r $(LIBO)/libphystd.a rcm1d.o ; $(RM) rcm1d.o ; \
     2334        cd $(GCM)
     2335
     2336$(LIBO)/libphystd.a(scopyi.o) : $(LIBF)/phystd/scopyi.F
     2337        cd $(LOCAL_DIR); \
     2338        $(COMPILE) $(LIBF)/phystd/scopyi.F ; \
     2339        $(AR) r $(LIBO)/libphystd.a scopyi.o ; $(RM) scopyi.o ; \
     2340        cd $(GCM)
     2341
     2342$(LIBO)/libphystd.a(sfluxi.o) : $(LIBF)/phystd/sfluxi.F \
     2343$(LIBF)/phystd/comcstfi.h \
     2344$(LIBO)/libphystd.a(radinc_h.o) \
     2345$(LIBO)/libphystd.a(radcommon_h.o)
     2346        cd $(LOCAL_DIR); \
     2347        $(COMPILE90) $(LIBF)/phystd/sfluxi.F ; \
     2348        $(AR) r $(LIBO)/libphystd.a sfluxi.o ; $(RM) sfluxi.o ; \
     2349        cd $(GCM)
     2350
     2351$(LIBO)/libphystd.a(sfluxv.o) : $(LIBF)/phystd/sfluxv.F \
     2352$(LIBO)/libphystd.a(radinc_h.o) \
     2353$(LIBO)/libphystd.a(radcommon_h.o)
     2354        cd $(LOCAL_DIR); \
     2355        $(COMPILE90) $(LIBF)/phystd/sfluxv.F ; \
     2356        $(AR) r $(LIBO)/libphystd.a sfluxv.o ; $(RM) sfluxv.o ; \
     2357        cd $(GCM)
     2358
     2359$(LIBO)/libphystd.a(soil.o) : $(LIBF)/phystd/soil.F \
     2360$(LIBF)/grid/dimensions.h \
     2361$(LIBF)/phystd/dimphys.h \
     2362$(LIBF)/phystd/comsoil.h
     2363        cd $(LOCAL_DIR); \
     2364        $(COMPILE) $(LIBF)/phystd/soil.F ; \
     2365        $(AR) r $(LIBO)/libphystd.a soil.o ; $(RM) soil.o ; \
     2366        cd $(GCM)
     2367
     2368$(LIBO)/libphystd.a(soil_settings.o) : $(LIBF)/phystd/soil_settings.F \
     2369$(LIBF)/grid/dimensions.h \
     2370$(LIBF)/phystd/dimphys.h \
     2371$(LIBF)/phystd/comsoil.h
     2372        cd $(LOCAL_DIR); \
     2373        $(COMPILE) $(LIBF)/phystd/soil_settings.F ; \
     2374        $(AR) r $(LIBO)/libphystd.a soil_settings.o ; $(RM) soil_settings.o ; \
     2375        cd $(GCM)
     2376
     2377$(LIBO)/libphystd.a(stelang.o) : $(LIBF)/phystd/stelang.F
     2378        cd $(LOCAL_DIR); \
     2379        $(COMPILE) $(LIBF)/phystd/stelang.F ; \
     2380        $(AR) r $(LIBO)/libphystd.a stelang.o ; $(RM) stelang.o ; \
     2381        cd $(GCM)
     2382
     2383$(LIBO)/libphystd.a(stellarlong.o) : $(LIBF)/phystd/stellarlong.F \
     2384$(LIBF)/phystd/planete.h \
     2385$(LIBF)/phystd/comcstfi.h
     2386        cd $(LOCAL_DIR); \
     2387        $(COMPILE) $(LIBF)/phystd/stellarlong.F ; \
     2388        $(AR) r $(LIBO)/libphystd.a stellarlong.o ; $(RM) stellarlong.o ; \
     2389        cd $(GCM)
     2390
     2391$(LIBO)/libphystd.a(surface_nature.o) : $(LIBF)/phystd/surface_nature.F \
     2392$(LIBF)/grid/dimensions.h \
     2393$(LIBF)/phystd/dimphys.h \
     2394$(LIBF)/phystd/comcstfi.h \
     2395$(LIBF)/phystd/callkeys.h \
     2396$(LIBF)/phystd/tracer.h \
     2397$(LIBF)/phystd/fisice.h \
     2398$(LIBF)/phystd/comgeomfi.h \
     2399$(LIBF)/phystd/surfdat.h \
     2400$(LIBF)/phystd/comsoil.h
     2401        cd $(LOCAL_DIR); \
     2402        $(COMPILE) $(LIBF)/phystd/surface_nature.F ; \
     2403        $(AR) r $(LIBO)/libphystd.a surface_nature.o ; $(RM) surface_nature.o ; \
     2404        cd $(GCM)
     2405
     2406$(LIBO)/libphystd.a(surfini.o) : $(LIBF)/phystd/surfini.F \
     2407$(LIBF)/grid/dimensions.h \
     2408$(LIBF)/phystd/dimphys.h \
     2409$(LIBF)/phystd/surfdat.h \
     2410$(LIBF)/phystd/callkeys.h \
     2411$(LIBF)/phystd/tracer.h
     2412        cd $(LOCAL_DIR); \
     2413        $(COMPILE) $(LIBF)/phystd/surfini.F ; \
     2414        $(AR) r $(LIBO)/libphystd.a surfini.o ; $(RM) surfini.o ; \
     2415        cd $(GCM)
     2416
     2417$(LIBO)/libphystd.a(tabfi.o) : $(LIBF)/phystd/tabfi.F \
     2418$(LIBF)/grid/dimensions.h \
     2419$(LIBF)/phystd/dimphys.h \
     2420$(LIBF)/phystd/comcstfi.h \
     2421$(LIBF)/phystd/comgeomfi.h \
     2422$(LIBF)/phystd/planete.h \
     2423$(LIBF)/phystd/surfdat.h \
     2424$(LIBF)/phystd/comsoil.h \
     2425$(LIBF)/phystd/callkeys.h \
     2426$(LIBO)/libbibio.a(ioipsl_getincom.o) \
     2427$(LIBO)/libphystd.a(radcommon_h.o)
     2428        cd $(LOCAL_DIR); \
     2429        $(COMPILE90) $(LIBF)/phystd/tabfi.F ; \
     2430        $(AR) r $(LIBO)/libphystd.a tabfi.o ; $(RM) tabfi.o ; \
     2431        cd $(GCM)
     2432
     2433$(LIBO)/libphystd.a(tpindex.o) : $(LIBF)/phystd/tpindex.F \
     2434$(LIBO)/libphystd.a(radinc_h.o)
     2435        cd $(LOCAL_DIR); \
     2436        $(COMPILE90) $(LIBF)/phystd/tpindex.F ; \
     2437        $(AR) r $(LIBO)/libphystd.a tpindex.o ; $(RM) tpindex.o ; \
     2438        cd $(GCM)
     2439
     2440$(LIBO)/libphystd.a(vdif_cd.o) : $(LIBF)/phystd/vdif_cd.F
     2441        cd $(LOCAL_DIR); \
     2442        $(COMPILE) $(LIBF)/phystd/vdif_cd.F ; \
     2443        $(AR) r $(LIBO)/libphystd.a vdif_cd.o ; $(RM) vdif_cd.o ; \
     2444        cd $(GCM)
     2445
     2446$(LIBO)/libphystd.a(vdif_kc.o) : $(LIBF)/phystd/vdif_kc.F \
     2447$(LIBF)/grid/dimensions.h \
     2448$(LIBF)/phystd/dimphys.h
     2449        cd $(LOCAL_DIR); \
     2450        $(COMPILE) $(LIBF)/phystd/vdif_kc.F ; \
     2451        $(AR) r $(LIBO)/libphystd.a vdif_kc.o ; $(RM) vdif_kc.o ; \
     2452        cd $(GCM)
     2453
     2454$(LIBO)/libphystd.a(vdifc.o) : $(LIBF)/phystd/vdifc.F \
     2455$(LIBF)/grid/dimensions.h \
     2456$(LIBF)/phystd/dimphys.h \
     2457$(LIBF)/phystd/comcstfi.h \
     2458$(LIBF)/phystd/callkeys.h \
     2459$(LIBF)/phystd/surfdat.h \
     2460$(LIBF)/phystd/comgeomfi.h \
     2461$(LIBF)/phystd/tracer.h \
     2462$(LIBF)/phystd/watercap.h \
     2463$(LIBO)/libphystd.a(watercommon_h.o)
     2464        cd $(LOCAL_DIR); \
     2465        $(COMPILE90) $(LIBF)/phystd/vdifc.F ; \
     2466        $(AR) r $(LIBO)/libphystd.a vdifc.o ; $(RM) vdifc.o ; \
     2467        cd $(GCM)
     2468
     2469$(LIBO)/libphystd.a(vlz_fi.o) : $(LIBF)/phystd/vlz_fi.F \
     2470$(LIBF)/grid/dimensions.h \
     2471$(LIBF)/phystd/dimphys.h
     2472        cd $(LOCAL_DIR); \
     2473        $(COMPILE) $(LIBF)/phystd/vlz_fi.F ; \
     2474        $(AR) r $(LIBO)/libphystd.a vlz_fi.o ; $(RM) vlz_fi.o ; \
     2475        cd $(GCM)
     2476
     2477$(LIBO)/libphystd.a(writediagfi.o) : $(LIBF)/phystd/writediagfi.F \
     2478$(LIBF)/grid/dimensions.h \
     2479$(LIBF)/phystd/dimphys.h \
     2480$(LIBF)/dyn3d/paramet.h \
     2481$(LIBF)/dyn3d/control.h \
     2482$(LIBF)/dyn3d/comvert.h \
     2483$(LIBF)/dyn3d/comgeom.h \
     2484$(LIBF)/dyn3d/description.h \
     2485$(LIBF)/dyn3d/temps.h \
     2486$(LIBF)/phystd/surfdat.h
     2487        cd $(LOCAL_DIR); \
     2488        $(COMPILE) $(LIBF)/phystd/writediagfi.F ; \
     2489        $(AR) r $(LIBO)/libphystd.a writediagfi.o ; $(RM) writediagfi.o ; \
     2490        cd $(GCM)
     2491
     2492$(LIBO)/libphystd.a(writediagspec.o) : $(LIBF)/phystd/writediagspec.F \
     2493$(LIBF)/grid/dimensions.h \
     2494$(LIBF)/phystd/dimphys.h \
     2495$(LIBF)/dyn3d/paramet.h \
     2496$(LIBF)/dyn3d/control.h \
     2497$(LIBF)/dyn3d/comvert.h \
     2498$(LIBF)/dyn3d/comgeom.h \
     2499$(LIBF)/dyn3d/description.h \
     2500$(LIBF)/dyn3d/temps.h \
     2501$(LIBF)/phystd/surfdat.h \
     2502$(LIBO)/libphystd.a(radinc_h.o)
     2503        cd $(LOCAL_DIR); \
     2504        $(COMPILE90) $(LIBF)/phystd/writediagspec.F ; \
     2505        $(AR) r $(LIBO)/libphystd.a writediagspec.o ; $(RM) writediagspec.o ; \
     2506        cd $(GCM)
     2507
     2508$(LIBO)/libphystd.a(writeg1d.o) : $(LIBF)/phystd/writeg1d.F \
     2509$(LIBF)/phystd/comg1d.h \
     2510$(LIBF)/phystd/comg1d.h \
     2511$(LIBF)/phystd/comcstfi.h
     2512        cd $(LOCAL_DIR); \
     2513        $(COMPILE) $(LIBF)/phystd/writeg1d.F ; \
     2514        $(AR) r $(LIBO)/libphystd.a writeg1d.o ; $(RM) writeg1d.o ; \
     2515        cd $(GCM)
     2516
     2517$(LIBO)/libphystd.a(zerophys.o) : $(LIBF)/phystd/zerophys.F
     2518        cd $(LOCAL_DIR); \
     2519        $(COMPILE) $(LIBF)/phystd/zerophys.F ; \
     2520        $(AR) r $(LIBO)/libphystd.a zerophys.o ; $(RM) zerophys.o ; \
     2521        cd $(GCM)
     2522
     2523$(LIBO)/libphystd.a(N2broadprof_fn.o) : $(LIBF)/phystd/N2broadprof_fn.F90 \
     2524$(LIBF)/grid/dimensions.h \
     2525$(LIBF)/phystd/dimphys.h \
     2526$(LIBF)/phystd/comcstfi.h \
     2527$(LIBF)/phystd/callkeys.h
     2528        cd $(LOCAL_DIR); \
     2529        $(COMPILE) $(LIBF)/phystd/N2broadprof_fn.F90 ; \
     2530        $(AR) r $(LIBO)/libphystd.a N2broadprof_fn.o ; $(RM) N2broadprof_fn.o ; \
     2531        cd $(GCM)
     2532
     2533$(LIBO)/libphystd.a(aeropacity.o) : $(LIBF)/phystd/aeropacity.F90 \
     2534$(LIBF)/grid/dimensions.h \
     2535$(LIBF)/phystd/dimphys.h \
     2536$(LIBF)/phystd/callkeys.h \
     2537$(LIBF)/phystd/comcstfi.h \
     2538$(LIBF)/phystd/comgeomfi.h \
     2539$(LIBF)/phystd/tracer.h \
     2540$(LIBO)/libphystd.a(radinc_h.o)
     2541        cd $(LOCAL_DIR); \
     2542        $(COMPTRU90) $(LIBF)/phystd/aeropacity.F90 ; \
     2543        $(AR) r $(LIBO)/libphystd.a aeropacity.o ; $(RM) aeropacity.o ; \
     2544        cd $(GCM)
     2545
     2546$(LIBO)/libphystd.a(aeroptproperties.o) : $(LIBF)/phystd/aeroptproperties.F90 \
     2547$(LIBF)/grid/dimensions.h \
     2548$(LIBF)/phystd/dimphys.h \
     2549$(LIBF)/phystd/callkeys.h \
     2550$(LIBO)/libphystd.a(radinc_h.o) \
     2551$(LIBO)/libphystd.a(radcommon_h.o) \
     2552$(LIBO)/libphystd.a(radcommon_h.o) \
     2553$(LIBO)/libphystd.a(radcommon_h.o)
     2554        cd $(LOCAL_DIR); \
     2555        $(COMPTRU90) $(LIBF)/phystd/aeroptproperties.F90 ; \
     2556        $(AR) r $(LIBO)/libphystd.a aeroptproperties.o ; $(RM) aeroptproperties.o ; \
     2557        cd $(GCM)
     2558
     2559$(LIBO)/libphystd.a(ave_stelspec.o) : $(LIBF)/phystd/ave_stelspec.F90 \
     2560$(LIBF)/phystd/datafile.h \
     2561$(LIBF)/phystd/callkeys.h \
     2562$(LIBO)/libphystd.a(radinc_h.o) \
     2563$(LIBO)/libphystd.a(radcommon_h.o)
     2564        cd $(LOCAL_DIR); \
     2565        $(COMPTRU90) $(LIBF)/phystd/ave_stelspec.F90 ; \
     2566        $(AR) r $(LIBO)/libphystd.a ave_stelspec.o ; $(RM) ave_stelspec.o ; \
     2567        cd $(GCM)
     2568
     2569$(LIBO)/libphystd.a(calc_cpp3d.o) : $(LIBF)/phystd/calc_cpp3d.F90 \
     2570$(LIBF)/phystd/comcstfi.h \
     2571$(LIBF)/phystd/callkeys.h \
     2572$(LIBF)/phystd/cpdet.h
     2573        cd $(LOCAL_DIR); \
     2574        $(COMPILE) $(LIBF)/phystd/calc_cpp3d.F90 ; \
     2575        $(AR) r $(LIBO)/libphystd.a calc_cpp3d.o ; $(RM) calc_cpp3d.o ; \
     2576        cd $(GCM)
     2577
     2578$(LIBO)/libphystd.a(calc_cpp_mugaz.o) : $(LIBF)/phystd/calc_cpp_mugaz.F90 \
     2579$(LIBF)/phystd/comcstfi.h \
     2580$(LIBF)/phystd/callkeys.h \
     2581$(LIBF)/phystd/gases.h
     2582        cd $(LOCAL_DIR); \
     2583        $(COMPILE) $(LIBF)/phystd/calc_cpp_mugaz.F90 ; \
     2584        $(AR) r $(LIBO)/libphystd.a calc_cpp_mugaz.o ; $(RM) calc_cpp_mugaz.o ; \
     2585        cd $(GCM)
     2586
     2587$(LIBO)/libphystd.a(calc_rayleigh.o) : $(LIBF)/phystd/calc_rayleigh.F90 \
     2588$(LIBF)/phystd/comcstfi.h \
     2589$(LIBF)/phystd/callkeys.h \
     2590$(LIBF)/phystd/gases.h \
     2591$(LIBO)/libphystd.a(radinc_h.o) \
     2592$(LIBO)/libphystd.a(radcommon_h.o)
     2593        cd $(LOCAL_DIR); \
     2594        $(COMPTRU90) $(LIBF)/phystd/calc_rayleigh.F90 ; \
     2595        $(AR) r $(LIBO)/libphystd.a calc_rayleigh.o ; $(RM) calc_rayleigh.o ; \
     2596        cd $(GCM)
     2597
     2598$(LIBO)/libphystd.a(callcorrk.o) : $(LIBF)/phystd/callcorrk.F90 \
     2599$(LIBF)/phystd/dimphys.h \
     2600$(LIBF)/phystd/datafile.h \
     2601$(LIBF)/phystd/comcstfi.h \
     2602$(LIBF)/phystd/callkeys.h \
     2603$(LIBF)/phystd/tracer.h \
     2604$(LIBO)/libphystd.a(radinc_h.o) \
     2605$(LIBO)/libphystd.a(radcommon_h.o) \
     2606$(LIBO)/libphystd.a(watercommon_h.o) \
     2607$(LIBO)/libbibio.a(ioipsl_getincom.o)
     2608        cd $(LOCAL_DIR); \
     2609        $(COMPTRU90) $(LIBF)/phystd/callcorrk.F90 ; \
     2610        $(AR) r $(LIBO)/libphystd.a callcorrk.o ; $(RM) callcorrk.o ; \
     2611        cd $(GCM)
     2612
     2613$(LIBO)/libphystd.a(condens_co2cloud.o) : $(LIBF)/phystd/condens_co2cloud.F90 \
     2614$(LIBF)/grid/dimensions.h \
     2615$(LIBF)/phystd/dimphys.h \
     2616$(LIBF)/phystd/comcstfi.h \
     2617$(LIBF)/phystd/surfdat.h \
     2618$(LIBF)/phystd/comgeomfi.h \
     2619$(LIBF)/dyn3d/comvert.h \
     2620$(LIBF)/phystd/callkeys.h \
     2621$(LIBF)/phystd/tracer.h \
     2622$(LIBF)/phystd/gases.h \
     2623$(LIBF)/phystd/callkeys.h \
     2624$(LIBO)/libphystd.a(radinc_h.o)
     2625        cd $(LOCAL_DIR); \
     2626        $(COMPTRU90) $(LIBF)/phystd/condens_co2cloud.F90 ; \
     2627        $(AR) r $(LIBO)/libphystd.a condens_co2cloud.o ; $(RM) condens_co2cloud.o ; \
     2628        cd $(GCM)
     2629
     2630$(LIBO)/libphystd.a(def_var.o) : $(LIBF)/phystd/def_var.F90
     2631        cd $(LOCAL_DIR); \
     2632        $(COMPILE) $(LIBF)/phystd/def_var.F90 ; \
     2633        $(AR) r $(LIBO)/libphystd.a def_var.o ; $(RM) def_var.o ; \
     2634        cd $(GCM)
     2635
     2636$(LIBO)/libphystd.a(hydrol.o) : $(LIBF)/phystd/hydrol.F90 \
     2637$(LIBF)/grid/dimensions.h \
     2638$(LIBF)/phystd/dimphys.h \
     2639$(LIBF)/phystd/comcstfi.h \
     2640$(LIBF)/phystd/callkeys.h \
     2641$(LIBF)/phystd/tracer.h \
     2642$(LIBF)/phystd/fisice.h \
     2643$(LIBF)/phystd/comgeomfi.h \
     2644$(LIBF)/phystd/comdiurn.h \
     2645$(LIBF)/phystd/surfdat.h \
     2646$(LIBO)/libphystd.a(watercommon_h.o)
     2647        cd $(LOCAL_DIR); \
     2648        $(COMPTRU90) $(LIBF)/phystd/hydrol.F90 ; \
     2649        $(AR) r $(LIBO)/libphystd.a hydrol.o ; $(RM) hydrol.o ; \
     2650        cd $(GCM)
     2651
     2652$(LIBO)/libphystd.a(iniwritesoil.o) : $(LIBF)/phystd/iniwritesoil.F90 \
     2653$(LIBF)/grid/dimensions.h \
     2654$(LIBF)/phystd/dimphys.h \
     2655$(LIBF)/dyn3d/paramet.h \
     2656$(LIBF)/phystd/comcstfi.h \
     2657$(LIBF)/dyn3d/comgeom.h \
     2658$(LIBF)/phystd/comsoil.h
     2659        cd $(LOCAL_DIR); \
     2660        $(COMPILE) $(LIBF)/phystd/iniwritesoil.F90 ; \
     2661        $(AR) r $(LIBO)/libphystd.a iniwritesoil.o ; $(RM) iniwritesoil.o ; \
     2662        cd $(GCM)
     2663
     2664$(LIBO)/libphystd.a(interpolateH2H2.o) : $(LIBF)/phystd/interpolateH2H2.F90 \
     2665$(LIBF)/phystd/datafile.h
     2666        cd $(LOCAL_DIR); \
     2667        $(COMPILE) $(LIBF)/phystd/interpolateH2H2.F90 ; \
     2668        $(AR) r $(LIBO)/libphystd.a interpolateH2H2.o ; $(RM) interpolateH2H2.o ; \
     2669        cd $(GCM)
     2670
     2671$(LIBO)/libphystd.a(kastprof_fn.o) : $(LIBF)/phystd/kastprof_fn.F90 \
     2672$(LIBF)/grid/dimensions.h \
     2673$(LIBF)/phystd/dimphys.h \
     2674$(LIBF)/phystd/comcstfi.h \
     2675$(LIBF)/phystd/callkeys.h
     2676        cd $(LOCAL_DIR); \
     2677        $(COMPILE) $(LIBF)/phystd/kastprof_fn.F90 ; \
     2678        $(AR) r $(LIBO)/libphystd.a kastprof_fn.o ; $(RM) kastprof_fn.o ; \
     2679        cd $(GCM)
     2680
     2681$(LIBO)/libphystd.a(mkstat.o) : $(LIBF)/phystd/mkstat.F90 \
     2682$(LIBF)/grid/dimensions.h \
     2683$(LIBF)/phystd/statto.h
     2684        cd $(LOCAL_DIR); \
     2685        $(COMPILE) $(LIBF)/phystd/mkstat.F90 ; \
     2686        $(AR) r $(LIBO)/libphystd.a mkstat.o ; $(RM) mkstat.o ; \
     2687        cd $(GCM)
     2688
     2689$(LIBO)/libphystd.a(moistadj.o) : $(LIBF)/phystd/moistadj.F90 \
     2690$(LIBF)/grid/dimensions.h \
     2691$(LIBF)/phystd/dimphys.h \
     2692$(LIBF)/phystd/tracer.h \
     2693$(LIBF)/phystd/comcstfi.h \
     2694$(LIBO)/libphystd.a(watercommon_h.o)
     2695        cd $(LOCAL_DIR); \
     2696        $(COMPTRU90) $(LIBF)/phystd/moistadj.F90 ; \
     2697        $(AR) r $(LIBO)/libphystd.a moistadj.o ; $(RM) moistadj.o ; \
     2698        cd $(GCM)
     2699
     2700$(LIBO)/libphystd.a(newtrelax.o) : $(LIBF)/phystd/newtrelax.F90 \
     2701$(LIBF)/grid/dimensions.h \
     2702$(LIBF)/phystd/dimphys.h \
     2703$(LIBF)/phystd/comcstfi.h \
     2704$(LIBF)/phystd/callkeys.h
     2705        cd $(LOCAL_DIR); \
     2706        $(COMPILE) $(LIBF)/phystd/newtrelax.F90 ; \
     2707        $(AR) r $(LIBO)/libphystd.a newtrelax.o ; $(RM) newtrelax.o ; \
     2708        cd $(GCM)
     2709
     2710$(LIBO)/libphystd.a(optci.o) : $(LIBF)/phystd/optci.F90 \
     2711$(LIBF)/phystd/comcstfi.h \
     2712$(LIBF)/phystd/callkeys.h \
     2713$(LIBF)/phystd/gases.h \
     2714$(LIBO)/libphystd.a(radinc_h.o) \
     2715$(LIBO)/libphystd.a(radcommon_h.o)
     2716        cd $(LOCAL_DIR); \
     2717        $(COMPTRU90) $(LIBF)/phystd/optci.F90 ; \
     2718        $(AR) r $(LIBO)/libphystd.a optci.o ; $(RM) optci.o ; \
     2719        cd $(GCM)
     2720
     2721$(LIBO)/libphystd.a(optcv.o) : $(LIBF)/phystd/optcv.F90 \
     2722$(LIBF)/phystd/callkeys.h \
     2723$(LIBF)/phystd/comcstfi.h \
     2724$(LIBF)/phystd/gases.h \
     2725$(LIBO)/libphystd.a(radinc_h.o) \
     2726$(LIBO)/libphystd.a(radcommon_h.o)
     2727        cd $(LOCAL_DIR); \
     2728        $(COMPTRU90) $(LIBF)/phystd/optcv.F90 ; \
     2729        $(AR) r $(LIBO)/libphystd.a optcv.o ; $(RM) optcv.o ; \
     2730        cd $(GCM)
     2731
     2732$(LIBO)/libphystd.a(physiq.o) : $(LIBF)/phystd/physiq.F90 \
    22922733$(LIBF)/grid/dimensions.h \
    22932734$(LIBF)/phystd/dimphys.h \
    … …  
    23042745$(LIBF)/phystd/tracer.h \
    23052746$(LIBF)/phystd/watercap.h \
    2306 $(LIBF)/phystd/fisice.h \
     2747$(LIBO)/libphystd.a(radinc_h.o) \
     2748$(LIBO)/libphystd.a(watercommon_h.o)
     2749        cd $(LOCAL_DIR); \
     2750        $(COMPTRU90) $(LIBF)/phystd/physiq.F90 ; \
     2751        $(AR) r $(LIBO)/libphystd.a physiq.o ; $(RM) physiq.o ; \
     2752        cd $(GCM)
     2753
     2754$(LIBO)/libphystd.a(radcommon_h.o) : $(LIBF)/phystd/radcommon_h.F90 \
    23072755$(LIBO)/libphystd.a(radinc_h.o)
    23082756        cd $(LOCAL_DIR); \
    2309         $(COMPILE90) $(LIBF)/phystd/physiq.F ; \
    2310         $(AR) r $(LIBO)/libphystd.a physiq.o ; $(RM) physiq.o ; \
    2311         cd $(GCM)
    2312 
    2313 $(LIBO)/libphystd.a(profile.o) : $(LIBF)/phystd/profile.F \
    2314 $(LIBO)/libbibio.a(ioipsl_getincom.o)
    2315         cd $(LOCAL_DIR); \
    2316         $(COMPILE90) $(LIBF)/phystd/profile.F ; \
    2317         $(AR) r $(LIBO)/libphystd.a profile.o ; $(RM) profile.o ; \
    2318         cd $(GCM)
    2319 
    2320 $(LIBO)/libphystd.a(scopyi.o) : $(LIBF)/phystd/scopyi.F
    2321         cd $(LOCAL_DIR); \
    2322         $(COMPILE) $(LIBF)/phystd/scopyi.F ; \
    2323         $(AR) r $(LIBO)/libphystd.a scopyi.o ; $(RM) scopyi.o ; \
    2324         cd $(GCM)
    2325 
    2326 $(LIBO)/libphystd.a(sfluxi.o) : $(LIBF)/phystd/sfluxi.F \
    2327 $(LIBF)/phystd/comcstfi.h \
    2328 $(LIBO)/libphystd.a(radinc_h.o) \
    2329 $(LIBO)/libphystd.a(radcommon_h.o)
    2330         cd $(LOCAL_DIR); \
    2331         $(COMPILE90) $(LIBF)/phystd/sfluxi.F ; \
    2332         $(AR) r $(LIBO)/libphystd.a sfluxi.o ; $(RM) sfluxi.o ; \
    2333         cd $(GCM)
    2334 
    2335 $(LIBO)/libphystd.a(sfluxv.o) : $(LIBF)/phystd/sfluxv.F \
    2336 $(LIBO)/libphystd.a(radinc_h.o) \
    2337 $(LIBO)/libphystd.a(radcommon_h.o)
    2338         cd $(LOCAL_DIR); \
    2339         $(COMPILE90) $(LIBF)/phystd/sfluxv.F ; \
    2340         $(AR) r $(LIBO)/libphystd.a sfluxv.o ; $(RM) sfluxv.o ; \
    2341         cd $(GCM)
    2342 
    2343 $(LIBO)/libphystd.a(soil.o) : $(LIBF)/phystd/soil.F \
    2344 $(LIBF)/grid/dimensions.h \
    2345 $(LIBF)/phystd/dimphys.h \
    2346 $(LIBF)/phystd/comsoil.h
    2347         cd $(LOCAL_DIR); \
    2348         $(COMPILE) $(LIBF)/phystd/soil.F ; \
    2349         $(AR) r $(LIBO)/libphystd.a soil.o ; $(RM) soil.o ; \
    2350         cd $(GCM)
    2351 
    2352 $(LIBO)/libphystd.a(soil_settings.o) : $(LIBF)/phystd/soil_settings.F \
    2353 $(LIBF)/grid/dimensions.h \
    2354 $(LIBF)/phystd/dimphys.h \
    2355 $(LIBF)/phystd/comsoil.h
    2356         cd $(LOCAL_DIR); \
    2357         $(COMPILE) $(LIBF)/phystd/soil_settings.F ; \
    2358         $(AR) r $(LIBO)/libphystd.a soil_settings.o ; $(RM) soil_settings.o ; \
    2359         cd $(GCM)
    2360 
    2361 $(LIBO)/libphystd.a(solang.o) : $(LIBF)/phystd/solang.F
    2362         cd $(LOCAL_DIR); \
    2363         $(COMPILE) $(LIBF)/phystd/solang.F ; \
    2364         $(AR) r $(LIBO)/libphystd.a solang.o ; $(RM) solang.o ; \
    2365         cd $(GCM)
    2366 
    2367 $(LIBO)/libphystd.a(solarlong.o) : $(LIBF)/phystd/solarlong.F \
    2368 $(LIBF)/phystd/planete.h \
    2369 $(LIBF)/phystd/comcstfi.h
    2370         cd $(LOCAL_DIR); \
    2371         $(COMPILE) $(LIBF)/phystd/solarlong.F ; \
    2372         $(AR) r $(LIBO)/libphystd.a solarlong.o ; $(RM) solarlong.o ; \
    2373         cd $(GCM)
    2374 
    2375 $(LIBO)/libphystd.a(surfini.o) : $(LIBF)/phystd/surfini.F \
    2376 $(LIBF)/grid/dimensions.h \
    2377 $(LIBF)/phystd/dimphys.h \
    2378 $(LIBF)/phystd/surfdat.h \
    2379 $(LIBF)/phystd/callkeys.h \
    2380 $(LIBF)/phystd/tracer.h
    2381         cd $(LOCAL_DIR); \
    2382         $(COMPILE) $(LIBF)/phystd/surfini.F ; \
    2383         $(AR) r $(LIBO)/libphystd.a surfini.o ; $(RM) surfini.o ; \
    2384         cd $(GCM)
    2385 
    2386 $(LIBO)/libphystd.a(tabfi.o) : $(LIBF)/phystd/tabfi.F \
    2387 $(LIBF)/grid/dimensions.h \
    2388 $(LIBF)/phystd/dimphys.h \
    2389 $(LIBF)/phystd/comcstfi.h \
    2390 $(LIBF)/phystd/comgeomfi.h \
    2391 $(LIBF)/phystd/planete.h \
    2392 $(LIBF)/phystd/surfdat.h \
    2393 $(LIBF)/phystd/comsoil.h \
    2394 $(LIBF)/phystd/callkeys.h \
    2395 $(LIBO)/libbibio.a(ioipsl_getincom.o) \
    2396 $(LIBO)/libphystd.a(radcommon_h.o)
    2397         cd $(LOCAL_DIR); \
    2398         $(COMPILE90) $(LIBF)/phystd/tabfi.F ; \
    2399         $(AR) r $(LIBO)/libphystd.a tabfi.o ; $(RM) tabfi.o ; \
    2400         cd $(GCM)
    2401 
    2402 $(LIBO)/libphystd.a(tpindex.o) : $(LIBF)/phystd/tpindex.F \
    2403 $(LIBO)/libphystd.a(radinc_h.o)
    2404         cd $(LOCAL_DIR); \
    2405         $(COMPILE90) $(LIBF)/phystd/tpindex.F ; \
    2406         $(AR) r $(LIBO)/libphystd.a tpindex.o ; $(RM) tpindex.o ; \
    2407         cd $(GCM)
    2408 
    2409 $(LIBO)/libphystd.a(vdif_cd.o) : $(LIBF)/phystd/vdif_cd.F
    2410         cd $(LOCAL_DIR); \
    2411         $(COMPILE) $(LIBF)/phystd/vdif_cd.F ; \
    2412         $(AR) r $(LIBO)/libphystd.a vdif_cd.o ; $(RM) vdif_cd.o ; \
    2413         cd $(GCM)
    2414 
    2415 $(LIBO)/libphystd.a(vdifc.o) : $(LIBF)/phystd/vdifc.F \
    2416 $(LIBF)/grid/dimensions.h \
    2417 $(LIBF)/phystd/dimphys.h \
    2418 $(LIBF)/phystd/comcstfi.h \
    2419 $(LIBF)/phystd/callkeys.h \
    2420 $(LIBF)/phystd/surfdat.h \
    2421 $(LIBF)/phystd/comgeomfi.h \
     2757        $(COMPTRU90) $(LIBF)/phystd/radcommon_h.F90 ; \
     2758        mv $(MOD_LOC_DIR)/radcommon_h.$(MOD_SUFFIX) $(LIBO)/radcommon_h.$(MOD_SUFFIX) ; \
     2759        $(AR) r $(LIBO)/libphystd.a radcommon_h.o ; $(RM) radcommon_h.o ; \
     2760        cd $(GCM)
     2761
     2762$(LIBO)/libphystd.a(radinc_h.o) : $(LIBF)/phystd/radinc_h.F90 \
     2763$(LIBF)/grid/dimensions.h \
     2764$(LIBF)/grid/bands.h
     2765        cd $(LOCAL_DIR); \
     2766        $(COMPTRU90) $(LIBF)/phystd/radinc_h.F90 ; \
     2767        mv $(MOD_LOC_DIR)/radinc_h.$(MOD_SUFFIX) $(LIBO)/radinc_h.$(MOD_SUFFIX) ; \
     2768        $(AR) r $(LIBO)/libphystd.a radinc_h.o ; $(RM) radinc_h.o ; \
     2769        cd $(GCM)
     2770
     2771$(LIBO)/libphystd.a(rain.o) : $(LIBF)/phystd/rain.F90 \
     2772$(LIBF)/grid/dimensions.h \
     2773$(LIBF)/phystd/dimphys.h \
    24222774$(LIBF)/phystd/tracer.h \
    2423 $(LIBF)/phystd/watercap.h \
     2775$(LIBF)/phystd/comcstfi.h \
     2776$(LIBF)/phystd/callkeys.h \
    24242777$(LIBO)/libphystd.a(watercommon_h.o)
    24252778        cd $(LOCAL_DIR); \
    2426         $(COMPILE90) $(LIBF)/phystd/vdifc.F ; \
    2427         $(AR) r $(LIBO)/libphystd.a vdifc.o ; $(RM) vdifc.o ; \
    2428         cd $(GCM)
    2429 
    2430 $(LIBO)/libphystd.a(vdif_kc.o) : $(LIBF)/phystd/vdif_kc.F \
    2431 $(LIBF)/grid/dimensions.h \
    2432 $(LIBF)/phystd/dimphys.h
    2433         cd $(LOCAL_DIR); \
    2434         $(COMPILE) $(LIBF)/phystd/vdif_kc.F ; \
    2435         $(AR) r $(LIBO)/libphystd.a vdif_kc.o ; $(RM) vdif_kc.o ; \
    2436         cd $(GCM)
    2437 
    2438 $(LIBO)/libphystd.a(vlz_fi.o) : $(LIBF)/phystd/vlz_fi.F \
    2439 $(LIBF)/grid/dimensions.h \
    2440 $(LIBF)/phystd/dimphys.h
    2441         cd $(LOCAL_DIR); \
    2442         $(COMPILE) $(LIBF)/phystd/vlz_fi.F ; \
    2443         $(AR) r $(LIBO)/libphystd.a vlz_fi.o ; $(RM) vlz_fi.o ; \
    2444         cd $(GCM)
    2445 
    2446 $(LIBO)/libphystd.a(writediagfi.o) : $(LIBF)/phystd/writediagfi.F \
    2447 $(LIBF)/grid/dimensions.h \
    2448 $(LIBF)/phystd/dimphys.h \
    2449 $(LIBF)/dyn3d/paramet.h \
    2450 $(LIBF)/dyn3d/control.h \
    2451 $(LIBF)/dyn3d/comvert.h \
    2452 $(LIBF)/dyn3d/comgeom.h \
    2453 $(LIBF)/dyn3d/description.h \
    2454 $(LIBF)/dyn3d/temps.h \
    2455 $(LIBF)/phystd/surfdat.h
    2456         cd $(LOCAL_DIR); \
    2457         $(COMPILE) $(LIBF)/phystd/writediagfi.F ; \
    2458         $(AR) r $(LIBO)/libphystd.a writediagfi.o ; $(RM) writediagfi.o ; \
    2459         cd $(GCM)
    2460 
    2461 $(LIBO)/libphystd.a(writediagspec.o) : $(LIBF)/phystd/writediagspec.F \
    2462 $(LIBF)/grid/dimensions.h \
    2463 $(LIBF)/phystd/dimphys.h \
    2464 $(LIBF)/dyn3d/paramet.h \
    2465 $(LIBF)/dyn3d/control.h \
    2466 $(LIBF)/dyn3d/comvert.h \
    2467 $(LIBF)/dyn3d/comgeom.h \
    2468 $(LIBF)/dyn3d/description.h \
    2469 $(LIBF)/dyn3d/temps.h \
    2470 $(LIBF)/phystd/surfdat.h \
    2471 $(LIBO)/libphystd.a(radinc_h.o)
    2472         cd $(LOCAL_DIR); \
    2473         $(COMPILE90) $(LIBF)/phystd/writediagspec.F ; \
    2474         $(AR) r $(LIBO)/libphystd.a writediagspec.o ; $(RM) writediagspec.o ; \
    2475         cd $(GCM)
    2476 
    2477 $(LIBO)/libphystd.a(writeg1d.o) : $(LIBF)/phystd/writeg1d.F \
    2478 $(LIBF)/phystd/comg1d.h \
    2479 $(LIBF)/phystd/comg1d.h \
    2480 $(LIBF)/phystd/comcstfi.h
    2481         cd $(LOCAL_DIR); \
    2482         $(COMPILE) $(LIBF)/phystd/writeg1d.F ; \
    2483         $(AR) r $(LIBO)/libphystd.a writeg1d.o ; $(RM) writeg1d.o ; \
    2484         cd $(GCM)
    2485 
    2486 $(LIBO)/libphystd.a(zerophys.o) : $(LIBF)/phystd/zerophys.F
    2487         cd $(LOCAL_DIR); \
    2488         $(COMPILE) $(LIBF)/phystd/zerophys.F ; \
    2489         $(AR) r $(LIBO)/libphystd.a zerophys.o ; $(RM) zerophys.o ; \
    2490         cd $(GCM)
    2491 
    2492 $(LIBO)/libphystd.a(aeropacity.o) : $(LIBF)/phystd/aeropacity.F90 \
    2493 $(LIBF)/grid/dimensions.h \
    2494 $(LIBF)/phystd/dimphys.h \
    2495 $(LIBF)/phystd/callkeys.h \
    2496 $(LIBF)/phystd/comcstfi.h \
    2497 $(LIBF)/phystd/comgeomfi.h \
    2498 $(LIBF)/phystd/tracer.h \
    2499 $(LIBO)/libphystd.a(radinc_h.o)
    2500         cd $(LOCAL_DIR); \
    2501         $(COMPTRU90) $(LIBF)/phystd/aeropacity.F90 ; \
    2502         $(AR) r $(LIBO)/libphystd.a aeropacity.o ; $(RM) aeropacity.o ; \
    2503         cd $(GCM)
    2504 
    2505 $(LIBO)/libphystd.a(aeroptproperties.o) : $(LIBF)/phystd/aeroptproperties.F90 \
    2506 $(LIBF)/grid/dimensions.h \
    2507 $(LIBF)/phystd/dimphys.h \
    2508 $(LIBF)/phystd/callkeys.h \
    2509 $(LIBO)/libphystd.a(radinc_h.o) \
    2510 $(LIBO)/libphystd.a(radcommon_h.o) \
    2511 $(LIBO)/libphystd.a(radcommon_h.o)
    2512         cd $(LOCAL_DIR); \
    2513         $(COMPTRU90) $(LIBF)/phystd/aeroptproperties.F90 ; \
    2514         $(AR) r $(LIBO)/libphystd.a aeroptproperties.o ; $(RM) aeroptproperties.o ; \
    2515         cd $(GCM)
    2516 
    2517 $(LIBO)/libphystd.a(aeroptpropertiesJBnew.o) : $(LIBF)/phystd/aeroptpropertiesJBnew.F90 \
    2518 $(LIBF)/grid/dimensions.h \
    2519 $(LIBF)/phystd/dimphys.h \
    2520 $(LIBF)/phystd/callkeys.h \
    2521 $(LIBO)/libphystd.a(radinc_h.o) \
    2522 $(LIBO)/libphystd.a(radcommon_h.o) \
    2523 $(LIBO)/libphystd.a(radcommon_h.o) \
    2524 $(LIBO)/libphystd.a(radcommon_h.o)
    2525         cd $(LOCAL_DIR); \
    2526         $(COMPTRU90) $(LIBF)/phystd/aeroptpropertiesJBnew.F90 ; \
    2527         $(AR) r $(LIBO)/libphystd.a aeroptpropertiesJBnew.o ; $(RM) aeroptpropertiesJBnew.o ; \
    2528         cd $(GCM)
    2529 
    2530 $(LIBO)/libphystd.a(ave_stelspec.o) : $(LIBF)/phystd/ave_stelspec.F90 \
     2779        $(COMPTRU90) $(LIBF)/phystd/rain.F90 ; \
     2780        $(AR) r $(LIBO)/libphystd.a rain.o ; $(RM) rain.o ; \
     2781        cd $(GCM)
     2782
     2783$(LIBO)/libphystd.a(setspi.o) : $(LIBF)/phystd/setspi.F90 \
     2784$(LIBF)/phystd/callkeys.h \
     2785$(LIBF)/phystd/comcstfi.h \
    25312786$(LIBF)/phystd/datafile.h \
    25322787$(LIBO)/libphystd.a(radinc_h.o) \
    25332788$(LIBO)/libphystd.a(radcommon_h.o)
    25342789        cd $(LOCAL_DIR); \
    2535         $(COMPTRU90) $(LIBF)/phystd/ave_stelspec.F90 ; \
    2536         $(AR) r $(LIBO)/libphystd.a ave_stelspec.o ; $(RM) ave_stelspec.o ; \
    2537         cd $(GCM)
    2538 
    2539 $(LIBO)/libphystd.a(calc_cpp3d.o) : $(LIBF)/phystd/calc_cpp3d.F90 \
    2540 $(LIBF)/phystd/comcstfi.h
    2541         cd $(LOCAL_DIR); \
    2542         $(COMPILE) $(LIBF)/phystd/calc_cpp3d.F90 ; \
    2543         $(AR) r $(LIBO)/libphystd.a calc_cpp3d.o ; $(RM) calc_cpp3d.o ; \
    2544         cd $(GCM)
    2545 
    2546 $(LIBO)/libphystd.a(calc_rayleigh.o) : $(LIBF)/phystd/calc_rayleigh.F90 \
    2547 $(LIBF)/phystd/comcstfi.h \
    2548 $(LIBO)/libphystd.a(radinc_h.o) \
    2549 $(LIBO)/libphystd.a(radcommon_h.o)
    2550         cd $(LOCAL_DIR); \
    2551         $(COMPTRU90) $(LIBF)/phystd/calc_rayleigh.F90 ; \
    2552         $(AR) r $(LIBO)/libphystd.a calc_rayleigh.o ; $(RM) calc_rayleigh.o ; \
    2553         cd $(GCM)
    2554 
    2555 $(LIBO)/libphystd.a(condens_co2cloud.o) : $(LIBF)/phystd/condens_co2cloud.F90 \
    2556 $(LIBF)/grid/dimensions.h \
    2557 $(LIBF)/phystd/dimphys.h \
    2558 $(LIBF)/phystd/comcstfi.h \
    2559 $(LIBF)/phystd/surfdat.h \
    2560 $(LIBF)/phystd/comgeomfi.h \
    2561 $(LIBF)/dyn3d/comvert.h \
    2562 $(LIBF)/phystd/callkeys.h \
    2563 $(LIBF)/phystd/tracer.h \
    2564 $(LIBO)/libphystd.a(radinc_h.o)
    2565         cd $(LOCAL_DIR); \
    2566         $(COMPTRU90) $(LIBF)/phystd/condens_co2cloud.F90 ; \
    2567         $(AR) r $(LIBO)/libphystd.a condens_co2cloud.o ; $(RM) condens_co2cloud.o ; \
    2568         cd $(GCM)
    2569 
    2570 $(LIBO)/libphystd.a(def_var.o) : $(LIBF)/phystd/def_var.F90
    2571         cd $(LOCAL_DIR); \
    2572         $(COMPILE) $(LIBF)/phystd/def_var.F90 ; \
    2573         $(AR) r $(LIBO)/libphystd.a def_var.o ; $(RM) def_var.o ; \
    2574         cd $(GCM)
    2575 
    2576 $(LIBO)/libphystd.a(iniwritesoil.o) : $(LIBF)/phystd/iniwritesoil.F90 \
    2577 $(LIBF)/grid/dimensions.h \
    2578 $(LIBF)/phystd/dimphys.h \
    2579 $(LIBF)/dyn3d/paramet.h \
    2580 $(LIBF)/phystd/comcstfi.h \
    2581 $(LIBF)/dyn3d/comgeom.h \
    2582 $(LIBF)/phystd/comsoil.h
    2583         cd $(LOCAL_DIR); \
    2584         $(COMPILE) $(LIBF)/phystd/iniwritesoil.F90 ; \
    2585         $(AR) r $(LIBO)/libphystd.a iniwritesoil.o ; $(RM) iniwritesoil.o ; \
    2586         cd $(GCM)
    2587 
    2588 $(LIBO)/libphystd.a(mkstat.o) : $(LIBF)/phystd/mkstat.F90 \
    2589 $(LIBF)/grid/dimensions.h \
    2590 $(LIBF)/phystd/statto.h
    2591         cd $(LOCAL_DIR); \
    2592         $(COMPILE) $(LIBF)/phystd/mkstat.F90 ; \
    2593         $(AR) r $(LIBO)/libphystd.a mkstat.o ; $(RM) mkstat.o ; \
    2594         cd $(GCM)
    2595 
    2596 $(LIBO)/libphystd.a(moistadj.o) : $(LIBF)/phystd/moistadj.F90 \
    2597 $(LIBF)/grid/dimensions.h \
    2598 $(LIBF)/phystd/dimphys.h \
    2599 $(LIBF)/phystd/tracer.h \
    2600 $(LIBF)/phystd/comcstfi.h \
    2601 $(LIBO)/libphystd.a(watercommon_h.o)
    2602         cd $(LOCAL_DIR); \
    2603         $(COMPTRU90) $(LIBF)/phystd/moistadj.F90 ; \
    2604         $(AR) r $(LIBO)/libphystd.a moistadj.o ; $(RM) moistadj.o ; \
    2605         cd $(GCM)
    2606 
    2607 $(LIBO)/libphystd.a(optci.o) : $(LIBF)/phystd/optci.F90 \
    2608 $(LIBF)/phystd/comcstfi.h \
    2609 $(LIBF)/phystd/callkeys.h \
    2610 $(LIBO)/libphystd.a(radinc_h.o) \
    2611 $(LIBO)/libphystd.a(radcommon_h.o)
    2612         cd $(LOCAL_DIR); \
    2613         $(COMPTRU90) $(LIBF)/phystd/optci.F90 ; \
    2614         $(AR) r $(LIBO)/libphystd.a optci.o ; $(RM) optci.o ; \
    2615         cd $(GCM)
    2616 
    2617 $(LIBO)/libphystd.a(radcommon_h.o) : $(LIBF)/phystd/radcommon_h.F90 \
    2618 $(LIBO)/libphystd.a(radinc_h.o)
    2619         cd $(LOCAL_DIR); \
    2620         $(COMPTRU90) $(LIBF)/phystd/radcommon_h.F90 ; \
    2621         mv $(MOD_LOC_DIR)/radcommon_h.$(MOD_SUFFIX) $(LIBO)/radcommon_h.$(MOD_SUFFIX) ; \
    2622         $(AR) r $(LIBO)/libphystd.a radcommon_h.o ; $(RM) radcommon_h.o ; \
    2623         cd $(GCM)
    2624 
    2625 $(LIBO)/libphystd.a(radinc_h.o) : $(LIBF)/phystd/radinc_h.F90 \
    2626 $(LIBF)/grid/dimensions.h \
    2627 $(LIBF)/grid/bands.h
    2628         cd $(LOCAL_DIR); \
    2629         $(COMPTRU90) $(LIBF)/phystd/radinc_h.F90 ; \
    2630         mv $(MOD_LOC_DIR)/radinc_h.$(MOD_SUFFIX) $(LIBO)/radinc_h.$(MOD_SUFFIX) ; \
    2631         $(AR) r $(LIBO)/libphystd.a radinc_h.o ; $(RM) radinc_h.o ; \
    2632         cd $(GCM)
    2633 
    2634 $(LIBO)/libphystd.a(rain.o) : $(LIBF)/phystd/rain.F90 \
    2635 $(LIBF)/grid/dimensions.h \
    2636 $(LIBF)/phystd/dimphys.h \
    2637 $(LIBF)/phystd/tracer.h \
    2638 $(LIBF)/phystd/comcstfi.h \
    2639 $(LIBF)/phystd/callkeys.h \
    2640 $(LIBO)/libphystd.a(watercommon_h.o)
    2641         cd $(LOCAL_DIR); \
    2642         $(COMPTRU90) $(LIBF)/phystd/rain.F90 ; \
    2643         $(AR) r $(LIBO)/libphystd.a rain.o ; $(RM) rain.o ; \
    2644         cd $(GCM)
    2645 
    2646 $(LIBO)/libphystd.a(setspi.o) : $(LIBF)/phystd/setspi.F90 \
    2647 $(LIBF)/phystd/callkeys.h \
    2648 $(LIBF)/phystd/comcstfi.h \
     2790        $(COMPTRU90) $(LIBF)/phystd/setspi.F90 ; \
     2791        $(AR) r $(LIBO)/libphystd.a setspi.o ; $(RM) setspi.o ; \
     2792        cd $(GCM)
     2793
     2794$(LIBO)/libphystd.a(setspv.o) : $(LIBF)/phystd/setspv.F90 \
     2795$(LIBF)/phystd/comcstfi.h \
     2796$(LIBF)/phystd/callkeys.h \
    26492797$(LIBF)/phystd/datafile.h \
    26502798$(LIBO)/libphystd.a(radinc_h.o) \
    26512799$(LIBO)/libphystd.a(radcommon_h.o)
    26522800        cd $(LOCAL_DIR); \
    2653         $(COMPTRU90) $(LIBF)/phystd/setspi.F90 ; \
    2654         $(AR) r $(LIBO)/libphystd.a setspi.o ; $(RM) setspi.o ; \
    2655         cd $(GCM)
    2656 
    2657 $(LIBO)/libphystd.a(setspv.o) : $(LIBF)/phystd/setspv.F90 \
    2658 $(LIBF)/phystd/comcstfi.h \
    2659 $(LIBF)/phystd/callkeys.h \
    2660 $(LIBF)/phystd/datafile.h \
    2661 $(LIBO)/libphystd.a(radinc_h.o) \
    2662 $(LIBO)/libphystd.a(radcommon_h.o)
    2663         cd $(LOCAL_DIR); \
    26642801        $(COMPTRU90) $(LIBF)/phystd/setspv.F90 ; \
    26652802        $(AR) r $(LIBO)/libphystd.a setspv.o ; $(RM) setspv.o ; \
    26662803        cd $(GCM)
    26672804
     2805$(LIBO)/libphystd.a(simpleprof_fn.o) : $(LIBF)/phystd/simpleprof_fn.F90 \
     2806$(LIBF)/grid/dimensions.h \
     2807$(LIBF)/phystd/dimphys.h \
     2808$(LIBF)/phystd/comcstfi.h \
     2809$(LIBF)/phystd/callkeys.h \
     2810$(LIBO)/libphystd.a(radcommon_h.o)
     2811        cd $(LOCAL_DIR); \
     2812        $(COMPTRU90) $(LIBF)/phystd/simpleprof_fn.F90 ; \
     2813        $(AR) r $(LIBO)/libphystd.a simpleprof_fn.o ; $(RM) simpleprof_fn.o ; \
     2814        cd $(GCM)
     2815
    26682816$(LIBO)/libphystd.a(stokes.o) : $(LIBF)/phystd/stokes.F90 \
    26692817$(LIBF)/phystd/comcstfi.h
    … …  
    26712819        $(COMPILE) $(LIBF)/phystd/stokes.F90 ; \
    26722820        $(AR) r $(LIBO)/libphystd.a stokes.o ; $(RM) stokes.o ; \
     2821        cd $(GCM)
     2822
     2823$(LIBO)/libphystd.a(su_gases.o) : $(LIBF)/phystd/su_gases.F90
     2824        cd $(LOCAL_DIR); \
     2825        $(COMPILE) $(LIBF)/phystd/su_gases.F90 ; \
     2826        $(AR) r $(LIBO)/libphystd.a su_gases.o ; $(RM) su_gases.o ; \
     2827        cd $(GCM)
     2828
     2829$(LIBO)/libphystd.a(su_watercycle.o) : $(LIBF)/phystd/su_watercycle.F90 \
     2830$(LIBF)/phystd/comcstfi.h \
     2831$(LIBO)/libphystd.a(watercommon_h.o)
     2832        cd $(LOCAL_DIR); \
     2833        $(COMPTRU90) $(LIBF)/phystd/su_watercycle.F90 ; \
     2834        $(AR) r $(LIBO)/libphystd.a su_watercycle.o ; $(RM) su_watercycle.o ; \
    26732835        cd $(GCM)
    26742836
    … …  
    26892851$(LIBF)/phystd/datafile.h \
    26902852$(LIBF)/phystd/callkeys.h \
     2853$(LIBF)/phystd/gases.h \
    26912854$(LIBO)/libphystd.a(radinc_h.o) \
    26922855$(LIBO)/libphystd.a(radcommon_h.o) \
    … …  
    26992862        cd $(GCM)
    27002863
    2701 $(LIBO)/libphystd.a(su_watercycle.o) : $(LIBF)/phystd/su_watercycle.F90 \
    2702 $(LIBF)/phystd/comcstfi.h \
    2703 $(LIBO)/libphystd.a(watercommon_h.o)
    2704         cd $(LOCAL_DIR); \
    2705         $(COMPTRU90) $(LIBF)/phystd/su_watercycle.F90 ; \
    2706         $(AR) r $(LIBO)/libphystd.a su_watercycle.o ; $(RM) su_watercycle.o ; \
     2864$(LIBO)/libphystd.a(totalcloudfrac.o) : $(LIBF)/phystd/totalcloudfrac.F90 \
     2865$(LIBF)/grid/dimensions.h \
     2866$(LIBF)/phystd/dimphys.h \
     2867$(LIBF)/phystd/comcstfi.h \
     2868$(LIBF)/phystd/tracer.h \
     2869$(LIBF)/phystd/fisice.h \
     2870$(LIBF)/phystd/comgeomfi.h \
     2871$(LIBF)/phystd/comdiurn.h
     2872        cd $(LOCAL_DIR); \
     2873        $(COMPILE) $(LIBF)/phystd/totalcloudfrac.F90 ; \
     2874        $(AR) r $(LIBO)/libphystd.a totalcloudfrac.o ; $(RM) totalcloudfrac.o ; \
    27072875        cd $(GCM)
    27082876
    … …  
    27142882        cd $(GCM)
    27152883
    2716 $(LIBO)/libphystd.a(watersat_2.o) : $(LIBF)/phystd/watersat_2.F90 \
     2884$(LIBO)/libphystd.a(watersat.o) : $(LIBF)/phystd/watersat.F90 \
    27172885$(LIBO)/libphystd.a(watercommon_h.o)
    27182886        cd $(LOCAL_DIR); \
    2719         $(COMPTRU90) $(LIBF)/phystd/watersat_2.F90 ; \
    2720         $(AR) r $(LIBO)/libphystd.a watersat_2.o ; $(RM) watersat_2.o ; \
     2887        $(COMPTRU90) $(LIBF)/phystd/watersat.F90 ; \
     2888        $(AR) r $(LIBO)/libphystd.a watersat.o ; $(RM) watersat.o ; \
    27212889        cd $(GCM)
    27222890

  • trunk/LMDZ.GENERIC/makegcm

    r135 r253  
    1818########################################################################
    1919
    20 ###### VERSION LMDZ.3.3
    21 # set LMDGCM=$HOME/LMDZ.3.3
    22 #
    23 
    2420#### If you want you can set environment variables here
    25 #setenv LMDGCM /d5/emlmd/test_universal/v0.4/LMDZ.UCM
     21#setenv LMDGCM "/san/home/rdword/gcm/LMDZ.GENERIC"
    2622#setenv LIBOGCM $LMDGCM/libo
    27 #if ( `uname -m` == "x86_64" ) then
    28 ## 64 bit machines
    29 #  setenv NCDFLIB /donnees/emlmd/netcdf64-4.0.1_pgi/lib
    30 #  setenv NCDFINC /donnees/emlmd/netcdf64-4.0.1_pgi/include
    31 #else
    32 #  setenv NCDFLIB /donnees/emlmd/netcdf-4.0.1_pgi/lib
    33 #  setenv NCDFINC /donnees/emlmd/netcdf-4.0.1_pgi/include
    34 #endif
    35 
     23setenv NCDFLIB /usr/local/lib
     24setenv NCDFINC /usr/local/include
    3625####
    3726
    … …  
    181170else if $DEC then
    182171else if $LINUX then
    183    set optim90=" -fast"
    184    set optimtru90=" -fast -c -Mfree "
    185 #   set opt_link=" -Mfree -L/usr/local/pgi/linux86/lib -lpgf90 -lpgftnrtl -lpghpf -lpghpf2 -L$NCDFLIB -lnetcdf -Wl,-Bstatic "
    186 # Ehouarn: there is no /usr/local/pgi/linux86/lib, but it doesn't matter
    187 #          also changed -Wl,-Bstatic to -Bstatic
    188    set opt_link=" -Mfree -lpgf90 -lpgftnrtl -lpghpf -lpghpf2 -L$NCDFLIB -lnetcdf -Bstatic "
    189    set mod_loc_dir=$localdir
     172   #NB: on gnome -O3 ==> NaNs ...
     173   set optim=" -O2 -ip -mkl=sequential -align common "
     174   set optim90=" -O2 -ip -mkl=sequential -align common "
     175   set optimtru90=" -O2 -ip -mkl=sequential -align common "
     176   set mod_loc_dir=$LIBOGCM
    190177   set mod_suffix=mod
    191178else if $NEC then
    … …  
    337324########################################################################
    338325
    339     case -d:
     326    case -d
    340327        set dim=$2 ; shift ; shift ; goto top
    341328                       
    342329    case -O:
    343         set optim90="$2" ; set optimtru90="$2" ; shift ; shift ; goto top
     330        set optim90="$2" ; set optim="$2" ; set optimtru90="$2" ; shift ; shift ; goto top
    344331
    345332     case -p
    … …  
    380367           set optim90="$optim90"" -G1 "
    381368        else if $LINUX then
    382            set optim90="-g -Mbounds "
    383            set optimtrue90="-g -Mbounds -Mfree"
     369           set optim=" -g -no-ftz -traceback -ftrapuv -fp-stack-check -check"
     370           set optim90=" -g -no-ftz -traceback -ftrapuv -fp-stack-check -check"
     371           set optimtru90=" -g -no-ftz -traceback -ftrapuv -fp-stack-check -check"
    384372        else
    385373           echo "pas d option debug predefinie pour cette machine"
    … …  
    393381   endsw
    394382endif
     383
    395384
    396385echo "apres les opts dim $dim"
    … …  
    425414#subtilites sur le nom de la librairie
    426415########################################################################
     416
    427417
    428418\rm tmp ; touch tmp
    … …  
    548538
    549539# Build the appropriate 'bands.h' file
    550 cd dimension
    551540makbands $bands
    552541# echo contents of bands.h to standard output
    … …  
    657646########################################################################
    658647
     648
    659649echo PHYSIQUE $phys
    660650echo dynamique $dyn $dimension
    … …  
    674664   set f90=f90
    675665else if $LINUX then
    676    set f77=pgf90
    677    set f90=pgf90
     666   set f77=ifort
     667   set f90=ifort
     668   set opt_link=" -L$LIBOGCM -L$NCDFLIB -lnetcdf "
     669#   set f77=pgf90
     670#   set f90=pgf90
    678671else if $SUN then
    679672   set f77=f90
    … …  
    769762 set optimtru90=" $optimtru90 -I$libo "
    770763else if $LINUX then
     764 set optim="$optim -module $libo"
    771765 set optim90="$optim90 -module $libo"
    772766 set optimtru90="$optimtru90 -module $libo"
    … …  
    788782cd $localdir
    789783
     784
    790785echo $make -f $LMDGCM/makefile \
    791786OPTION_DEP="$opt_dep" OPTION_LINK="$opt_link" \
    792 OPTIM="$optim90" \
     787OPTIM="$optim" \
    793788OPTIM90="$optim90" \
    794789OPTIMTRU90="$optimtru90" \
    … …  
    815810$make -f $LMDGCM/makefile \
    816811OPTION_DEP="$opt_dep" OPTION_LINK="$opt_link" \
    817 OPTIM="$optim90" \
     812OPTIM="$optim" \
    818813OPTIM90="$optim90" \
    819814OPTIMTRU90="$optimtru90" \

  • trunk/LMDZ.GENERIC/makegcm_ifort

    r135 r253  
    1313set grille=reg
    1414set dyntype="dyn"
    15 set bands="8x7"
     15set bands="32x36"
    1616########################################################################
    1717# path a changer contenant les sources et les objets du modele
    … …  
    324324########################################################################
    325325
    326     case -d:
     326    case -d
    327327        set dim=$2 ; shift ; shift ; goto top
    328328                       
    329329    case -O:
    330 #        set optim90="$2" ; set optimtru90="$2" ; shift ; shift ; goto top
    331         set optim90="$2" ; optim="$2" ; optimtru90="$2" ; shift ; shift ; goto top
     330        set optim90="$2" ; set optim="$2" ; set optimtru90="$2" ; shift ; shift ; goto top
    332331
    333332     case -p
    … …  
    368367           set optim90="$optim90"" -G1 "
    369368        else if $LINUX then
    370            set optim=" -g -no-ftz -traceback -ftrapuv -fp-stack-check "
    371            set optim90=" -g -no-ftz -traceback -ftrapuv -fp-stack-check "
    372            set optimtru90=" -g -no-ftz -traceback -ftrapuv -fp-stack-check "
     369           set optim=" -g -no-ftz -traceback -ftrapuv -fp-stack-check -check"
     370           set optim90=" -g -no-ftz -traceback -ftrapuv -fp-stack-check -check"
     371           set optimtru90=" -g -no-ftz -traceback -ftrapuv -fp-stack-check -check"
    373372        else
    374373           echo "pas d option debug predefinie pour cette machine"
    … …  
    382381   endsw
    383382endif
     383
    384384
    385385echo "apres les opts dim $dim"
    … …  
    414414#subtilites sur le nom de la librairie
    415415########################################################################
     416
    416417
    417418\rm tmp ; touch tmp
    … …  
    644645#  Execution de la comande make
    645646########################################################################
     647
    646648
    647649echo PHYSIQUE $phys
    … …  
    780782cd $localdir
    781783
     784
    782785echo $make -f $LMDGCM/makefile \
    783786OPTION_DEP="$opt_dep" OPTION_LINK="$opt_link" \

  • trunk/LMDZ.GENERIC/makegcm_pgf90

    r135 r253  
    66########################################################################
    77set dim="64x48x32"
    8 set physique=mars
     8set physique=std
    99set phys="PHYS=$physique"
    1010set include='-I$(LIBF)/grid -I$(LIBF)/bibio -I.'
    … …  
    1313set grille=reg
    1414set dyntype="dyn"
     15set bands="32x36"
    1516########################################################################
    1617# path a changer contenant les sources et les objets du modele
    1718########################################################################
    1819
    19 ###### VERSION LMDZ.3.3
    20 # set LMDGCM=$HOME/LMDZ.3.3
    21 #
    22 
    2320#### If you want you can set environment variables here
    24 #setenv LMDGCM /d5/emlmd/test_universal/LMDZ.UCM.v0.2
     21#setenv LMDGCM "/san/home/rdword/gcm/LMDZ.GENERIC"
    2522#setenv LIBOGCM $LMDGCM/libo
    26 #if ( `uname -m` == "x86_64" ) then
    27 ## 64 bit machines
    28 #  setenv NCDFLIB /donnees/emlmd/netcdf64-4.0.1_pgi/lib
    29 #  setenv NCDFINC /donnees/emlmd/netcdf64-4.0.1_pgi/include
    30 #else
    31 #  setenv NCDFLIB /distrib/local/netcdf/pgi_32bits/lib
    32 #  setenv NCDFINC /distrib/local/netcdf/pgi_32bits/include
    33 #endif
     23#setenv NCDFLIB /usr/local/lib
     24#setenv NCDFINC /usr/local/include
     25if ( `uname -m` == "x86_64" ) then
     26# 64 bit machines
     27  setenv NCDFLIB /donnees/emlmd/netcdf64-4.0.1_pgi/lib
     28  setenv NCDFINC /donnees/emlmd/netcdf64-4.0.1_pgi/include
     29else
     30  setenv NCDFLIB /donnees/emlmd/netcdf-4.0.1_pgi/lib
     31  setenv NCDFINC /donnees/emlmd/netcdf-4.0.1_pgi/include
     32endif
    3433####
    3534
    … …  
    179178else if $DEC then
    180179else if $LINUX then
    181    set optim90=" -fast"
    182    set optimtru90=" -fast -c -Mfree "
    183 #   set opt_link=" -Mfree -L/usr/local/pgi/linux86/lib -lpgf90 -lpgftnrtl -lpghpf -lpghpf2 -L$NCDFLIB -lnetcdf -Wl,-Bstatic "
    184 # Ehouarn: there is no /usr/local/pgi/linux86/lib, but it doesn't matter
    185 #          also changed -Wl,-Bstatic to -Bstatic
    186    set opt_link=" -Mfree -lpgf90 -lpgftnrtl -lpghpf -lpghpf2 -L$NCDFLIB -lnetcdf -Bstatic "
     180   set optim=" -O2 -Munroll -Mcache_align "
     181   set optim90=" -O2 -Munroll -Mcache_align "
     182   set optimtru90=" -O2 -Munroll -Mcache_align "
     183   set opt_link=" -L$NCDFLIB -lnetcdf"
    187184   set mod_loc_dir=$localdir
    188185   set mod_suffix=mod
     186# Ehouarn 'ifort' compiler
     187#   #NB: on gnome -O3 ==> NaNs ...
     188#   set optim=" -O2 -ip -mkl=sequential -align common "
     189#   set optim90=" -O2 -ip -mkl=sequential -align common "
     190#   set optimtru90=" -O2 -ip -mkl=sequential -align common "
     191#   set mod_loc_dir=$LIBOGCM
     192#   set mod_suffix=mod
    189193else if $NEC then
    190194   set optim90=' -clear -C hopt -float0 -ew -P static -Wf,"-pvctl fullmsg noassume "'
    … …  
    335339########################################################################
    336340
    337     case -d:
     341    case -d
    338342        set dim=$2 ; shift ; shift ; goto top
    339343                       
    340344    case -O:
    341         set optim90="$2" ; shift ; shift ; goto top
     345        set optim90="$2" ; set optim="$2" ; set optimtru90="$2" ; shift ; shift ; goto top
    342346
    343347     case -p
    … …  
    347351        set grille="$2" ; shift ; shift ; goto top
    348352
     353    case -b
     354        set bands=$2 ; shift ; shift ; goto top
     355           
    349356     case -t
    350357        set ntrac=$2 ; shift ; shift ; goto top
    … …  
    375382           set optim90="$optim90"" -G1 "
    376383        else if $LINUX then
    377            set optim90="-g -Mbounds "
     384           set optim="-g -Mbounds -Kieee -Ktrap=fp -traceback"
     385           set optim90="-g -Mbounds -Kieee -Ktrap=fp -traceback"
     386           set optimtru90="-g -Mbounds -Kieee -Ktrap=fp -traceback"
     387#          set optim=" -g -no-ftz -traceback -ftrapuv -fp-stack-check "
     388#           set optim90=" -g -no-ftz -traceback -ftrapuv -fp-stack-check "
     389#           set optimtru90=" -g -no-ftz -traceback -ftrapuv -fp-stack-check "
    378390        else
    379391           echo "pas d option debug predefinie pour cette machine"
    … …  
    387399   endsw
    388400endif
     401
    389402
    390403echo "apres les opts dim $dim"
    … …  
    420433########################################################################
    421434
     435
    422436\rm tmp ; touch tmp
    423437\rm tmp90 ; touch tmp90
    … …  
    437451
    438452# dimension
    439 
    440453echo "dimension avant sed $dim"
    441454if ( $IBM ) then
    … …  
    446459   set dim_=`echo $dim | sed -e 's/[^0-9]/_/g'`
    447460else
    448 #   set dim=`echo $dim | sed -n -e 's/[^0-9]/ /gp'`
    449 #   set dim_=`echo $dim | sed -n -e 's/[^0-9]/_/gp'`
    450461     set dim=`echo $dim | sed -e 's/[^0-9]/ /g'`
    451462     set dim_=`echo $dim | sed -e 's/[^0-9]/_/g'`
    452463endif
     464
     465# bands
     466echo "bands avant sed $bands"
     467if ( $IBM ) then
     468   set bands=`echo $bands | sed -en 's/[^0-9]/ /g'`
     469   set bands_=`echo $bands | sed -en 's/[^0-9]/_/g'`
     470else if ( $SUN || $XNEC ) then
     471   set bands=`echo $bands | sed -e 's/[^0-9]/ /g'`
     472   set bands_=`echo $bands | sed -e 's/[^0-9]/_/g'`
     473else
     474     set bands=`echo $bands | sed -e 's/[^0-9]/ /g'`
     475     set bands_=`echo $bands | sed -e 's/[^0-9]/_/g'`
     476endif
     477
    453478
    454479# build final name of libraries directory:
    … …  
    458483  set nomlib=${nomlib}_${dim_}_t${ntrac}_${grille}
    459484endif
     485
     486# Append number of bands to nomlib (new for universal model)
     487set nomlib=${nomlib}_${bands_}
    460488
    461489# Append 'physique' type, if it is not mars, to nomlib
    … …  
    502530cd $libf/grid
    503531if ( -f dimensions.h ) then
    504   echo "ATTENTION: vous etes sans doute en train de compiler le modele par ailleurs"
    505   echo "Attendez que la premiere compilation soit terminee pour relancer la suivante."
    506   echo "Si vous etes sur que vous ne compilez pas le modele par ailleurs,"
    507   echo "vous pouvez continuer en repondant oui."
    508   echo "Voulez-vous vraiment continuer?"
    509   if ( $< == "oui" ) then
     532  echo "WARNING: you are already compiling the model somewhere else"
     533  echo "Wait until the first compilation is finished before starting."
     534  echo "If you are sure that you are not compiling elsewhere, you can"
     535  echo "type [yes] to continue."
     536  echo "Do you want to continue?"
     537#  echo "ATTENTION: vous etes sans doute en train de compiler le modele par ailleurs"
     538#  echo "Attendez que la premiere compilation soit terminee pour relancer la suivante."
     539#  echo "Si vous etes sur que vous ne compilez pas le modele par ailleurs,"
     540#  echo "vous pouvez continuer en repondant oui."
     541#  echo "Voulez-vous vraiment continuer?"
     542  if ( $< == "yes" ) then
    510543    #remove old dimensions.h file
    511544    \rm $libf/grid/dimensions.h
     545    \rm $libf/grid/bands.h
    512546  else
    513547    exit
    … …  
    520554# echo contents of dimensions.h to standard output
    521555cat $libf/grid/dimensions.h
     556
     557# Build the appropriate 'bands.h' file
     558makbands $bands
     559# echo contents of bands.h to standard output
     560cat $libf/grid/bands.h
    522561
    523562cd $LMDGCM
    … …  
    552591#   Traitement special pour le nouveau rayonnement de Laurent Li.
    553592######################################################################
    554 
    555 if ( -f $libf/phy$physique/raddim.h ) then
    556   if ( -f $libf/phy$physique/raddim.$dimh.h ) then
    557     \rm $libf/phy$physique/raddim.h
    558     cp -p $libf/phy$physique/raddim.$dimh.h $libf/phy$physique/raddim.h
    559     echo $libf/phy$physique/raddim.$dimh.h
    560     cat $libf/phy$physique/raddim.$dimh.h
    561     cat $libf/phy$physique/raddim.h
    562   else
    563     echo On peut diminuer la taille de l executable en creant
    564     echo le fichier $libf/phy$physique/raddim.$dimh.h
    565     \cp -p $libf/phy$physique/raddim.defaut.h $libf/phy$physique/raddim.h
    566   endif
    567 endif
     593#if ( -f $libf/phy$physique/raddim.h ) then
     594#  if ( -f $libf/phy$physique/raddim.$dimh.h ) then
     595#    \rm $libf/phy$physique/raddim.h
     596#    cp -p $libf/phy$physique/raddim.$dimh.h $libf/phy$physique/raddim.h
     597#    echo $libf/phy$physique/raddim.$dimh.h
     598#    cat $libf/phy$physique/raddim.$dimh.h
     599#    cat $libf/phy$physique/raddim.h
     600#  else
     601#    echo On peut diminuer la taille de l executable en creant
     602#    echo le fichier $libf/phy$physique/raddim.$dimh.h
     603#    \cp -p $libf/phy$physique/raddim.defaut.h $libf/phy$physique/raddim.h
     604#  endif
     605#endif
    568606
    569607######################################################################
    … …  
    612650        \cp tmp77 liste_des_sources_f77
    613651        \cp tmp90 liste_des_sources_f90
    614         echo "On recree le makefile"
     652        echo "Remaking the makefile!"
    615653        if ("$dyntype" == "olddyn") then
    616654          ./create_make_gcm olddyn3d grid bibio phy$physique >! tmp
    … …  
    619657        endif
    620658        \mv tmp makefile
    621         echo "Nouveau makefile cree."
     659        echo "New makefile created."
    622660endif
    623661
    … …  
    625663#  Execution de la comande make
    626664########################################################################
     665
    627666
    628667echo PHYSIQUE $phys
    … …  
    643682   set f90=f90
    644683else if $LINUX then
     684#   set f77=ifort
     685#   set f90=ifort
     686#   set opt_link=" -L$LIBOGCM -L$NCDFLIB -lnetcdf "
    645687   set f77=pgf90
    646688   set f90=pgf90
    … …  
    704746# l'optimisation de startvar se passe mal
    705747#
    706 if ($code == 'create_etat0' && $VPP) then
    707    if ( ! -f $libo/libdyn3d.a ) then
    708      echo "Priere de compiler gcm en premier pour des raisons d'optimisation"
    709      \rm $libf/grid/dimensions.h                                             
    710      exit                       
    711    endif
    712    set optim90="$optim90"" -X9 -w"
    713    set opt_link="-L$NCDFLIB -lnetcdf"
    714    touch $LMDGCM/libf/dyn3d/startvar.F
    715    touch $LMDGCM/libf/dyn3d/etat0_netcdf.F
    716 endif
     748#if ($code == 'create_etat0' && $VPP) then
     749#   if ( ! -f $libo/libdyn3d.a ) then
     750#     echo "Priere de compiler gcm en premier pour des raisons d'optimisation"
     751#     \rm $libf/grid/dimensions.h                                             
     752#     exit                       
     753#   endif
     754#   set optim90="$optim90"" -X9 -w"
     755#   set opt_link="-L$NCDFLIB -lnetcdf"
     756#   touch $LMDGCM/libf/dyn3d/startvar.F
     757#   touch $LMDGCM/libf/dyn3d/etat0_netcdf.F
     758#endif
    717759
    718760#
    … …  
    738780 set optimtru90=" $optimtru90 -I$libo "
    739781else if $LINUX then
     782# set optim="$optim -I${libo}"
     783# set optim90="$optim90 -I${libo}"
     784# set optimtru90="$optimtru90 -ffree-form -I${libo}"
     785 set optim="$optim -module $libo"
    740786 set optim90="$optim90 -module $libo"
    741787 set optimtru90="$optimtru90 -module $libo"
    … …  
    757803cd $localdir
    758804
     805
    759806echo $make -f $LMDGCM/makefile \
    760807OPTION_DEP="$opt_dep" OPTION_LINK="$opt_link" \
     808OPTIM="$optim" \
    761809OPTIM90="$optim90" \
    762810OPTIMTRU90="$optimtru90" \
    … …  
    783831$make -f $LMDGCM/makefile \
    784832OPTION_DEP="$opt_dep" OPTION_LINK="$opt_link" \
     833OPTIM="$optim" \
    785834OPTIM90="$optim90" \
    786835OPTIMTRU90="$optimtru90" \
    … …  
    805854
    806855\rm $libf/grid/dimensions.h
     856\rm $libf/grid/bands.h

  • trunk/LMDZ.GENERIC/tmp

    r135 r253  
    1 fast
     1O2
     2ip
     3mklsequential
     4align
     5common

  • trunk/LMDZ.GENERIC/tmp77

    r135 r253  
    179179libf/filtrez/jacobi.F
    180180libf/filtrez/parafilt.h
    181 libf/grid/fxyprim.h
    182181libf/grid/fxy_new.h
    183182libf/grid/fxy_reg.h
    184183libf/grid/fxy_sin.h
     184libf/grid/fxyprim.h
    185185libf/grid/dimensions.h
    186186libf/grid/bands.h
    187187libf/phystd/aerave.F
     188libf/phystd/aerave_new.F
    188189libf/phystd/blackl.F
    189 libf/phystd/physiq.F
    190 libf/phystd/callcorrk.F
    191 libf/phystd/tracer.h
    192190libf/phystd/callkeys.h
     191libf/phystd/callsedim.F
    193192libf/phystd/comcstfi.h
    194 libf/phystd/cvmgp.F
    195193libf/phystd/comdiurn.h
    196194libf/phystd/comg1d.h
    197195libf/phystd/comgeomfi.h
    198 libf/phystd/solarlong.F
    199196libf/phystd/comsaison.h
     197libf/phystd/comsoil.h
    200198libf/phystd/convadj.F
     199libf/phystd/cpdet.F
     200libf/phystd/cpdet.h
     201libf/phystd/cvmgp.F
    201202libf/phystd/cvmgt.F
    202 libf/phystd/lagrange.F
    203203libf/phystd/datafile.h
    204204libf/phystd/datareadnc.F
    205205libf/phystd/dimphys.h
    206 libf/phystd/tabfi.F
     206libf/phystd/dsolver.F
     207libf/phystd/dtridgl.F
     208libf/phystd/evap.F
    207209libf/phystd/fisice.h
    208 libf/phystd/optcv.F
    209 libf/phystd/phyetat0.F
    210 libf/phystd/planete.h
     210libf/phystd/forceWCfn.F
     211libf/phystd/gases.h
     212libf/phystd/gfluxi.F
     213libf/phystd/gfluxv.F
    211214libf/phystd/inifis.F
    212215libf/phystd/iniorbit.F
    … …  
    214217libf/phystd/initracer.F
    215218libf/phystd/iniwrite.F
     219libf/phystd/iniwrite_spec.F
     220libf/phystd/interp_line.F
    216221libf/phystd/ismax.F
    217222libf/phystd/ismin.F
    218 libf/phystd/physdem1.F
     223libf/phystd/lagrange.F
     224libf/phystd/largescale.F
    219225libf/phystd/mucorr.F
    220226libf/phystd/mufract.F
    221227libf/phystd/multipl.F
     228libf/phystd/newsedim.F
     229libf/phystd/orbite.F
     230libf/phystd/phyetat0.F
     231libf/phystd/physdem1.F
     232libf/phystd/planete.h
     233libf/phystd/profile.F
     234libf/phystd/rcm1d.F
     235libf/phystd/scopyi.F
     236libf/phystd/sfluxi.F
    222237libf/phystd/sfluxv.F
    223 libf/phystd/orbite.F
    224 libf/phystd/profile.F
    225 libf/phystd/scopyi.F
     238libf/phystd/soil.F
     239libf/phystd/soil_settings.F
     240libf/phystd/statto.h
     241libf/phystd/stelang.F
     242libf/phystd/stellarlong.F
     243libf/phystd/surface_nature.F
     244libf/phystd/surfdat.h
    226245libf/phystd/surfini.F
     246libf/phystd/tabfi.F
     247libf/phystd/tpindex.F
     248libf/phystd/tracer.h
    227249libf/phystd/vdifc.F
    228 libf/phystd/soil.F
    229 libf/phystd/solang.F
    230 libf/phystd/statto.h
    231 libf/phystd/surfdat.h
    232250libf/phystd/vdif_cd.F
    233251libf/phystd/vdif_kc.F
    234252libf/phystd/vlz_fi.F
    235253libf/phystd/watercap.h
    236 libf/phystd/comsoil.h
    237254libf/phystd/writediagfi.F
     255libf/phystd/writediagspec.F
    238256libf/phystd/writeg1d.F
    239257libf/phystd/zerophys.F
    240 libf/phystd/callsedim.F
    241 libf/phystd/interp_line.F
    242 libf/phystd/soil_settings.F
    243 libf/phystd/sfluxi.F
    244 libf/phystd/tpindex.F
    245 libf/phystd/gfluxv.F
    246 libf/phystd/gfluxi.F
    247 libf/phystd/dsolver.F
    248 libf/phystd/dtridgl.F
    249 libf/phystd/co2snow.F
    250 libf/phystd/testphys1d.F
    251 libf/phystd/kastprof_fn.F
    252 libf/phystd/newsedim.F
    253 libf/phystd/aerave_new.F
    254 libf/phystd/iniwrite_spec.F
    255 libf/phystd/writediagspec.F
    256 libf/phystd/largescale2.F

  • trunk/LMDZ.GENERIC/tmp90

    r135 r253  
    33libf/bibio/ioipsl_stringop.F90
    44libf/phystd/aeropacity.F90
     5libf/phystd/aeroptproperties.F90
     6libf/phystd/ave_stelspec.F90
     7libf/phystd/calc_cpp3d.F90
     8libf/phystd/calc_cpp_mugaz.F90
     9libf/phystd/calc_rayleigh.F90
     10libf/phystd/callcorrk.F90
     11libf/phystd/condens_co2cloud.F90
     12libf/phystd/def_var.F90
     13libf/phystd/hydrol.F90
     14libf/phystd/iniwritesoil.F90
     15libf/phystd/interpolateH2H2.F90
     16libf/phystd/kastprof_fn.F90
     17libf/phystd/mkstat.F90
     18libf/phystd/moistadj.F90
     19libf/phystd/N2broadprof_fn.F90
     20libf/phystd/newtrelax.F90
     21libf/phystd/optci.F90
     22libf/phystd/optcv.F90
     23libf/phystd/physiq.F90
     24libf/phystd/radcommon_h.F90
     25libf/phystd/radinc_h.F90
     26libf/phystd/rain.F90
     27libf/phystd/setspi.F90
     28libf/phystd/setspv.F90
     29libf/phystd/simpleprof_fn.F90
     30libf/phystd/stokes.F90
    531libf/phystd/suaer_corrk.F90
    6 libf/phystd/radcommon_h.F90
    7 libf/phystd/condens_co2cloud.F90
    832libf/phystd/sugas_corrk.F90
    9 libf/phystd/def_var.F90
    10 libf/phystd/rain.F90
    11 libf/phystd/radinc_h.F90
    12 libf/phystd/optci.F90
    13 libf/phystd/mkstat.F90
    14 libf/phystd/setspi.F90
    15 libf/phystd/aeroptproperties.F90
    16 libf/phystd/stokes.F90
    17 libf/phystd/setspv.F90
     33libf/phystd/su_gases.F90
     34libf/phystd/su_watercycle.F90
     35libf/phystd/totalcloudfrac.F90
    1836libf/phystd/watercommon_h.F90
     37libf/phystd/watersat.F90
     38libf/phystd/watersat_grad.F90
     39libf/phystd/writediagsoil.F90
    1940libf/phystd/wstats.F90
    20 libf/phystd/iniwritesoil.F90
    21 libf/phystd/writediagsoil.F90
    22 libf/phystd/su_watercycle.F90
    23 libf/phystd/aeroptpropertiesJBnew.F90
    24 libf/phystd/watersat_2.F90
    25 libf/phystd/moistadj.F90
    26 libf/phystd/watersat_grad.F90
    27 libf/phystd/ave_stelspec.F90
    28 libf/phystd/calc_rayleigh.F90
    29 libf/phystd/calc_cpp3d.F90
Note: See TracChangeset for help on using the changeset viewer.