Ignore:
Timestamp:
Jan 27, 2016, 10:42:32 AM (8 years ago)
Author:
idelkadi
Message:

Mise a jour du simulateur COSP (passage de la version v3.2 a la version v1.4) :

  • mise a jour des sources pour ISCCP, CALIPSO et PARASOL
  • prise en compte des changements de phases pour les nuages (Calipso)
  • rajout de plusieurs diagnostiques (fraction nuageuse en fonction de la temperature, ...)

http://lmdz.lmd.jussieu.fr/Members/aidelkadi/cosp

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cosp/read_cosp_output_nl.F90

    r1907 r2428  
    1111  integer :: i
    1212
    13   logical, save ::   Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim, &
    14              Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,Lcfad_dbze94, &
    15              Lcfad_lidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp2,Lcllcalipso, &
    16              Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lctpisccp,Ldbze94,Ltauisccp,Ltclisccp, &
    17              Llongitude,Llatitude,Lparasol_refl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
    18              Lfrac_out,Lbeta_mol532,Ltbrttov
    19 
    20   namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim, &
    21              Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,Lcfad_dbze94, &
    22              Lcfad_lidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp2, &
    23              Lcllcalipso,Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lctpisccp,Ldbze94,Ltauisccp, &
    24              Ltclisccp,Llongitude,Llatitude,Lparasol_refl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
    25              Lfrac_out,Lbeta_mol532,Ltbrttov
    26 
     13!! AI
     14!  logical, save ::   Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim, &
     15!             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,Lcfad_dbze94, &
     16!             Lcfad_lidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp2,Lcllcalipso, &
     17!             Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lctpisccp,Ldbze94,Ltauisccp,Ltclisccp, &
     18!             Llongitude,Llatitude,Lparasol_refl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
     19!             Lfrac_out,Lbeta_mol532,Ltbrttov
     20
     21!  namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim, &
     22!             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,Lcfad_dbze94, &
     23!             Lcfad_lidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp2, &
     24!             Lcllcalipso,Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lctpisccp,Ldbze94,Ltauisccp, &
     25!             Ltclisccp,Llongitude,Llatitude,Lparasol_refl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
     26!             Lfrac_out,Lbeta_mol532,Ltbrttov
     27!!
     28
     29 logical, save :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
     30             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
     31             LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
     32             Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp,Lcltisccp, &
     33             Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun, &
     34             Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun, &
     35             Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun, &
     36             Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun, &
     37             Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun, &
     38             Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun, &
     39             Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
     40             Lfracout,LlidarBetaMol532,Ltbrttov, &
     41             Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
     42             Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
     43             Liwpmodis,Lclmodis
     44
     45  namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
     46             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
     47             LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp, &
     48             Lcllcalipso,Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp, &
     49             Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun, &
     50             Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun, &
     51             Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun, &
     52             Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun, &
     53             Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun, &
     54             Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun, &
     55             Lcltisccp,Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp, &
     56             Lfracout,LlidarBetaMol532,Ltbrttov, &
     57             Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
     58             Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
     59             Liwpmodis,Lclmodis
     60   
    2761  do i=1,N_OUT_LIST
    2862    cfg%out_list(i)=''
    … …  
    3872  CALL bcast(Llidar_sim)
    3973  CALL bcast(Lisccp_sim)
     74  CALL bcast(Lmodis_sim)
    4075  CALL bcast(Lmisr_sim)
    4176  CALL bcast(Lrttov_sim)
    … …  
    4984  CALL bcast(Lclcalipso)
    5085  CALL bcast(Lclhcalipso)
     86  CALL bcast(Lclcalipsoliq)
     87  CALL bcast(Lclcalipsoice)
     88  CALL bcast(Lclcalipsoun)
     89  CALL bcast(Lclcalipsotmp)
     90  CALL bcast(Lclcalipsotmpliq)
     91  CALL bcast(Lclcalipsotmpice)
     92  CALL bcast(Lclcalipsotmpun)
     93  CALL bcast(Lcltcalipsoliq)
     94  CALL bcast(Lcltcalipsoice)
     95  CALL bcast(Lcltcalipsoun)
     96  CALL bcast(Lclhcalipsoliq)
     97  CALL bcast(Lclhcalipsoice)
     98  CALL bcast(Lclhcalipsoun)
     99  CALL bcast(Lclmcalipsoliq)
     100  CALL bcast(Lclmcalipsoice)
     101  CALL bcast(Lclmcalipsoun)
     102  CALL bcast(Lcllcalipsoliq)
     103  CALL bcast(Lcllcalipsoice)
     104  CALL bcast(Lcllcalipsoun)
    51105  CALL bcast(Lclisccp2)
    52106  CALL bcast(Lcllcalipso)
    … …  
    57111  CALL bcast(Ldbze94)
    58112  CALL bcast(Ltauisccp)
    59   CALL bcast(Ltclisccp)
    60   CALL bcast(Llongitude)
    61   CALL bcast(Llatitude)
     113  CALL bcast(Lcltisccp)
    62114  CALL bcast(Lparasol_refl)
    63115  CALL bcast(LclMISR)
    … …  
    66118  CALL bcast(Lfrac_out)
    67119  CALL bcast(Lbeta_mol532)
     120  CALL bcast(Lcltmodis)
     121  CALL bcast(Lclwmodis)
     122  CALL bcast(Lclimodis)
     123  CALL bcast(Lclhmodis)
     124  CALL bcast(Lclmmodis)
     125  CALL bcast(Lcllmodis)
     126  CALL bcast(Ltautmodis)
     127  CALL bcast(Ltauwmodis)
     128  CALL bcast(Ltauimodis)
     129  CALL bcast(Ltautlogmodis)
     130  CALL bcast(Ltauwlogmodis)
     131  CALL bcast(Ltauilogmodis)
     132  CALL bcast(Lreffclwmodis)
     133  CALL bcast(Lreffclimodis)
     134  CALL bcast(Lpctmodis)
     135  CALL bcast(Llwpmodis)
     136  CALL bcast(Liwpmodis)
     137  CALL bcast(Lclmodis)
    68138  CALL bcast(Ltbrttov)
    69139!$OMP BARRIER
    … …  
    92162    Lparasol_refl    = .false.
    93163    Lbeta_mol532     = .false.
     164!! AI
     165    Lclcalipsoliq    = .false.
     166    Lclcalipsoice    = .false.
     167    Lclcalipsoun    = .false.
     168    Lclcalipsotmp    = .false.
     169    Lclcalipsotmpun    = .false.
     170    Lclcalipsotmpliq    = .false.
     171    Lclcalipsotmpice    = .false.
     172    Lclhcalipsoliq      = .false.
     173    Lcllcalipsoliq      = .false.
     174    Lclmcalipsoliq     = .false.
     175    Lcltcalipsoliq      = .false.
     176    Lclhcalipsoice      = .false.
     177    Lcllcalipsoice      = .false.
     178    Lclmcalipsoice      = .false.
     179    Lcltcalipsoice      = .false.
     180    Lclhcalipsoun      = .false.
     181    Lcllcalipsoun      = .false.
     182    Lclmcalipsoun      = .false.
     183    Lcltcalipsoun      = .false.
    94184  endif
    95185  if (.not.Lisccp_sim) then
    … …  
    114204    Lfrac_out = .false.
    115205  endif
     206 if (.not.Lmodis_sim) then
     207    Lcltmodis=.false.
     208    Lclwmodis=.false.
     209    Lclimodis=.false.
     210    Lclhmodis=.false.
     211    Lclmmodis=.false.
     212    Lcllmodis=.false.
     213    Ltautmodis=.false.
     214    Ltauwmodis=.false.
     215    Ltauimodis=.false.
     216    Ltautlogmodis=.false.
     217    Ltauwlogmodis=.false.
     218    Ltauilogmodis=.false.
     219    Lreffclwmodis=.false.
     220    Lreffclimodis=.false.
     221    Lpctmodis=.false.
     222    Llwpmodis=.false.
     223    Liwpmodis=.false.
     224    Lclmodis=.false.
     225  endif
     226  if (Lmodis_sim) Lisccp_sim = .true.
    116227
    117228  ! Diagnostics that use Radar and Lidar
    … …  
    130241  cfg%Llidar_sim = Llidar_sim
    131242  cfg%Lisccp_sim = Lisccp_sim
     243  cfg%Lmodis_sim = Lmodis_sim
    132244  cfg%Lmisr_sim  = Lmisr_sim
    133245  cfg%Lrttov_sim = Lrttov_sim
    … …  
    149261  if (Lboxtauisccp)     cfg%out_list(i) = 'boxtauisccp'
    150262  i = i+1
    151   if (Lcfad_dbze94)     cfg%out_list(i) = 'cfad_dbze94'
    152   i = i+1
    153   if (Lcfad_lidarsr532) cfg%out_list(i) = 'cfad_lidarsr532'
     263  if (LcfadDbze94)      cfg%out_list(i) = 'cfadDbze94'
     264  i = i+1
     265  if (LcfadLidarsr532)  cfg%out_list(i) = 'cfadLidarsr532'
    154266  i = i+1
    155267  if (Lclcalipso2)      cfg%out_list(i) = 'clcalipso2'
    … …  
    159271  if (Lclhcalipso)      cfg%out_list(i) = 'clhcalipso'
    160272  i = i+1
    161   if (Lclisccp2)        cfg%out_list(i) = 'clisccp2'
     273  if (Lclisccp)         cfg%out_list(i) = 'clisccp'
    162274  i = i+1
    163275  if (Lcllcalipso)      cfg%out_list(i) = 'cllcalipso'
    … …  
    167279  if (Lcltcalipso)      cfg%out_list(i) = 'cltcalipso'
    168280  i = i+1
     281
     282  if (Lcllcalipsoice)      cfg%out_list(i) = 'cllcalipsoice'
     283  i = i+1
     284  if (Lclmcalipsoice)      cfg%out_list(i) = 'clmcalipsoice'
     285  i = i+1
     286  if (Lclhcalipsoice)      cfg%out_list(i) = 'clhcalipsoice'
     287  i = i+1
     288  if (Lcltcalipsoice)      cfg%out_list(i) = 'cltcalipsoice'
     289  i = i+1
     290  if (Lcllcalipsoliq)      cfg%out_list(i) = 'cllcalipsoliq'
     291  i = i+1
     292  if (Lclmcalipsoliq)      cfg%out_list(i) = 'clmcalipsoliq'
     293  i = i+1
     294  if (Lclhcalipsoliq)      cfg%out_list(i) = 'clhcalipsoliq'
     295  i = i+1
     296  if (Lcltcalipsoliq)      cfg%out_list(i) = 'cltcalipsoliq'
     297  i = i+1
     298  if (Lcllcalipsoun)      cfg%out_list(i) = 'cllcalipsoun'
     299  i = i+1
     300  if (Lclmcalipsoun)      cfg%out_list(i) = 'clmcalipsoun'
     301  i = i+1
     302  if (Lclhcalipsoun)      cfg%out_list(i) = 'clhcalipsoun'
     303  i = i+1
     304  if (Lcltcalipsoun)      cfg%out_list(i) = 'cltcalipsoun'
     305  i = i+1
     306
     307  if (Lclcalipsoice)       cfg%out_list(i) = 'clcalipsoice'
     308  i = i+1
     309  if (Lclcalipsoliq)       cfg%out_list(i) = 'clcalipsoliq'
     310  i = i+1
     311  if (Lclcalipsoun)       cfg%out_list(i) = 'clcalipsoun'
     312  i = i+1
     313
     314  if (Lclcalipsotmp)       cfg%out_list(i) = 'clcalipsotmp'
     315  i = i+1
     316  if (Lclcalipsotmpice)       cfg%out_list(i) = 'clcalipsotmpice'
     317  i = i+1
     318  if (Lclcalipsotmpliq)       cfg%out_list(i) = 'clcalipsotmpliq'
     319  i = i+1
     320  if (Lclcalipsotmpun)       cfg%out_list(i) = 'clcalipsotmpun'
     321  i = i+1
    169322  if (Lcltlidarradar)   cfg%out_list(i) = 'cltlidarradar'
    170323  i = i+1
    171   if (Lctpisccp)        cfg%out_list(i) = 'ctpisccp'
     324  if (Lpctisccp)        cfg%out_list(i) = 'pctisccp'
    172325  i = i+1
    173326  if (Ldbze94)          cfg%out_list(i) = 'dbze94'
    … …  
    175328  if (Ltauisccp)        cfg%out_list(i) = 'tauisccp'
    176329  i = i+1
    177   if (Ltclisccp)        cfg%out_list(i) = 'tclisccp'
    178   i = i+1
    179   if (Llongitude)       cfg%out_list(i) = 'lon'
    180   i = i+1
    181   if (Llatitude)        cfg%out_list(i) = 'lat'
    182   i = i+1
    183   if (Lparasol_refl)    cfg%out_list(i) = 'parasol_refl'
     330  if (Lcltisccp)        cfg%out_list(i) = 'cltisccp'
     331  i = i+1
     332  if (Ltoffset)         cfg%out_list(i) = 'toffset'
     333  i = i+1
     334  if (LparasolRefl)     cfg%out_list(i) = 'parasolRefl'
    184335  i = i+1
    185336  if (LclMISR)          cfg%out_list(i) = 'clMISR'
    … …  
    189340  if (Lmeantbclrisccp)  cfg%out_list(i) = 'meantbclrisccp'
    190341  i = i+1
    191   if (Lfrac_out)        cfg%out_list(i) = 'frac_out'
    192   i = i+1
    193   if (Lbeta_mol532)     cfg%out_list(i) = 'beta_mol532'
     342  if (Lfracout)         cfg%out_list(i) = 'fracout'
     343  i = i+1
     344  if (LlidarBetaMol532) cfg%out_list(i) = 'lidarBetaMol532'
    194345  i = i+1
    195346  if (Ltbrttov)         cfg%out_list(i) = 'tbrttov'
    196 
     347  i = i+1
     348  if (Lcltmodis)        cfg%out_list(i) = 'cltmodis'
     349  i = i+1
     350  if (Lclwmodis)        cfg%out_list(i) = 'clwmodis'
     351  i = i+1
     352  if (Lclimodis)        cfg%out_list(i) = 'climodis'
     353  i = i+1
     354  if (Lclhmodis)        cfg%out_list(i) = 'clhmodis'
     355  i = i+1
     356  if (Lclmmodis)        cfg%out_list(i) = 'clmmodis'
     357  i = i+1
     358  if (Lcllmodis)        cfg%out_list(i) = 'cllmodis'
     359  i = i+1
     360  if (Ltautmodis)       cfg%out_list(i) = 'tautmodis'
     361  i = i+1
     362  if (Ltauwmodis)       cfg%out_list(i) = 'tauwmodis'
     363  i = i+1
     364  if (Ltauimodis)       cfg%out_list(i) = 'tauimodis'
     365  i = i+1
     366  if (Ltautlogmodis)    cfg%out_list(i) = 'tautlogmodis'
     367  i = i+1
     368  if (Ltauwlogmodis)    cfg%out_list(i) = 'tauwlogmodis'
     369  i = i+1
     370  if (Ltauilogmodis)    cfg%out_list(i) = 'tauilogmodis'
     371  i = i+1
     372  if (Lreffclwmodis)    cfg%out_list(i) = 'reffclwmodis'
     373  i = i+1
     374  if (Lreffclimodis)    cfg%out_list(i) = 'reffclimodis'
     375  i = i+1
     376  if (Lpctmodis)        cfg%out_list(i) = 'pctmodis'
     377  i = i+1
     378  if (Llwpmodis)        cfg%out_list(i) = 'lwpmodis'
     379  i = i+1
     380  if (Liwpmodis)        cfg%out_list(i) = 'iwpmodis'
     381  i = i+1
     382  if (Lclmodis)         cfg%out_list(i) = 'clmodis'
     383   
    197384  if (i /= N_OUT_LIST) then
    198385     print *, 'COSP_IO: wrong number of output diagnostics'
     386     print *, i,N_OUT_LIST
    199387     stop
    200388  endif
    201389
    202390  ! Copy diagnostic flags to cfg structure
     391  ! ISCCP simulator 
    203392  cfg%Lalbisccp = Lalbisccp
    204393  cfg%Latb532 = Latb532
    205394  cfg%Lboxptopisccp = Lboxptopisccp
    206395  cfg%Lboxtauisccp = Lboxtauisccp
    207   cfg%Lcfad_dbze94 = Lcfad_dbze94
    208   cfg%Lcfad_lidarsr532 = Lcfad_lidarsr532
     396  cfg%Lmeantbisccp = Lmeantbisccp
     397  cfg%Lmeantbclrisccp = Lmeantbclrisccp
     398  cfg%Lclisccp = Lclisccp
     399  cfg%Lpctisccp = Lpctisccp
     400  cfg%Ltauisccp = Ltauisccp
     401  cfg%Lcltisccp = Lcltisccp
     402  ! CloudSat simulator 
     403  cfg%Ldbze94 = Ldbze94
     404  cfg%LcfadDbze94 = LcfadDbze94
     405  ! CALIPSO/PARASOL simulator 
     406  cfg%LcfadLidarsr532 = LcfadLidarsr532
    209407  cfg%Lclcalipso2 = Lclcalipso2
    210408  cfg%Lclcalipso = Lclcalipso
    211409  cfg%Lclhcalipso = Lclhcalipso
    212   cfg%Lclisccp2 = Lclisccp2
    213410  cfg%Lcllcalipso = Lcllcalipso
    214411  cfg%Lclmcalipso = Lclmcalipso
    215412  cfg%Lcltcalipso = Lcltcalipso
     413  cfg%Lclhcalipsoice = Lclhcalipsoice
     414  cfg%Lcllcalipsoice = Lcllcalipsoice
     415  cfg%Lclmcalipsoice = Lclmcalipsoice
     416  cfg%Lcltcalipsoice = Lcltcalipsoice
     417  cfg%Lclhcalipsoliq = Lclhcalipsoliq
     418  cfg%Lcllcalipsoliq = Lcllcalipsoliq
     419  cfg%Lclmcalipsoliq = Lclmcalipsoliq
     420  cfg%Lcltcalipsoliq = Lcltcalipsoliq
     421  cfg%Lclhcalipsoun = Lclhcalipsoun
     422  cfg%Lcllcalipsoun = Lcllcalipsoun
     423  cfg%Lclmcalipsoun = Lclmcalipsoun
     424  cfg%Lcltcalipsoun = Lcltcalipsoun
     425  cfg%Lclcalipsoice = Lclcalipsoice
     426  cfg%Lclcalipsoliq = Lclcalipsoliq
     427  cfg%Lclcalipsoun = Lclcalipsoun
     428  cfg%Lclcalipsotmp = Lclcalipsotmp
     429  cfg%Lclcalipsotmpice = Lclcalipsotmpice
     430  cfg%Lclcalipsotmpliq = Lclcalipsotmpliq
     431  cfg%Lclcalipsotmpun = Lclcalipsotmpun
    216432  cfg%Lcltlidarradar = Lcltlidarradar
    217   cfg%Lctpisccp = Lctpisccp
    218   cfg%Ldbze94 = Ldbze94
    219   cfg%Ltauisccp = Ltauisccp
    220   cfg%Ltclisccp = Ltclisccp
    221   cfg%Llongitude = Llongitude
    222   cfg%Llatitude = Llatitude
    223   cfg%Lparasol_refl = Lparasol_refl
     433  cfg%LparasolRefl = LparasolRefl
     434  ! MISR simulator 
    224435  cfg%LclMISR = LclMISR
    225   cfg%Lmeantbisccp = Lmeantbisccp
    226   cfg%Lmeantbclrisccp = Lmeantbclrisccp
    227   cfg%Lfrac_out = Lfrac_out
    228   cfg%Lbeta_mol532 = Lbeta_mol532
     436  ! Other
     437  cfg%Ltoffset = Ltoffset
     438  cfg%Lfracout = Lfracout
     439  cfg%LlidarBetaMol532 = LlidarBetaMol532
     440  ! RTTOV
    229441  cfg%Ltbrttov = Ltbrttov
    230 
     442  ! MODIS simulator 
     443  cfg%Lcltmodis=Lcltmodis
     444  cfg%Lclwmodis=Lclwmodis
     445  cfg%Lclimodis=Lclimodis
     446  cfg%Lclhmodis=Lclhmodis
     447  cfg%Lclmmodis=Lclmmodis
     448  cfg%Lcllmodis=Lcllmodis
     449  cfg%Ltautmodis=Ltautmodis
     450  cfg%Ltauwmodis=Ltauwmodis
     451  cfg%Ltauimodis=Ltauimodis
     452  cfg%Ltautlogmodis=Ltautlogmodis
     453  cfg%Ltauwlogmodis=Ltauwlogmodis
     454  cfg%Ltauilogmodis=Ltauilogmodis
     455  cfg%Lreffclwmodis=Lreffclwmodis
     456  cfg%Lreffclimodis=Lreffclimodis
     457  cfg%Lpctmodis=Lpctmodis
     458  cfg%Llwpmodis=Llwpmodis
     459  cfg%Liwpmodis=Liwpmodis
     460  cfg%Lclmodis=Lclmodis
     461 
    231462 END SUBROUTINE READ_COSP_OUTPUT_NL
    232463
Note: See TracChangeset for help on using the changeset viewer.