- Timestamp:
- 2014-09-24T14:03:02+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90
r4328 r4785 107 107 ! Update after tracer on domain lateral boundaries 108 108 ! 109 #if defined key_agrif 110 CALL Agrif_tra ! AGRIF zoom boundaries 111 #endif 112 ! 109 113 CALL lbc_lnk( tsa(:,:,:,jp_tem), 'T', 1._wp ) ! local domain boundaries (T-point, unchanged sign) 110 114 CALL lbc_lnk( tsa(:,:,:,jp_sal), 'T', 1._wp ) … … 112 116 #if defined key_bdy 113 117 IF( lk_bdy ) CALL bdy_tra( kt ) ! BDY open boundaries 114 #endif115 #if defined key_agrif116 CALL Agrif_tra ! AGRIF zoom boundaries117 118 #endif 118 119
Note: See TracChangeset
for help on using the changeset viewer.