- Timestamp:
- 2018-06-14T10:58:37+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_7771_fix_scalar/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r7750 r9798 1150 1150 CHARACTER(LEN=*), INTENT(in) :: cdname 1151 1151 REAL(wp) , INTENT(in) :: pfield0d 1152 #if ! defined key_xios2 1152 1153 REAL(wp) , DIMENSION(jpi,jpj) :: zz ! masson 1154 #endif 1153 1155 #if defined key_iomput 1156 #if ! defined key_xios2 1154 1157 zz(:,:)=pfield0d 1155 1158 CALL xios_send_field(cdname, zz) 1156 1159 !CALL xios_send_field(cdname, (/pfield0d/)) 1160 #else 1161 CALL xios_send_field(cdname, (/pfield0d/)) 1162 #endif 1157 1163 #else 1158 1164 IF( .FALSE. ) WRITE(numout,*) cdname, pfield0d ! useless test to avoid compilation warnings
Note: See TracChangeset
for help on using the changeset viewer.