- Timestamp:
- 2016-01-04T10:31:06+01:00 (9 years ago)
- Location:
- branches/UKMO/dev_r5518_pkg
- Files:
-
- 1 deleted
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_pkg/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r6195 r6196 53 53 #endif 54 54 #if defined key_medusa 55 USE trc55 ! RSRH Temporarily commented out until we get MEDUSA code USE trc 56 56 #endif 57 58 59 57 60 58 61 IMPLICIT NONE … … 159 162 END TYPE FLD_C 160 163 ! Send to the atmosphere ! 161 TYPE(FLD_C) :: sn_snd_temp, sn_snd_alb, sn_snd_thick, sn_snd_crt, sn_snd_co2 164 TYPE(FLD_C) :: sn_snd_temp, sn_snd_alb, sn_snd_thick, sn_snd_crt, sn_snd_co2, sn_snd_cond, sn_snd_mpnd, sn_snd_sstfrz, sn_snd_thick1 162 165 TYPE(FLD_C) :: sn_snd_bio_co2, sn_snd_bio_dms 163 166 ! Received from the atmosphere ! 164 167 TYPE(FLD_C) :: sn_rcv_w10m, sn_rcv_taumod, sn_rcv_tau, sn_rcv_dqnsdt, sn_rcv_qsr, sn_rcv_qns, sn_rcv_emp, sn_rcv_rnf 165 TYPE(FLD_C) :: sn_rcv_cal, sn_rcv_iceflx, sn_rcv_co2 168 TYPE(FLD_C) :: sn_rcv_cal, sn_rcv_iceflx, sn_rcv_co2, sn_rcv_ts_ice, sn_rcv_grnm, sn_rcv_antm 166 169 TYPE(FLD_C) :: sn_rcv_atm_pco2, sn_rcv_atm_dust 167 170 ! Other namelist parameters ! … … 178 181 179 182 INTEGER , ALLOCATABLE, SAVE, DIMENSION( :) :: nrcvinfo ! OASIS info argument 183 180 184 181 185 !! Substitution … … 1890 1894 REAL(wp), POINTER, DIMENSION(:,:) :: zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 1891 1895 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztmp3, ztmp4 1896 1897 #if defined key_medusa 1898 ! RSRH Temporarily definitition of array used in medusa coupling until we actually have the medusa code included in the build 1899 REAL(wp) :: TRC2D_TEST(jpi,jpj) 1900 #endif 1901 1892 1902 !!---------------------------------------------------------------------- 1893 1903 ! … … 2041 2051 !! May add also a coupling MED-UKCA key 2042 2052 2053 2054 #if defined key_medusa 2043 2055 ! RSRH. We don't want to use magic numbers in the code (i.e. 98 and 221). 2044 2056 ! These need moving to a parameter statement (as part of MEDUSA code) or even specifying in a namelist 2045 2057 ! so the following code MUST NOT be viewed as anything more than temporary. 2046 IF( ssnd(jps_bio_co2)%laction ) CALL cpl_prism_snd( jps_bio_co2, isec, trc2d(:,:,98:98), info ) 2058 ! IF( ssnd(jps_bio_co2)%laction ) CALL cpl_prism_snd( jps_bio_co2, isec, trc2d(:,:,98:98), info ) 2059 TRC2D_TEST(:,:) = 0.0 2060 IF( ssnd(jps_bio_co2)%laction ) CALL cpl_prism_snd( jps_bio_co2, isec, trc2d_TEST(:,:), info ) 2047 2061 2048 2062 IF( ssnd(jps_bio_dms)%laction ) THEN 2049 2063 ! We need to multiply DMS by a conversion factor to get values in the standard units expected in 2050 2064 ! the coupling space. 2051 ztmp1(:,: ) = trc2d(:,:,221) * dms_unit_conv 2065 ! ztmp1(:,: ) = trc2d(:,:,221) * dms_unit_conv 2066 ztmp1(:,: ) = trc2d_TEST(:,:) * dms_unit_conv 2052 2067 CALL cpl_prism_snd( jps_bio_dms, isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 2053 2068 ENDIF 2054 2069 #endif 2055 2070 ! ! ------------------------- ! 2056 2071 IF( ssnd(jps_ocx1)%laction ) THEN ! Surface current ! … … 2155 2170 & + v_ice(ji-1,jj ) + v_ice(ji,jj ) ) * fr_i(ji,jj) 2156 2171 END DO 2172 END DO 2157 2173 #if defined key_cice 2158 2174 ELSE
Note: See TracChangeset
for help on using the changeset viewer.