Changeset 8024
- Timestamp:
- 2017-05-12T13:09:55+02:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_couple_chlorophyll/NEMOGCM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_couple_chlorophyll/NEMOGCM/CONFIG/SHARED/namelist_ref
r7962 r8024 363 363 sn_snd_crt = 'none' , 'no' , 'spherical' , 'eastward-northward' , 'T' 364 364 sn_snd_co2 = 'coupled' , 'no' , '' , '' , '' 365 sn_snd_bio_co2 = 'medusa' , 'no' , '' , '' , '' 366 sn_snd_bio_dms = 'medusa' , 'no' , '' , '' , '' 367 sn_snd_bio_chloro = 'medusa' , 'no' , '' , '' , '' 368 sn_snd_cond = 'weighted ice' , 'no' , '' , '' , '' 369 sn_snd_mpnd = 'ice only' , 'no' , '' , '' , '' 370 sn_snd_sstfrz = 'coupled' , 'no' , '' , '' , '' 371 sn_snd_thick1 = 'ice and snow' , 'no' , '' , '' , '' 365 372 ! receive 366 373 sn_rcv_w10m = 'none' , 'no' , '' , '' , '' … … 374 381 sn_rcv_cal = 'coupled' , 'no' , '' , '' , '' 375 382 sn_rcv_co2 = 'coupled' , 'no' , '' , '' , '' 383 sn_rcv_antm = 'coupled' , 'no' , '' , '' , '' 384 sn_rcv_grnm = 'coupled' , 'no' , '' , '' , '' 385 sn_rcv_iceflx = 'coupled' , 'no' , '' , '' , '' 386 sn_rcv_ts_ice = 'ice' , 'no' , '' , '' , '' 387 sn_rcv_atm_dust = 'medusa' , 'no' , '' , '' , '' 388 sn_rcv_atm_pco2 = 'medusa' , 'no' , '' , '' , '' 389 376 390 ! 377 391 nn_cplmodel = 1 ! Maximum number of models to/from which NEMO is potentialy sending/receiving data -
branches/UKMO/dev_r5518_couple_chlorophyll/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r8000 r8024 1050 1050 REAL(wp), POINTER, DIMENSION(:,:) :: ztx, zty, zmsk, zemp, zqns, zqsr 1051 1051 !!---------------------------------------------------------------------- 1052 1053 ! RSRH temporary arrays for testing, just to recieve incoming MEDUSA related fields1054 ! until we know where they need to go.1055 REAL(wp), ALLOCATABLE :: atm_pco2(:,:)1056 REAL(wp), ALLOCATABLE :: atm_dust(:,:)1057 1052 1058 1053 ! … … 2360 2355 2361 2356 IF ( ssnd(jps_bio_chloro)%laction ) THEN 2357 ! RSRH Temporary code to allow testing with UM until MEDUSA is able to populate 2358 ! things with real values at which point we remove everything in this IF statement 2359 ! apart from the cpl_snd call. 2360 write(numout,*) "RSRH set up chloro" 2361 flush(numout) 2362 2363 chloro_out_cpl(:,:) = 0.00000627 2364 write(numout,*) "RSRH send chloro" 2365 flush(numout) 2366 2362 2367 CALL cpl_snd( jps_bio_chloro, isec, RESHAPE( chloro_out_cpl, (/jpi,jpj,1/) ), info ) 2368 write(numout,*) "RSRH completed send chloro" 2369 flush(numout) 2363 2370 ENDIF 2364 2371 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.