Changeset 8136


Ignore:
Timestamp:
2017-06-05T11:31:01+02:00 (3 years ago)
Author:
frrh
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_couple_chlorophyll/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r8024 r8136  
    23552355 
    23562356         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  
    23672357            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) 
    23702358         ENDIF 
    23712359      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.