Changeset 8024


Ignore:
Timestamp:
2017-05-12T13:09:55+02:00 (3 years ago)
Author:
frrh
Message:

Add all missing coupling fields to reference namelist, delete redundant
test arrays and add temporary initialisation of chlorophyll field for
test purposes.

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  
    363363   sn_snd_crt    =       'none'                 ,    'no'    , 'spherical' , 'eastward-northward' ,  'T' 
    364364   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'    ,     ''      ,         ''           ,   '' 
    365372! receive 
    366373   sn_rcv_w10m   =       'none'                 ,    'no'    ,     ''      ,         ''          ,   '' 
     
    374381   sn_rcv_cal    =       'coupled'              ,    'no'    ,     ''      ,         ''          ,   '' 
    375382   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 
    376390! 
    377391   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  
    10501050      REAL(wp), POINTER, DIMENSION(:,:) ::   ztx, zty, zmsk, zemp, zqns, zqsr 
    10511051      !!---------------------------------------------------------------------- 
    1052  
    1053       ! RSRH temporary arrays for testing, just to recieve incoming MEDUSA related fields 
    1054       ! until we know where they need to go. 
    1055       REAL(wp), ALLOCATABLE :: atm_pco2(:,:) 
    1056       REAL(wp), ALLOCATABLE :: atm_dust(:,:) 
    10571052 
    10581053      ! 
     
    23602355 
    23612356         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.   
     2360write(numout,*) "RSRH set up chloro" 
     2361flush(numout) 
     2362 
     2363             chloro_out_cpl(:,:) = 0.00000627 
     2364write(numout,*) "RSRH send chloro" 
     2365flush(numout) 
     2366 
    23622367            CALL cpl_snd( jps_bio_chloro, isec, RESHAPE( chloro_out_cpl, (/jpi,jpj,1/) ), info ) 
     2368write(numout,*) "RSRH completed send chloro" 
     2369flush(numout) 
    23632370         ENDIF 
    23642371      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.