- Timestamp:
- 2019-09-12T18:41:17+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DYN/divhor.F90
r11529 r11541 64 64 INTEGER :: ji, jj, jk ! dummy loop indices 65 65 REAL(wp) :: zraur, zdep ! local scalars 66 REAL(wp), DIMENSION(jpi,jpj) :: ztmp 66 67 !!---------------------------------------------------------------------- 67 68 ! … … 85 86 END DO 86 87 END DO 88 89 ztmp = 0.0 90 DO jk = jpkm1,1,-1 91 ztmp(:,:) = ztmp(:,:) + hdivn(:,:,jk) * e3t_n(:,:,jk) 92 END DO 93 CALL debug('divhor 1',ztmp) 94 87 95 #if defined key_agrif 88 96 IF( .NOT. Agrif_Root() ) THEN … … 105 113 CALL lbc_lnk( 'divhor', hdivn, 'T', 1. ) ! (no sign change) 106 114 ! 115 ztmp = 0.0 116 DO jk = jpkm1,1,-1 117 ztmp(:,:) = ztmp(:,:) + hdivn(:,:,jk) * e3t_n(:,:,jk) 118 END DO 119 CALL debug('divhor 2',ztmp) 120 ! 107 121 IF( ln_timing ) CALL timing_stop('div_hor') 108 122 !
Note: See TracChangeset
for help on using the changeset viewer.