Changeset 6584 for CONFIG/UNIFORM/v6
- Timestamp:
- 08/02/23 16:01:02 (9 months ago)
- 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 86 86 INTEGER, PARAMETER :: maxrecv_phys = 9 ! Maximum number of fields to receive in physiq (without fields receive in inca model) 87 87 88 #ifdef CPP_CPLOCNINCA89 !AC INTEGER, PARAMETER :: idr_ocedms = 190 !AC INTEGER, PARAMETER :: maxrcv = 191 #endif92 88 93 89 TYPE, PUBLIC :: FLD_CPL ! Type for coupling field information … … 269 265 ENDIF 270 266 271 !AC#ifdef CPP_CPLOCNINCA272 !AC inforcv(idr_ocedms)%action = .TRUE. ; inforcv(idr_ocedms)%name = 'SIDMSFLX'273 !AC#endif274 267 275 268 … … 361 354 #ifdef INCA 362 355 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 384 359 385 360 !************************************************************************************ -
CONFIG/UNIFORM/v6/IPSLCM6.3/compile_ipslcm6.sh
r6574 r6584 73 73 [ESMCO2] Compile IPSLCM6 for CO2 interactif ocean/atmosphere. 74 74 [ESMCHEM] Compile IPSLCM6 for chemistry interactif on atmosphere 75 [ESMCO2 AER] 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. 76 76 [-full] Full recompilation of all components. This option can be added to all other options. 77 77 [-cleannemo] Full recompilation of NEMO component only. … … 117 117 "ESMCO2") esmco2=y; shift ;; 118 118 "ESMCHEM") esmchem=y; shift ;; 119 "ESMCO2 AER") esmco2=y; esmchem=y; shift ;;119 "ESMCO2CHEM") esmco2=y; esmchem=y; shift ;; 120 120 "CE0L") ce0l=y ; shift ;; 121 121 "-rad") rad=$2; shift ; shift;; … … 355 355 mv $nemo_root/$cfg_wrk/BLD/bin/nemo.exe $modipsl/bin/opa.ESMCO2_${resol_oce}_${optmode} 356 356 elif [ ${esmco2} == y ] && [ ${esmchem} == y ] ; then 357 mv $nemo_root/$cfg_wrk/BLD/bin/nemo.exe $modipsl/bin/opa.ESMCO2 AER_${resol_oce}_${optmode}357 mv $nemo_root/$cfg_wrk/BLD/bin/nemo.exe $modipsl/bin/opa.ESMCO2CHEM_${resol_oce}_${optmode} 358 358 else 359 359 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.