Changeset 8024 for branches/UKMO/dev_r5518_couple_chlorophyll/NEMOGCM/NEMO/OPA_SRC

Timestamp:

2017-05-12T13:09:55+02:00 (7 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.

File:

• branches/UKMO/dev_r5518_couple_chlorophyll/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (2 diffs)

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

@@ -1050 +1050 @@
       REAL(wp), POINTER, DIMENSION(:,:) ::   ztx, zty, zmsk, zemp, zqns, zqsr
       !!----------------------------------------------------------------------
-
-      ! RSRH temporary arrays for testing, just to recieve incoming MEDUSA related fields
-      ! until we know where they need to go.
-      REAL(wp), ALLOCATABLE :: atm_pco2(:,:)
-      REAL(wp), ALLOCATABLE :: atm_dust(:,:)
 
       !
@@ -2360 +2355 @@
 
          IF ( ssnd(jps_bio_chloro)%laction )  THEN
+! RSRH Temporary code to allow testing with UM until MEDUSA is able to populate
+! things with real values at which point we remove everything in this IF statement
+! apart from the cpl_snd call.  
+write(numout,*) "RSRH set up chloro"
+flush(numout)
+
+             chloro_out_cpl(:,:) = 0.00000627
+write(numout,*) "RSRH send chloro"
+flush(numout)
+
             CALL cpl_snd( jps_bio_chloro, isec, RESHAPE( chloro_out_cpl, (/jpi,jpj,1/) ), info )
+write(numout,*) "RSRH completed send chloro"
+flush(numout)
          ENDIF
       ENDIF