- 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/dynvor.F90
r7649 r7845 38 38 USE wrk_nemo ! Memory Allocation 39 39 USE timing ! Timing 40 USE divcur ! For dyn_vrt_dia 40 USE divcur ! For dyn_vrt_dia_3d 41 41 42 42 … … 708 708 ! ! =============== 709 709 IF ( ( id_dia_vrt_vor_int == 1 ) .or. ( id_dia_vrt_vor_mn == 1 ) ) THEN 710 CALL dyn_vrt_dia (zua, zva, id_dia_vrt_vor_int, id_dia_vrt_vor_mn)710 CALL dyn_vrt_dia_3d(zua, zva, id_dia_vrt_vor_int, id_dia_vrt_vor_mn) 711 711 END IF 712 712 !
Note: See TracChangeset
for help on using the changeset viewer.