Changeset 716 for trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

Timestamp:

Jul 3, 2012, 8:09:54 PM (13 years ago)

Author:

rwordsworth

Message:

Mainly updates to radiative transfer and gas management scheme.
Most CIA data now read from standard HITRAN datafiles. For the H2O
continuum, two options have been added: the standard CKD continuum,
and the empirical formula in PPC (Pierrehumbert 2010). Use the toggle
'H2Ocont_simple' in callphys.def to choose.

Note to Martians: I've changed the default values of 'sedimentation' and
'co2cond' in inifis to false. Both these are defined in the standard deftank
callphys.def file, so there shouldn't be any compatibility problems.

File:

• trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90 (modified) (5 diffs)

trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

@@ -7 +7 @@
           reffrad,tau_col,cloudfrac,totcloudfrac,              &
           clearsky,firstcall,lastcall)
-
 
       use radinc_h
@@ -201 +200 @@
       giaer(:,:,:) =0.0
       radfixed=.false.
-
 
       if(firstcall) then
@@ -275 +273 @@
          endif
 
-         OLR_nu=0.
-         OSR_nu=0.
+         OLR_nu(:,:) = 0.
+         OSR_nu(:,:) = 0.
 
          if (ngridmx.eq.1) then
@@ -429 +427 @@
            reffrad,QREFvis3d,QREFir3d,                             & 
            tau_col,cloudfrac,totcloudfrac,clearsky)                ! get aerosol optical depths
-
 
 !-----------------------------------------------------------------------
@@ -933 +930 @@
       endif
 
+
     end subroutine callcorrk