Changeset 6584


Ignore:
Timestamp:
08/02/23 16:01:02 (9 months ago)
Author:
acosce
Message:

update configuration to add coupled experiment with inca(AER) + CO2 in lmdz and pisces + coupling of co2 and dms between oce ant atm

Location:
CONFIG/UNIFORM/v6/IPSLCM6.3
Files:
18 added
5 deleted
2 edited

Legend:

Unmodified
Added
Removed

  • CONFIG/UNIFORM/v6/IPSLCM6.3/SOURCES/LMDZ/oasis.F90

    r6574 r6584  
    8686  INTEGER, PARAMETER :: maxrecv_phys = 9      ! Maximum number of fields to receive in physiq (without fields receive in inca model) 
    8787   
    88 #ifdef CPP_CPLOCNINCA 
    89 !AC  INTEGER, PARAMETER :: idr_ocedms = 1 
    90 !AC  INTEGER, PARAMETER :: maxrcv = 1 
    91 #endif 
    9288 
    9389  TYPE, PUBLIC ::   FLD_CPL            ! Type for coupling field information 
    … …  
    269265   ENDIF 
    270266  
    271 !AC#ifdef CPP_CPLOCNINCA 
    272 !AC       inforcv(idr_ocedms)%action = .TRUE. ; inforcv(idr_ocedms)%name = 'SIDMSFLX' 
    273 !AC#endif 
    274267 
    275268     
    … …  
    361354#ifdef INCA 
    362355    IF (dms_cycle_cpl) THEN 
    363        CALL init_inca_oasis(inforecv(idr_ocedms)) 
    364     ENDIF 
    365 #endif 
    366  
    367      
    368 !AC! Now, if also coupling CPL with INCA, initialize here fields to be exchanged. 
    369 !AC#ifdef CPP_CPLOCNINCA 
    370 !AC    DO jf=1,maxrcv  
    371 !AC       IF (inforcv(jf)%action) THEN 
    372 !AC          CALL prism_def_var_proto(inforcv(jf)%nid, inforcv(jf)%name, il_part_id, & 
    373 !AC               il_var_nodims, PRISM_In, il_var_actual_shape, il_var_type, & 
    374 !AC               ierror) 
    375 !AC          IF (ierror .NE. PRISM_Ok) THEN 
    376 !AC             WRITE(lunout,*) 'inicma : Problem with prism_def_var_proto for field : ',& 
    377 !AC                  inforcv(jf)%name 
    378 !AC             abort_message=' Problem in call to prism_def_var_proto for fields to receive' 
    379 !AC             CALL abort_physic(modname,abort_message,1) 
    380 !AC          ENDIF 
    381 !AC       ENDIF 
    382 !AC    END DO 
    383 !AC#endif 
     356       CALL init_inca_oasis(inforecv(idr_ocedms:idr_ocedms)) 
     357    ENDIF 
     358#endif 
    384359  
    385360!************************************************************************************ 

  • CONFIG/UNIFORM/v6/IPSLCM6.3/compile_ipslcm6.sh

    r6574 r6584  
    7373         [ESMCO2] Compile IPSLCM6 for CO2 interactif ocean/atmosphere. 
    7474         [ESMCHEM] Compile IPSLCM6 for chemistry interactif on atmosphere 
    75          [ESMCO2AER] Compile IPSLCM6 for both interactive CO2 and chemistry, and also with transfer of species from PISCES to INCA. 
     75         [ESMCO2CHEM] Compile IPSLCM6 for both interactive CO2 and chemistry, and also with transfer of species from PISCES to INCA. 
    7676         [-full] Full recompilation of all components. This option can be added to all other options. 
    7777         [-cleannemo] Full recompilation of NEMO component  only. 
    … …  
    117117        "ESMCO2")      esmco2=y;  shift ;;  
    118118        "ESMCHEM")      esmchem=y; shift ;;  
    119         "ESMCO2AER")   esmco2=y; esmchem=y; shift ;; 
     119        "ESMCO2CHEM")   esmco2=y; esmchem=y; shift ;; 
    120120        "CE0L")        ce0l=y ; shift ;; 
    121121        "-rad")        rad=$2; shift ; shift;; 
    … …  
    355355        mv $nemo_root/$cfg_wrk/BLD/bin/nemo.exe $modipsl/bin/opa.ESMCO2_${resol_oce}_${optmode} 
    356356    elif [ ${esmco2} == y ] && [ ${esmchem} == y ] ;  then 
    357     mv $nemo_root/$cfg_wrk/BLD/bin/nemo.exe $modipsl/bin/opa.ESMCO2AER_${resol_oce}_${optmode} 
     357    mv $nemo_root/$cfg_wrk/BLD/bin/nemo.exe $modipsl/bin/opa.ESMCO2CHEM_${resol_oce}_${optmode} 
    358358    else 
    359359        mv $nemo_root/$cfg_wrk/BLD/bin/nemo.exe $modipsl/bin/opa_${resol_oce}_${optmode} 
Note: See TracChangeset for help on using the changeset viewer.