- Timestamp:
- 2015-12-17T16:48:41+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90
r5602 r6101 34 34 USE zpshde ! partial step: hor. derivative (zps_hde routine) 35 35 USE zpshde_crs ! partial step: hor. derivative (zps_hde routine) 36 USE dom_oce , ONLY : ln_crs 36 USE dom_oce , ONLY : ln_crs, ln_isfcav 37 37 USE crs , ONLY : jpi_crs,jpj_crs,wn_crs,ln_crs_top !cbr 38 38 USE ldfslp_crs 39 40 39 #if defined key_agrif 41 40 USE agrif_top_sponge ! tracers sponges … … 111 110 CALL zps_hde_crs( kstp, jptra, trn, gtru, gtrv ) 112 111 ELSE 113 IF( ln_isfcav ) &112 IF( ln_isfcav )THEN 114 113 CALL zps_hde_isf( kstp, jptra, trn, pgtu=gtru, pgtv=gtrv, pgtui=gtrui, pgtvi=gtrvi ) ! Partial steps: now horizontal gradient of passive 115 114 ELSE 116 115 CALL zps_hde ( kstp, jptra, trn, gtru, gtrv ) ! Partial steps: now horizontal gradient of passive 117 116 ENDIF 117 ENDIF 118 118 ENDIF 119 119 ! tracers at the bottom ocean level
Note: See TracChangeset
for help on using the changeset viewer.