- Timestamp:
- 2017-05-08T15:12:30+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_couple_chlorophyll/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r7540 r8000 34 34 USE geo2ocean ! 35 35 USE oce , ONLY : tsn, un, vn, sshn, ub, vb, sshb, fraqsr_1lev, & 36 CO2Flux_out_cpl, DMS_out_cpl, PCO2a_in_cpl, Dust_in_cpl, & 36 CO2Flux_out_cpl, DMS_out_cpl, chloro_out_cpl, & 37 PCO2a_in_cpl, Dust_in_cpl, & 37 38 ln_medusa 38 39 USE albedo ! … … 145 146 INTEGER, PARAMETER :: jps_sstfrz = 32 ! sea-surface freezing temperature 146 147 INTEGER, PARAMETER :: jps_fice1 = 33 ! first-order ice concentration (for time-travelling ice coupling) 147 INTEGER, PARAMETER :: jps_bio_co2 = 34 ! MEDUSA air-sea CO2 flux in 148 INTEGER, PARAMETER :: jps_bio_dms = 35 ! MEDUSA DMS surface concentration in 149 INTEGER, PARAMETER :: jpsnd = 35 ! total number of fields sent 148 INTEGER, PARAMETER :: jps_bio_co2 = 34 ! MEDUSA air-sea CO2 flux 149 INTEGER, PARAMETER :: jps_bio_dms = 35 ! MEDUSA DMS surface concentration 150 INTEGER, PARAMETER :: jps_bio_chloro = 36 ! MEDUSA chlorophyll surface concentration 151 INTEGER, PARAMETER :: jpsnd = 36 ! total number of fields sent 150 152 151 153 REAL(wp), PARAMETER :: dms_unit_conv = 1.0e+6 ! Coversion factor to get outgong DMS in standard units for coupling … … 162 164 ! Send to the atmosphere ! 163 165 TYPE(FLD_C) :: sn_snd_temp, sn_snd_alb, sn_snd_thick, sn_snd_crt, sn_snd_co2, sn_snd_cond, sn_snd_mpnd, sn_snd_sstfrz, sn_snd_thick1 164 TYPE(FLD_C) :: sn_snd_bio_co2, sn_snd_bio_dms 166 TYPE(FLD_C) :: sn_snd_bio_co2, sn_snd_bio_dms, sn_snd_bio_chloro 165 167 166 168 ! Received from the atmosphere ! … … 246 248 247 249 ! Add MEDUSA related fields to namelist 248 NAMELIST/namsbc_cpl/ sn_snd_bio_co2, sn_snd_bio_dms, 250 NAMELIST/namsbc_cpl/ sn_snd_bio_co2, sn_snd_bio_dms, sn_snd_bio_chloro, & 249 251 & sn_rcv_atm_pco2, sn_rcv_atm_dust 250 252 … … 304 306 WRITE(numout,*)' bio co2 flux = ', TRIM(sn_snd_bio_co2%cldes), ' (', TRIM(sn_snd_bio_co2%clcat), ')' 305 307 WRITE(numout,*)' bio dms flux = ', TRIM(sn_snd_bio_dms%cldes), ' (', TRIM(sn_snd_bio_dms%clcat), ')' 308 WRITE(numout,*)' bio dms chlorophyll = ', TRIM(sn_snd_bio_chloro%cldes), ' (', TRIM(sn_snd_bio_chloro%clcat), ')' 306 309 WRITE(numout,*)' oce co2 flux = ', TRIM(sn_snd_co2%cldes ), ' (', TRIM(sn_snd_co2%clcat ), ')' 307 310 WRITE(numout,*)' ice effective conductivity = ', TRIM(sn_snd_cond%cldes ), ' (', TRIM(sn_snd_cond%clcat ), ')' … … 824 827 IF( TRIM(sn_snd_bio_co2%cldes) == 'medusa' ) ssnd(jps_bio_co2 )%laction = .TRUE. 825 828 829 ! Surface chlorophyll from Medusa 830 ssnd(jps_bio_chloro)%clname = 'OBioChlo' 831 IF( TRIM(sn_snd_bio_chloro%cldes) == 'medusa' ) ssnd(jps_bio_chloro )%laction = .TRUE. 832 826 833 ! ! ------------------------- ! 827 834 ! ! Sea surface freezing temp ! … … 2341 2348 2342 2349 IF (ln_medusa) THEN 2343 ! ! --------------------------------- !2344 ! ! CO2 flux and DMSfrom MEDUSA !2345 ! ! --------------------------------- !2350 ! ! ---------------------------------------------- ! 2351 ! ! CO2 flux, DMS and chlorophyll from MEDUSA ! 2352 ! ! ---------------------------------------------- ! 2346 2353 IF ( ssnd(jps_bio_co2)%laction ) THEN 2347 2354 CALL cpl_snd( jps_bio_co2, isec, RESHAPE( CO2Flux_out_cpl, (/jpi,jpj,1/) ), info ) … … 2350 2357 IF ( ssnd(jps_bio_dms)%laction ) THEN 2351 2358 CALL cpl_snd( jps_bio_dms, isec, RESHAPE( DMS_out_cpl, (/jpi,jpj,1/) ), info ) 2359 ENDIF 2360 2361 IF ( ssnd(jps_bio_chloro)%laction ) THEN 2362 CALL cpl_snd( jps_bio_chloro, isec, RESHAPE( chloro_out_cpl, (/jpi,jpj,1/) ), info ) 2352 2363 ENDIF 2353 2364 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.