- 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/dynspg_ts.F90
r6487 r7845 41 41 USE timing ! Timing 42 42 USE sbcapr ! surface boundary condition: atmospheric pressure 43 USE divcur ! for dyn_vrt_dia_2d 43 44 USE dynadv, ONLY: ln_dynadv_vec 44 45 #if defined key_agrif … … 144 145 INTEGER :: ji, jj, jk, jn ! dummy loop indices 145 146 INTEGER :: ikbu, ikbv, noffset ! local integers 147 INTEGER :: id_dia_vrt_spg_int = 1 ! TODO remove once flags set properly 148 INTEGER :: id_dia_vrt_spg_mean = 1 ! TODO remove once flags set properly 146 149 REAL(wp) :: zraur, z1_2dt_b, z2dt_bf ! local scalars 147 150 REAL(wp) :: zx1, zy1, zx2, zy2 ! - - … … 450 453 ENDIF 451 454 ENDIF 455 ! 456 ! Calculate dia_vor_int & 457 ! dia_vor_mn if required 458 IF ( ( id_dia_vrt_spg_int == 1 ) .or. (id_dia_vrt_spg_mean == 1 ) ) THEN 459 CALL dyn_vrt_dia_2d(zu_frc, zv_frc, di_dia_vrt_spg_int, id_dia_vrt_spg_mean) 460 END IF 452 461 ! !* Right-Hand-Side of the barotropic ssh equation 453 462 ! ! -----------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.