- Timestamp:
- 2020-10-22T20:49:56+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11842_SI3-10_EAP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11842_SI3-10_EAP
- Property svn:externals
-
old new 1 ^/utils/build/arch@HEAD arch 2 ^/utils/build/makenemo@HEAD makenemo 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 ^/vendors/FCM@HEAD ext/FCM 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 1 ^/utils/build/arch@12130 arch 2 ^/utils/build/makenemo@12191 makenemo 3 ^/utils/build/mk@11662 mk 4 ^/utils/tools_r4.0-HEAD@12672 tools 5 ^/vendors/AGRIF/dev@10586 ext/AGRIF 6 ^/vendors/FCM@10134 ext/FCM 7 ^/vendors/IOIPSL@9655 ext/IOIPSL 8 9 # SETTE mapping (inactive) 10 #^/utils/CI/sette@12135 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/OCE/TRA/traadv_cen.F90
r10425 r13662 127 127 DO jk = 1, jpkm1 ! Horizontal advective fluxes 128 128 DO jj = 2, jpjm1 129 DO ji = 1, fs_jpim1 ! vector opt.129 DO ji = 2, fs_jpim1 ! vector opt. 130 130 zC2t_u = ptn(ji,jj,jk,jn) + ptn(ji+1,jj ,jk,jn) ! C2 interpolation of T at u- & v-points (x2) 131 131 zC2t_v = ptn(ji,jj,jk,jn) + ptn(ji ,jj+1,jk,jn) … … 139 139 END DO 140 140 END DO 141 CALL lbc_lnk_multi( 'traadv_cen', zwx, 'U', -1. , zwy, 'V', -1. ) 141 142 ! 142 143 CASE DEFAULT 143 CALL ctl_stop( 'traadv_ fct: wrong value for nn_fct' )144 CALL ctl_stop( 'traadv_cen: wrong value for nn_cen' ) 144 145 END SELECT 145 146 !
Note: See TracChangeset
for help on using the changeset viewer.