- Timestamp:
- 2018-12-14T16:04:11+01:00 (6 years ago)
- Location:
- branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/geo2ocean.F90
r10395 r10396 67 67 REAL(wp), INTENT( out), DIMENSION(jpi,jpj) :: px2 ! i-componante (defined at u-point) 68 68 REAL(wp), INTENT( out), DIMENSION(jpi,jpj) :: py2 ! j-componante (defined at v-point) 69 !!----------------------------------------------------------------------70 71 69 INTEGER, INTENT( IN ) :: kchoix ! type of transformation 72 70 ! = 1 change from geographic to model grid. -
branches/UKMO/AMM15_v3_6_STABLE_package_collate_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r10395 r10396 1769 1769 ! 1770 1770 SELECT CASE( sn_snd_temp%cldes) 1771 CASE( 'oce only' ) ; ztmp1(:,:) = ztmp1(:,:) + rt01771 CASE( 'oce only' ) ; ztmp1(:,:) = (ztmp1(:,:) + rt0) * tmask(:,:,1) 1772 1772 CASE( 'oce and ice' ) ; ztmp1(:,:) = ztmp1(:,:) + rt0 1773 1773 SELECT CASE( sn_snd_temp%clcat )
Note: See TracChangeset
for help on using the changeset viewer.