Changeset 6653
- Timestamp:
- 2016-06-02T15:59:18+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_medusa_cpl_rh/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r6171 r6653 156 156 END TYPE FLD_C 157 157 ! Send to the atmosphere ! 158 TYPE(FLD_C) :: sn_snd_temp, sn_snd_alb, sn_snd_thick, sn_snd_crt, sn_snd_co2 158 TYPE(FLD_C) :: sn_snd_temp, sn_snd_alb, sn_snd_thick, sn_snd_crt, sn_snd_co2 159 159 160 TYPE(FLD_C) :: sn_snd_bio_co2, sn_snd_bio_dms 161 160 162 ! Received from the atmosphere ! 161 163 TYPE(FLD_C) :: sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau, sn_rcv_dqnsdt, sn_rcv_qsr, sn_rcv_qns, sn_rcv_emp, sn_rcv_rnf 162 164 TYPE(FLD_C) :: sn_rcv_cal, sn_rcv_iceflx, sn_rcv_co2 165 163 166 TYPE(FLD_C) :: sn_rcv_atm_pco2, sn_rcv_atm_dust 167 164 168 ! Other namelist parameters ! 165 169 INTEGER :: nn_cplmodel ! Maximum number of models to/from which NEMO is potentialy sending/receiving data … … 229 233 !! 230 234 NAMELIST/namsbc_cpl/ sn_snd_temp, sn_snd_alb , sn_snd_thick, sn_snd_crt , sn_snd_co2, & 231 & sn_snd_bio_co2, sn_snd_bio_dms, &232 & sn_rcv_atm_pco2, sn_rcv_atm_dust, &233 235 & sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau , sn_rcv_dqnsdt, sn_rcv_qsr, & 234 236 & sn_rcv_qns , sn_rcv_emp , sn_rcv_rnf , sn_rcv_cal , sn_rcv_iceflx, & 235 237 & sn_rcv_co2 , nn_cplmodel , ln_usecplmask 236 238 !!--------------------------------------------------------------------- 239 240 ! Add MEDUSA related fields to namelist 241 NAMELIST/namsbc_cpl/ sn_snd_bio_co2, sn_snd_bio_dms, & 242 & sn_rcv_atm_pco2, sn_rcv_atm_dust 243 244 !!--------------------------------------------------------------------- 245 237 246 ! 238 247 IF( nn_timing == 1 ) CALL timing_start('sbc_cpl_init') … … 284 293 WRITE(numout,*)' - orientation = ', sn_snd_crt%clvor 285 294 WRITE(numout,*)' - mesh = ', sn_snd_crt%clvgrd 286 WRITE(numout,*)' oce co2 flux = ', TRIM(sn_snd_co2%cldes ), ' (', TRIM(sn_snd_co2%clcat ), ')'287 295 WRITE(numout,*)' bio co2 flux = ', TRIM(sn_snd_bio_co2%cldes), ' (', TRIM(sn_snd_bio_co2%clcat), ')' 288 296 WRITE(numout,*)' bio dms flux = ', TRIM(sn_snd_bio_dms%cldes), ' (', TRIM(sn_snd_bio_dms%clcat), ')' 297 WRITE(numout,*)' oce co2 flux = ', TRIM(sn_snd_co2%cldes ), ' (', TRIM(sn_snd_co2%clcat ), ')' 289 298 WRITE(numout,*)' nn_cplmodel = ', nn_cplmodel 290 299 WRITE(numout,*)' ln_usecplmask = ', ln_usecplmask … … 1030 1039 ENDIF 1031 1040 1032 #if defined key_cpl_carbon_cycle1033 ! ! ================== !1034 ! ! atmosph. CO2 (ppm) !1035 ! ! ================== !1036 IF( srcv(jpr_co2)%laction ) atm_co2(:,:) = frcv(jpr_co2)%z3(:,:,1)1037 #endif1038 1039 1041 #if defined key_medusa 1040 1042 ! RSRH Allocate temporary arrays to receive incoming fields during testing … … 1050 1052 #endif 1051 1053 1052 1053 1054 #if defined key_cpl_carbon_cycle 1055 ! ! ================== ! 1056 ! ! atmosph. CO2 (ppm) ! 1057 ! ! ================== ! 1058 IF( srcv(jpr_co2)%laction ) atm_co2(:,:) = frcv(jpr_co2)%z3(:,:,1) 1059 #endif 1054 1060 1055 1061 ! Fields received by SAS when OASIS coupling
Note: See TracChangeset
for help on using the changeset viewer.