Ignore:
Timestamp:
2016-06-06T14:40:03+02:00 (4 years ago)
Author:
frrh
Message:

Corrections for compilation with MEDUSA branche which needs
associated changes to ensure relevant variables are publically available
and of the correct dimension.

File:
1 edited

Legend:

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

    r6668 r6669  
    5151   USE lib_fortran, ONLY: glob_sum 
    5252#if defined key_medusa 
    53 !   USE trc 
    54    USE trcbio_medusa, ONLY: f_co2flux2d, dms_surf2d 
    55    USE sms_medusa, ONLY: f_pco2a, dust 
     53   USE trcbio_medusa, ONLY: f_co2flux2d, dms_surf2d, f_pco2a 
     54   USE sms_medusa, ONLY: dust 
    5655#endif 
    5756 
     
    148147   INTEGER, PARAMETER ::   jps_sstfrz = 32            ! sea-surface freezing temperature 
    149148   INTEGER, PARAMETER ::   jps_fice1  = 33            ! first-order ice concentration (for time-travelling ice coupling) 
    150    INTEGER, PARAMETER ::   jpsnd      = 33            ! total number of fields sended 
    151149   INTEGER, PARAMETER ::   jps_bio_co2 = 34           ! MEDUSA air-sea CO2 flux in 
    152150   INTEGER, PARAMETER ::   jps_bio_dms = 35           ! MEDUSA DMS surface concentration in 
     
    22342232 
    22352233#if defined key_medusa 
    2236       IF( ssnd(jps_bio_co2)%laction ) CALL cpl_prism_snd( jps_bio_co2, isec, f_co2flux2d, info ) 
     2234      IF( ssnd(jps_bio_co2)%laction ) CALL cpl_snd( jps_bio_co2, isec, f_co2flux2d, info ) 
    22372235 
    22382236      IF( ssnd(jps_bio_dms)%laction )  THEN 
     
    22402238          ! the coupling space. 
    22412239          ztmp1(:,: ) = dms_surf2d(:,:) * dms_unit_conv 
    2242          CALL cpl_prism_snd( jps_bio_dms, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 
     2240         CALL cpl_snd( jps_bio_dms, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 
    22432241      ENDIF 
    22442242#endif 
Note: See TracChangeset for help on using the changeset viewer.