Changeset 6687

Timestamp:

2016-06-13T13:08:40+02:00 (8 years ago)

Author:

frrh

Message:

Remove redundant line. Add comments for outgoing MEDUSA fields.

File:

• branches/UKMO/dev_r5518_GSI7_GSI8_landice_bitcomp_medusa/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GSI7_GSI8_landice_bitcomp_medusa/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -814 +814 @@
       !                                                      !   MEDUSA output fields    !
       !                                                      ! ------------------------- !
-      ssnd(jps_co2)%clname = 'O_CO2FLX' 
+      ! Surface dimethyl sulphide from Medusa
       ssnd(jps_bio_dms)%clname = 'OBioDMS'   
       IF( TRIM(sn_snd_bio_dms%cldes) == 'medusa' )    ssnd(jps_bio_dms )%laction = .TRUE.
 
+      ! Surface CO2 flux from Medusa
       ssnd(jps_bio_co2)%clname = 'OBioCO2'   
       IF( TRIM(sn_snd_bio_co2%cldes) == 'medusa' )    ssnd(jps_bio_co2 )%laction = .TRUE.