Ignore:
Timestamp:
Nov 24, 2016, 4:02:04 PM (8 years ago)
Author:
idelkadi
Message:

Mise a jour du simulateur COSP.
Passage de la version 1.4.0 a la version 1.4.1
(Version suggeree pour CFMIP3/CMIP6)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/cosp/read_cosp_output_nl.F90

    r2428 r2713  
    4141             Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
    4242             Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
    43              Liwpmodis,Lclmodis
     43             Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis
    4444
    4545  namelist/COSP_OUTPUT/Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, &
     
    5757             Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis,Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis, &
    5858             Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis, &
    59              Liwpmodis,Lclmodis
     59             Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis
    6060   
    6161  do i=1,N_OUT_LIST
     
    137137  CALL bcast(Lclmodis)
    138138  CALL bcast(Ltbrttov)
     139  CALL bcast(Lcrimodis)
     140  CALL bcast(Lcrlmodis)
     141
    139142!$OMP BARRIER
    140143
     
    223226    Liwpmodis=.false.
    224227    Lclmodis=.false.
     228    Lcrimodis=.false.
     229    Lcrlmodis=.false.
    225230  endif
    226231  if (Lmodis_sim) Lisccp_sim = .true.
     
    381386  i = i+1
    382387  if (Lclmodis)         cfg%out_list(i) = 'clmodis'
     388  i = i+1
     389  if (Lcrimodis)         cfg%out_list(i) = 'crimodis'
     390  i = i+1
     391  if (Lcrlmodis)         cfg%out_list(i) = 'crlmodis'
    383392   
    384393  if (i /= N_OUT_LIST) then
     
    459468  cfg%Liwpmodis=Liwpmodis
    460469  cfg%Lclmodis=Lclmodis
    461  
     470  cfg%Lcrimodis=Lcrimodis
     471  cfg%Lcrlmodis=Lcrlmodis
     472
    462473 END SUBROUTINE READ_COSP_OUTPUT_NL
    463474
Note: See TracChangeset for help on using the changeset viewer.