Changeset 5656 for trunk/NEMOGCM/NEMO/OPA_SRC/TRA
- Timestamp:
- 2015-07-31T10:55:56+02:00 (9 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC/TRA
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90
r4990 r5656 212 212 CHARACTER(len=3) :: cdtype 213 213 REAL, DIMENSION(:,:,:) :: pun, pvn, pwn 214 WRITE(*,*) 'tra_adv_eiv: You should not have seen this print! error?', kt, cdtype, pun(1,1,1), pvn(1,1,1), pwn(1,1,1) 214 WRITE(*,*) 'tra_adv_eiv: You should not have seen this print! error?', & 215 & kt, cdtype, pun(1,1,1), pvn(1,1,1), pwn(1,1,1) 215 216 END SUBROUTINE tra_adv_eiv 216 217 #endif -
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90
r5643 r5656 47 47 USE timing ! Timing 48 48 #if defined key_agrif 49 USE agrif_opa_update50 49 USE agrif_opa_interp 51 50 #endif … … 111 110 ! Update after tracer on domain lateral boundaries 112 111 ! 112 #if defined key_agrif 113 CALL Agrif_tra ! AGRIF zoom boundaries 114 #endif 115 ! 113 116 CALL lbc_lnk( tsa(:,:,:,jp_tem), 'T', 1._wp ) ! local domain boundaries (T-point, unchanged sign) 114 117 CALL lbc_lnk( tsa(:,:,:,jp_sal), 'T', 1._wp ) … … 116 119 #if defined key_bdy 117 120 IF( lk_bdy ) CALL bdy_tra( kt ) ! BDY open boundaries 118 #endif119 #if defined key_agrif120 CALL Agrif_tra ! AGRIF zoom boundaries121 121 #endif 122 122 … … 149 149 ELSE ; CALL tra_nxt_fix( kt, nit000, 'TRA', tsb, tsn, tsa, jpts ) ! fixed volume level 150 150 ENDIF 151 ENDIF 152 ! 153 #if defined key_agrif 154 ! Update tracer at AGRIF zoom boundaries 155 IF( .NOT.Agrif_Root() ) CALL Agrif_Update_Tra( kt ) ! children only 156 #endif 151 ENDIF 157 152 ! 158 153 ! trends computation
Note: See TracChangeset
for help on using the changeset viewer.