- Timestamp:
- 2011-09-09T15:33:04+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_UKMO8_sbccpl/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r2813 r2832 193 193 zclname=srcv(ji)%clname 194 194 ENDIF 195 WRITE(numout,*) "Define",ji, zclname," for",PRISM_In195 WRITE(numout,*) "Define",ji,jc,zclname," for",PRISM_In 196 196 CALL prism_def_var_proto ( srcv(ji)%nid(jc), zclname, id_part, (/ 2, 0/), & 197 197 & PRISM_In , ishape , PRISM_REAL, nerror)
Note: See TracChangeset
for help on using the changeset viewer.