Changeset 384
- Timestamp:
- 2006-03-09T17:47:16+01:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/ZDF/zdfmxl.F90
r258 r384 136 136 137 137 IF(ln_ctl) THEN 138 CALL prt_ctl(tab2d_1= FLOAT(nmln), clinfo1=' nmln : ', tab2d_2=hmld, clinfo2=' hmld : ', ovlap=1)138 CALL prt_ctl(tab2d_1=REAL(nmln,wp), clinfo1=' nmln : ', tab2d_2=hmld, clinfo2=' hmld : ', ovlap=1) 139 139 ENDIF 140 140 … … 240 240 241 241 IF(ln_ctl) THEN 242 CALL prt_ctl(tab2d_1= FLOAT(nmln), clinfo1=' nmln : ', tab2d_2=hmld, clinfo2=' hmld : ', ovlap=1)242 CALL prt_ctl(tab2d_1=REAL(nmln,wp), clinfo1=' nmln : ', tab2d_2=hmld, clinfo2=' hmld : ', ovlap=1) 243 243 ENDIF 244 244
Note: See TracChangeset
for help on using the changeset viewer.