- Timestamp:
- 2017-03-30T11:39:38+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/GO6_dyn_vrt_diag/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilap.F90
r7649 r7845 19 19 USE dom_oce ! ocean space and time domain 20 20 USE ldfdyn_oce ! ocean dynamics: lateral physics 21 USE divcur ! for dyn_vrt_dia 21 USE divcur ! for dyn_vrt_dia_3d 22 22 ! 23 23 USE in_out_manager ! I/O manager … … 210 210 ! ! =============== 211 211 IF ( ( id_dia_vrt_ldf_int == 1 ) .or. ( id_dia_vrt_ldf_mean == 1 ) ) THEN 212 CALL dyn_vrt_dia (zua, zva, id_dia_vrt_ldf_int, id_dia_vrt_ldf_mean)212 CALL dyn_vrt_dia_3d(zua, zva, id_dia_vrt_ldf_int, id_dia_vrt_ldf_mean) 213 213 END IF 214 214 !
Note: See TracChangeset
for help on using the changeset viewer.