New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7900 for branches/UKMO/GO6_dyn_vrt_diag/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90 – NEMO

Ignore:
Timestamp:
2017-04-12T11:48:20+02:00 (7 years ago)
Author:
glong
Message:

Comment changes to dynhpg.F90, moved halo exchange to 2d method from 3d method in divcur.F90 and picked off spg and wind stress in dynspg_ts.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/GO6_dyn_vrt_diag/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

    r7845 r7900  
    387387      END DO 
    388388 
    389       CALL lbc_lnk( u_int, 'U', 1. ) 
    390       CALL lbc_lnk( v_int, 'V', 1. ) 
    391  
    392389      CALL dyn_vrt_dia_2d(u_int, v_int, id_dia_vor_int, id_dia_vor_mn) 
    393390 
    … …  
    436433      CALL wrk_alloc(jpi, jpj, vor_mn) 
    437434 
     435      CALL lbc_lnk( u_int, 'U', 1. ) 
     436      CALL lbc_lnk( v_int, 'V', 1. ) 
     437 
    438438      ! 
    439439      ! Calculate the vorticity tendencies for the vertical integrals. 
Note: See TracChangeset for help on using the changeset viewer.