Changeset 8136 for branches/UKMO/dev_r5518_couple_chlorophyll/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2017-06-05T11:31:01+02:00 (7 years ago)

Author:

frrh

Message:

Remove temporary updates for test purposes to enable live testing of chloro
coupling.

File:

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

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

@@ -2355 +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