Changeset 3491


Ignore:
Timestamp:
May 2, 2019, 3:03:32 PM (5 years ago)
Author:
idelkadi
Message:

Integration of version 2 of the COSP simulator in LMDZ
This line, and those below, will be ignored--

M makegcm
M makelmdz
M makelmdz_fcm
M libf/phylmd/physiq_mod.F90
A libf/phylmd/cospv2
A libf/phylmd/cospv2/mo_rng.F90
A libf/phylmd/cospv2/quickbeam_optics.F90
A libf/phylmd/cospv2/cosp_cloudsat_interface.F90
A libf/phylmd/cospv2/cosp_config.F90
A libf/phylmd/cospv2/lidar_simulator.F90
A libf/phylmd/cospv2/prec_scops.F90
A libf/phylmd/cospv2/mrgrnk.F90
A libf/phylmd/cospv2/lmdz_cosp_read_outputkeys.F90
A libf/phylmd/cospv2/cosp_atlid_interface.F90
A libf/phylmd/cospv2/lmdz_cosp_subsample_and_optics_mod.F90
A libf/phylmd/cospv2/cosp_math_constants.F90
A libf/phylmd/cospv2/MISR_simulator.F90
A libf/phylmd/cospv2/modis_simulator.F90
A libf/phylmd/cospv2/math_lib.F90
A libf/phylmd/cospv2/cosp_grLidar532_interface.F90
A libf/phylmd/cospv2/cosp_errorHandling.F90
A libf/phylmd/cospv2/cosp_stats.F90
A libf/phylmd/cospv2/lmdz_cosp_output_write_mod.F90
A libf/phylmd/cospv2/cosp_utils.F90
A libf/phylmd/cospv2/cosp_optics.F90
A libf/phylmd/cospv2/icarus.F90
A libf/phylmd/cospv2/scops.F90
A libf/phylmd/cospv2/optics_lib.F90
A libf/phylmd/cospv2/cosp_kinds.F90
A libf/phylmd/cospv2/cosp_calipso_interface.F90
A libf/phylmd/cospv2/quickbeam.F90
A libf/phylmd/cospv2/parasol.F90
A libf/phylmd/cospv2/cosp_phys_constants.F90
A libf/phylmd/cospv2/cosp.F90
A libf/phylmd/cospv2/array_lib.F90
A libf/phylmd/cospv2/cosp_isccp_interface.F90
A libf/phylmd/cospv2/cosp_parasol_interface.F90
A libf/phylmd/cospv2/lmdz_cosp_construct_destroy_mod.F90
A libf/phylmd/cospv2/lmdz_cosp_output_mod.F90
A libf/phylmd/cospv2/lmdz_cosp_interface.F90
A libf/phylmd/cospv2/cosp_misr_interface.F90
A libf/phylmd/cospv2/cosp_modis_interface.F90

Location:
LMDZ6/trunk
Files:
38 added
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3490 r3491  
    45824582#endif
    45834583
     4584#ifdef CPP_COSPV2
     4585       IF (itap.eq.1.or.MOD(itap,NINT(freq_cosp/phys_tstep)).EQ.0) THEN
     4586
     4587          IF (prt_level .GE.10) THEN
     4588             print*,'freq_cosp',freq_cosp
     4589          ENDIF
     4590          mr_ozone=wo(:, :, 1) * dobson_u * 1e3 / zmasse
     4591                 print*,'Dans physiq.F avant appel '
     4592          !     s        ref_liq,ref_ice
     4593          CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, &
     4594               ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
     4595               ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
     4596               klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
     4597               JrNt,ref_liq,ref_ice, &
     4598               pctsrf(:,is_ter)+pctsrf(:,is_lic), &
     4599               zu10m,zv10m,pphis, &
     4600               zphi,paprs(:,1:klev),pplay,zxtsol,t_seri, &
     4601               qx(:,:,ivap),zx_rh,cldfra,rnebcon,flwc,fiwc, &
     4602               prfl(:,1:klev),psfl(:,1:klev), &
     4603               pmflxr(:,1:klev),pmflxs(:,1:klev), &
     4604               mr_ozone,cldtau, cldemi)
     4605       ENDIF
     4606#endif
     4607
    45844608    ENDIF  !ok_cosp
    45854609

  • LMDZ6/trunk/makegcm

    r3359 r3491  
    4040set cosp=false
    4141set cosp2=false
     42set cospv2=false
    4243set sisvat=false
    4344
    … …  
    202203set lcosp=""
    203204set lcosp2=""
     205set lcospv2=""
    204206set opt_dep=""
    205207set libchimie=""
    … …  
    447449           Pour compiler avec cosp2
    448450
     451-cospv2 true|false
     452           Pour compiler avec cospv2
     453
    449454-filtre  filtre
    450455           Pour choisir le filtre en longitude dans les regions polaires.
    … …  
    509514        set cosp2="$2"; shift ; shift ; goto top
    510515
     516     case -cospv2
     517        set cospv2="$2"; shift ; shift ; goto top
    511518     case -sisvat
    512519        set sisvat="$2" ; shift ; shift ; goto top
    … …  
    598605endif
    599606
     607if ( "$cospv2" == 'true' ) then
     608    set cppflags="$cppflags -DCPP_COSPV2"
     609    set include="$include"' -I$(LIBF)/cospv2 '
     610    set opt_dep="$opt_dep cospv2"
     611     set lcospv2="-lcospv2 "
     612   if ( $XNEC || $X8BRODIE || $X6NEC) then
     613     set lcospv2="-lsxcospv2 "
     614   endif
     615   set opt_link="$lcospv2 $opt_link"
     616endif
     617
     618
    600619if ( "$sisvat" == 'true' ) then
    601620    set cppflags="$cppflags -DCPP_SISVAT"
    … …  
    11051124L_COSP="$lcosp" \
    11061125L_COSP2="$lcosp2" \
     1126L_COSPV2="$lcospv2" \
    11071127L_CHIMIE="$libchimie" \
    11081128LOCAL_DIR="$localdir"  \
    … …  
    11331153L_COSP="$lcosp" \
    11341154L_COSP2="$lcosp2" \
     1155L_COSPV2="$lcospv2" \
    11351156L_CHIMIE="$libchimie" \
    11361157LOCAL_DIR="$localdir"  \

  • LMDZ6/trunk/makelmdz

    r3435 r3491  
    2626cosp=false
    2727cosp2=false
     28cospv2=false
    2829sisvat=false
    2930rrtm=false
    … …  
    119120[-cosp true/false]    : compile with/without cosp package (default: false)
    120121[-cosp2 true/false]    : compile with/without cosp2 package (default: false)
     122[-cospv2 true/false]    : compile with/without cospv2 package (default: false)
    121123[-sisvat true/false]  : compile with/without sisvat package (default: false)
    122124[-rrtm true/false]    : compile with/without rrtm package (default: false)
    … …  
    184186      "-cosp2")
    185187          cosp2="$2" ; shift ; shift ;;
     188
     189      "-cosp2")
     190          cospv2="$2" ; shift ; shift ;;
    186191     
    187192      "-sisvat")
    … …  
    498503   src_dirs="$src_dirs phy${physique}/cosp2"
    499504   INCLUDE="$INCLUDE"' -I$(LIBF)/'phy${physique}'/cosp2'
     505fi
     506
     507if [[ "$cospv2" == "true" ]]
     508then
     509   CPP_KEY="$CPP_KEY CPP_COSPV2"
     510   src_dirs="$src_dirs phy${physique}/cospv2"
     511   INCLUDE="$INCLUDE"' -I$(LIBF)/'phy${physique}'/cospv2'
    500512fi
    501513
    … …  
    776788L_COSP="$lcosp" \
    777789L_COSP2="$lcosp2" \
     790L_COSPV2="$lcospv2" \
    778791L_CHIMIE="$libchimie" \
    779792LOCAL_DIR="$localdir"  \
    … …  
    810823L_COSP="$lcosp" \
    811824L_COSP2="$lcosp2" \
     825L_COSPV2="$lcospv2" \
    812826L_CHIMIE="$libchimie" \
    813827LOCAL_DIR="$localdir"  \

  • LMDZ6/trunk/makelmdz_fcm

    r3435 r3491  
    3535cosp=false
    3636cosp2=false
     37cospv2=false
    3738job=1
    3839full=''
    … …  
    5758SISVAT_PATH=$LMDGCM/.void_dir
    5859COSP_PATH=$LMDGCM/.void_dir
    59 COSP2_PATH=$LMDGCM/.void_dir
    6060fcm_path=$LMDGCM/tools/fcm/bin
    6161
    … …  
    9797[-cosp true/false]    : compile with/without cosp package (default: false)
    9898[-cosp2 true/false]    : compile with/without cosp2 package (default: false)
     99[-cospv2 true/false]    : compile with/without cospv2 package (default: false)
    99100[-sisvat true/false]  : compile with/without sisvat package (default: false)
    100101[-rrtm true/false]    : compile with/without rrtm package (default: false)
    … …  
    182183      "-cosp2")
    183184          cosp2="$2" ; shift ; shift ;;
     185
     186      "-cospv2")
     187          cospv2="$2" ; shift ; shift ;;
    184188     
    185189      "-mem")
    … …  
    462466fi
    463467
     468if [[ "$cospv2" == "true" ]]
     469then
     470   CPP_KEY="$CPP_KEY CPP_COSPV2"
     471   COSP_PATH="$LIBFGCM/phylmd/cospv2"
     472#   LIB="${LIB} -l${LIBPREFIX}cosp2"
     473fi
     474
     475
    464476
    465477INCLUDE="$INCLUDE ${NETCDF_INCDIR}"
    … …  
    670682echo "%SISVAT        $SISVAT_PATH"   >> $config_fcm
    671683echo "%COSP          $COSP_PATH"     >> $config_fcm
    672 echo "%COSP2          $COSP2_PATH"     >> $config_fcm
    673684echo "%CPP_KEY       $CPP_KEY"       >> $config_fcm
    674685echo "%EXEC          $code"          >> $config_fcm
Note: See TracChangeset for help on using the changeset viewer.